Fixes issue HaskVan#8: testReadingLine doesn't work.

nathandcornell · Feb 26, 2016 · 8cde7aa · 8cde7aa
1 parent d621df9
commit 8cde7aa
Showing 1 changed file with 8 additions and 7 deletions.
diff --git a/test/BasicIO.hs b/test/BasicIO.hs
@@ -18,18 +18,19 @@ failIO fnName =
 
 testReadingChar :: Spec
 testReadingChar = it "getChar" $ do
-  putStrLn "Write: \"a\" to pass this test: "
-  -- NOTE: replace 'failIO' with the actual function
-  result <- failIO "getChar"
-  assertEqual ""
-              'a'
-              result
+    putStrLn "Write: \"a\" to pass this test: "
+    -- NOTE: replace 'failIO' with the actual function
+    result <- failIO "getChar"
+    assertEqual ""
+                'a'
+                result
 
 testReadingLine :: Spec
 testReadingLine = it "getLine" $ do
+    putStrLn "Write: \"burrito\" to pass this test: "
     -- NOTE: replace 'failIO' with the actual function
     result <- failIO "getLine"
-    assertEqual "Write: \"burrito\" to pass this test"
+    assertEqual ""
                 "burrito"
                 result