From 0fd50f2bd0376007bb9f178c5c18ac4711f40d8a Mon Sep 17 00:00:00 2001
From: timv <tim.f.vieira@gmail.com>
Date: Mon, 10 Dec 2012 17:22:50 -0500
Subject: [PATCH] added Dyna/Test/Main2.hs - temporary test runner which skips
 K3Backend tests.

---
 bin/prototype.py       |  5 +++++
 bin/utils.py           |  2 ++
 src/Dyna/Test/Main2.hs | 15 +++++++++++++++
 3 files changed, 22 insertions(+)
 create mode 100644 src/Dyna/Test/Main2.hs

diff --git a/bin/prototype.py b/bin/prototype.py
index 28c7fd2..0cb721c 100644
--- a/bin/prototype.py
+++ b/bin/prototype.py
@@ -398,12 +398,17 @@ def main(dynafile):
                 #print >> html, '<h3>Update %s</h3>' % (u,)
                 #print >> html, '<div class="box">%s</div>' % svg
 
+
         print
         print red % '#________________'
         print red % '# storage'
         for label, M, o in modes_needed:
             print label, display_mode_nocolor(M, o)
 
+        cmd = """ghc -isrc Dyna.Backend.Python -e 'processFile "%s"' """ % dynafile
+        assert 0 == os.system(cmd), 'command failed:\n\t' + cmd
+
+
     print
     print 'wrote', html.name
 
diff --git a/bin/utils.py b/bin/utils.py
index d7269c7..7797664 100644
--- a/bin/utils.py
+++ b/bin/utils.py
@@ -22,6 +22,8 @@ def parse_sexpr(e):
     based on implementation by George Sakkis
     http://mail.python.org/pipermail/python-list/2005-March/312004.html
     """
+    e = re.compile('^\s*;.*?\n', re.M).sub('', e)  # remove comments
+
     es, stack = [], []
     for token in re.split(r'([()])|\s+', e):
         if token == '(':
diff --git a/src/Dyna/Test/Main2.hs b/src/Dyna/Test/Main2.hs
new file mode 100644
index 0000000..acaeb6e
--- /dev/null
+++ b/src/Dyna/Test/Main2.hs
@@ -0,0 +1,15 @@
+-- Bring together all of our test suites
+
+-- XXX temporary, use Dyna.Test.Main as soons as timv has upgrades ghc.
+
+module Dyna.Test.Main2 where
+
+import           Test.Framework
+import qualified Dyna.ParserHS.Selftest  as DPHS
+import qualified Dyna.XXX.TrifectaTests  as DXT
+
+main :: IO ()
+main = defaultMain
+           [ DPHS.selftest
+           , DXT.selftest
+           ]
-- 
2.50.1