diff options
Diffstat (limited to 'testsuite/tests/backpack')
-rw-r--r-- | testsuite/tests/backpack/should_compile/T13323.stderr | 24 | ||||
-rw-r--r-- | testsuite/tests/backpack/should_compile/all.T | 1 | ||||
-rw-r--r-- | testsuite/tests/backpack/should_fail/T13323.bkp (renamed from testsuite/tests/backpack/should_compile/T13323.bkp) | 0 | ||||
-rw-r--r-- | testsuite/tests/backpack/should_fail/T13323.stderr | 5 | ||||
-rw-r--r-- | testsuite/tests/backpack/should_fail/all.T | 1 |
5 files changed, 6 insertions, 25 deletions
diff --git a/testsuite/tests/backpack/should_compile/T13323.stderr b/testsuite/tests/backpack/should_compile/T13323.stderr deleted file mode 100644 index 7e637d9dd4..0000000000 --- a/testsuite/tests/backpack/should_compile/T13323.stderr +++ /dev/null @@ -1,24 +0,0 @@ -[1 of 3] Processing p - [1 of 2] Compiling A[sig] ( p/A.hsig, nothing ) - [2 of 2] Compiling P ( p/P.hs, nothing ) - -T13323.bkp:9:13: warning: [-Wambiguous-fields (in -Wdefault)] - The field ‘foo’ belonging to type A is ambiguous. - This will not be supported by -XDuplicateRecordFields in future releases of GHC. - You can use a qualified import or explicit case analysis to resolve the ambiguity. -[2 of 3] Processing q - Instantiating q - [1 of 1] Compiling A ( q/A.hs, T13323.out/q/A.o ) -[3 of 3] Processing r - Instantiating r - [1 of 1] Including p[A=q:A] - Instantiating p[A=q:A] - [1 of 2] Compiling A[sig] ( p/A.hsig, T13323.out/p/p-HVmFlcYSefiK5n1aDP1v7x/A.o ) - [2 of 2] Compiling P ( p/P.hs, T13323.out/p/p-HVmFlcYSefiK5n1aDP1v7x/P.o ) - -T13323.bkp:9:13: warning: [-Wambiguous-fields (in -Wdefault)] - The field ‘foo’ belonging to type A is ambiguous. - This will not be supported by -XDuplicateRecordFields in future releases of GHC. - You can use a qualified import or explicit case analysis to resolve the ambiguity. - [1 of 2] Compiling R ( r/R.hs, T13323.out/r/R.o ) - [2 of 2] Instantiating p diff --git a/testsuite/tests/backpack/should_compile/all.T b/testsuite/tests/backpack/should_compile/all.T index a747a461a4..628ddddf3d 100644 --- a/testsuite/tests/backpack/should_compile/all.T +++ b/testsuite/tests/backpack/should_compile/all.T @@ -57,6 +57,5 @@ test('T13140', normal, backpack_compile, ['']) test('T13149', expect_broken(13149), backpack_compile, ['']) test('T13214', normal, backpack_compile, ['']) test('T13250', normal, backpack_compile, ['']) -test('T13323', normal, backpack_compile, ['']) test('T19244a', expect_broken(19244), backpack_compile, ['']) test('T19244b', expect_broken(19244), backpack_compile, ['']) diff --git a/testsuite/tests/backpack/should_compile/T13323.bkp b/testsuite/tests/backpack/should_fail/T13323.bkp index 70a1ccf89c..70a1ccf89c 100644 --- a/testsuite/tests/backpack/should_compile/T13323.bkp +++ b/testsuite/tests/backpack/should_fail/T13323.bkp diff --git a/testsuite/tests/backpack/should_fail/T13323.stderr b/testsuite/tests/backpack/should_fail/T13323.stderr new file mode 100644 index 0000000000..cc8a9dded0 --- /dev/null +++ b/testsuite/tests/backpack/should_fail/T13323.stderr @@ -0,0 +1,5 @@ +[1 of 3] Processing p + [1 of 2] Compiling A[sig] ( p/A.hsig, nothing ) + [2 of 2] Compiling P ( p/P.hs, nothing ) + +T13323.bkp:9:13: Ambiguous field selector occurence: foo diff --git a/testsuite/tests/backpack/should_fail/all.T b/testsuite/tests/backpack/should_fail/all.T index 5e0d6fdeea..209796ee9c 100644 --- a/testsuite/tests/backpack/should_fail/all.T +++ b/testsuite/tests/backpack/should_fail/all.T @@ -49,3 +49,4 @@ test('bkpfail50', normal, backpack_compile_fail, ['']) test('bkpfail51', normal, backpack_compile_fail, ['']) test('bkpfail52', normal, backpack_compile_fail, ['']) test('bkpfail53', normal, backpack_compile_fail, ['']) +test('T13323', normal, backpack_compile_fail, ['']) |