[add regression test cases for known bugs
John Meacham <john@repetae.net>**20090901045045
 Ignore-this: 96bd5ff4d22356b4583fd1a4223c1418
] adddir ./regress/tests/4_bugs
addfile ./regress/tests/4_bugs/ParseDoWhere.expected.stdout
addfile ./regress/tests/4_bugs/ParseDoWhere.hs
addfile ./regress/tests/4_bugs/Tree.expected.stdout
addfile ./regress/tests/4_bugs/Tree.hs
hunk ./regress/tests/4_bugs/ParseDoWhere.expected.stdout 1
+Hello, Cruel World!
hunk ./regress/tests/4_bugs/ParseDoWhere.hs 1
+
+
+
+main = do
+    putStrLn foo
+    where foo = "Hello, Cruel World!"
hunk ./regress/tests/4_bugs/Tree.expected.stdout 1
+1
hunk ./regress/tests/4_bugs/Tree.hs 1
+module Main (main) where
+
+data Tree = Leaf | Branch [Tree]
+
+mkTree   :: Int -> Tree
+mkTree 0 = Leaf
+mkTree _ = Branch [mkTree 0]
+
+leaves             :: Tree -> Int
+leaves Leaf        = 1
+leaves (Branch ts) = sum $ map leaves ts
+
+main :: IO ()
+main = print . leaves . mkTree $ 1