Control parser test binary
authorJoachim Breitner <mail@joachim-breitner.de>
Sun, 24 Jul 2011 17:15:27 +0000 (19:15 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sun, 24 Jul 2011 17:15:27 +0000 (19:15 +0200)
ControlTester.hs [new file with mode: 0644]

diff --git a/ControlTester.hs b/ControlTester.hs
new file mode 100644 (file)
index 0000000..05c04ca
--- /dev/null
@@ -0,0 +1,16 @@
+import qualified Data.Map as M
+import Types
+import Data.List
+import ParseSuite
+import Data.Function
+import Data.Functor
+import ControlParser
+import Debian.Control
+
+main = do
+    if False then do
+        m <- map (\(Paragraph x) -> map formatField x) <$> myParseControl "realdata/unstable/Packages_i386"
+        length (show m) `seq` return ()
+        else do
+        m <- parseControlFile "realdata/unstable/Packages_i386"
+        length (show m) `seq` return ()