Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ca7979b3c2418142b4873a6465c0805b7d9cb240 >--------------------------------------------------------------- commit ca7979b3c2418142b4873a6465c0805b7d9cb240 Author: Simon Marlow <marlo...@gmail.com> Date: Tue Nov 8 13:35:43 2011 +0000 fix test on Windows >--------------------------------------------------------------- tests/ghci/scripts/ghci038.script | 16 ++++++++++------ 1 files changed, 10 insertions(+), 6 deletions(-) diff --git a/tests/ghci/scripts/ghci038.script b/tests/ghci/scripts/ghci038.script index 53e1fa5..fabc8b5 100644 --- a/tests/ghci/scripts/ghci038.script +++ b/tests/ghci/scripts/ghci038.script @@ -1,20 +1,24 @@ -- Tests for ":show imports" and import/:module +:l ../shell.hs +:def shell (\s -> do shell s; return "") +:l + :show imports import Prelude :show imports -:!printf "== map in scope due to explicit 'import Prelude'\n" +:shell echo "== map in scope due to explicit 'import Prelude'" :t map import Prelude () :show imports -:!printf "== still in scope, 'import Prelude ()' is subsumed by 'import Prelude'\n" +:shell echo "== still in scope, 'import Prelude ()' is subsumed by 'import Prelude'" :t map :module -Prelude :show imports -:!printf "== still in scope, implicit import of Prelude\n" +:shell echo "== still in scope, implicit import of Prelude" :t map import Prelude () :show imports -:!printf "== not in scope now\n" +:shell echo "== not in scope now" :t map :module -Prelude @@ -23,11 +27,11 @@ import Prelude () :t x :show imports -:!printf ":m -Foo\n" +:shell echo ":m -Foo" :m -Foo :show imports :t x -:!printf ":m +*Foo\n" +:shell echo ":m +*Foo" :m +*Foo :show imports :t x _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
