Add big string test case

maxsnew · Apr 18, 2014 · 9fcf0c9 · 9fcf0c9
1 parent b0bdfac
commit 9fcf0c9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/.travis.yml b/.travis.yml
@@ -9,4 +9,4 @@ install:
   - echo "n" | elm-get install evancz/automaton
   - npm install jsdom
 before_script: elm-io Test.elm test.js
-script: echo "exit" | node test.js
+script: echo "exit" | node test.js > /dev/null
diff --git a/Test.elm b/Test.elm
@@ -19,7 +19,8 @@ hello : IO ()
 hello = putStrLn "Hello, Console!"       >>
         putStrLn "I'll echo your input until you say \"exit\":" >>
         loop >>         
-        putStrLn "That's all, folks!"    >>
+        putStrLn "That's all, folks! Here's some blahs:"  >>
+        putStrLn (String.concat <| repeat 100000 "blah ") >>
         exit 0
 
 -- | Can't use a type alias in ports, yet :/