Control parser test binary

diff --git a/ControlTester.hs b/ControlTester.hs
new file mode 100644 (file)
index 0000000..05c04ca
--- /dev/null
+++ b/ControlTester.hs
@@ -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 ()