[update selftests
John Meacham <john@repetae.net>**20100702224037
 Ignore-this: 6cdaf796112847a7b3b2f2f2b5737bdc
] move ./src/selftest ./selftest
hunk ./Makefile.am 43
-        src/E/Main.hs
+        src/E/Main.hs src/Grin/QueryOpt.hs src/Grin/Query.hs
hunk ./Makefile.am 48
+GHCSELFTESTOPTS= -osuf test.o -hisuf test.hi -DEXPORT_SELFTEST=,_selftest
+GHCNONSELFTESTOPTS= -DEXPORT_SELFTEST=
hunk ./selftest/Makefile 3
-GHCOPTS= -fallow-overlapping-instances -fallow-undecidable-instances -fglasgow-exts -i -i../drift_processed -i../drift_processed/FrontEnd -i.. -i../FrontEnd -O -ignore-package lang  -optc-std=c99 -optc-g
+GHCOPTS= -fallow-overlapping-instances -fallow-undecidable-instances -fglasgow-exts \
+	 -XBangPatterns \
+	 -i -i../drift_processed -i../drift_processed/FrontEnd -i../src \
+	 -O -package QuickCheck -ignore-package lang  -optc-std=c99 -optc-g
hunk ./selftest/Makefile 14
-	$(HC) $(GHCOPTS) --make $< -o $@  -I../cbits ../cbits/md5sum.c ../StringTable/StringTable_cbits.c
+	$(HC) $(GHCOPTS) --make $< -o $@  -I../src/cbits ../src/cbits/md5sum.c ../src/StringTable/StringTable_cbits.c
hunk ./selftest/Makefile 16
-#       ../StringTable/StringTable_cbits.c
+clean:
+	rm -f -- md5 sha1 TestParse cff SelfTest
hunk ./selftest/SelfTest.hs 4
-import qualified List
hunk ./selftest/SelfTest.hs 5
-import qualified Data.Set as Set
hunk ./selftest/SelfTest.hs 7
+import qualified Data.Set as Set
+import qualified List
hunk ./selftest/SelfTest.hs 10
-import StringTable.Atom
hunk ./selftest/SelfTest.hs 13
-import GenUtil
hunk ./selftest/SelfTest.hs 14
+import GenUtil
hunk ./selftest/SelfTest.hs 16
-import qualified Info.Info as Info
hunk ./selftest/SelfTest.hs 19
-import PackedString
+import StringTable.Atom
hunk ./selftest/SelfTest.hs 23
+import PackedString
+import qualified Data.ByteString as BS
hunk ./selftest/SelfTest.hs 26
+import qualified Info.Info as Info
hunk ./selftest/SelfTest.hs 60
-prop_atomneq' xs ys = (xs `compare` ys) == (fromAtom a1 `compare` (fromAtom a2 :: PackedString)) where
+prop_atomneq' xs ys = (xs `compare` ys) == (fromAtom a1 `compare` (fromAtom a2 :: BS.ByteString)) where
hunk ./selftest/SelfTest.hs 101
-    let nn = not . null
+    let nn x = (not (null x)) && ';' `notElem` x
hunk ./src/E/Arbitrary.hs 18
-import CharIO
hunk ./src/E/Arbitrary.hs 74
-    CharIO.print e
-    CharIO.putStrLn (render $ (ePretty e :: Doc))
+    print e
+    putStrLn (render $ (ePretty e :: Doc))
hunk ./src/E/Arbitrary.hs 79
-    CharIO.putStrLn "Testing E"
+    putStrLn "Testing E"