[commit: testsuite] master: Add testcases for #5975. (bd7a2e5)
Paolo Capriotti
p.capriotti at gmail.com
Thu Apr 12 12:32:25 CEST 2012
Repository : ssh://darcs.haskell.org//srv/darcs/testsuite
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/bd7a2e54651e6a426c39181abf17537d2504f6f6
>---------------------------------------------------------------
commit bd7a2e54651e6a426c39181abf17537d2504f6f6
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date: Wed Apr 11 20:29:37 2012 +0100
Add testcases for #5975.
>---------------------------------------------------------------
tests/ghci/scripts/T5975a.script | 1 +
.../ann01.stderr => ghci/scripts/T5975b.script} | 0
tests/ghci/scripts/all.T | 9 +++++++++
3 files changed, 10 insertions(+), 0 deletions(-)
diff --git a/tests/ghci/scripts/T5975a.script b/tests/ghci/scripts/T5975a.script
new file mode 100644
index 0000000..ea0d649
--- /dev/null
+++ b/tests/ghci/scripts/T5975a.script
@@ -0,0 +1 @@
+:load föøbà r.hs
diff --git a/tests/annotations/should_compile/ann01.stderr b/tests/ghci/scripts/T5975b.script
similarity index 100%
copy from tests/annotations/should_compile/ann01.stderr
copy to tests/ghci/scripts/T5975b.script
diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T
index af1cd52..2a49c9c 100755
--- a/tests/ghci/scripts/all.T
+++ b/tests/ghci/scripts/all.T
@@ -1,3 +1,4 @@
+# coding=utf8
setTestOpts(if_compiler_profiled(skip))
@@ -114,3 +115,11 @@ test('Defer02', normal, ghci_script, ['Defer02.script'])
test('T5820', normal, ghci_script, ['T5820.script'])
test('T5836', normal, ghci_script, ['T5836.script'])
test('T5979', normalise_slashes, ghci_script, ['T5979.script'])
+test('T5975a',
+ [pre_cmd('touch föøbà r.hs'),
+ clean_cmd('rm föøbà r.hs')],
+ ghci_script, ['T5975a.script'])
+test('T5975b',
+ [pre_cmd('touch föøbà r.hs'),
+ clean_cmd('rm föøbà r.hs')],
+ ghci_script, ['T5975b.script'])
More information about the Cvs-ghc
mailing list