diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2020-07-31 18:48:54 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2020-07-31 18:48:54 +0300 |
| commit | 60a905a90146dfacb2d188b456dc527c8fede287 (patch) | |
| tree | 556f29b94f27cf6cd2181bd81b3d71bb42076089 | |
| parent | 380638a33691ba43fdcd2e18bca636750e5f66f1 (diff) | |
| download | haskell-wip/test-t17652.tar.gz | |
Test case for #17652wip/test-t17652
The issue was fixed by 19e80b9af252eee760dc047765a9930ef00067ec
3 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17652.hs b/testsuite/tests/haddock/should_compile_flag_haddock/T17652.hs new file mode 100644 index 0000000000..9b0cef2522 --- /dev/null +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17652.hs @@ -0,0 +1,8 @@ +module T17652 where + +data X + = B + -- | x + !Int + -- | y + String diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17652.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17652.stderr new file mode 100644 index 0000000000..e1e5cf5c25 --- /dev/null +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17652.stderr @@ -0,0 +1,6 @@ + +==================== Parser ==================== +module T17652 where +data X = B !Int " x" String " y" + + diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/all.T b/testsuite/tests/haddock/should_compile_flag_haddock/all.T index b35af797ce..5dc5df090c 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/all.T +++ b/testsuite/tests/haddock/should_compile_flag_haddock/all.T @@ -62,3 +62,4 @@ test('T17544_kw', normal, compile, ['-haddock -Winvalid-haddock -ddump-parsed-as test('haddockExtraDocs', normal, compile, ['-haddock -Winvalid-haddock']) test('haddockTySyn', normal, compile, ['-haddock -Winvalid-haddock -ddump-parsed']) test('T8944', normal, compile, ['-haddock -Winvalid-haddock -ddump-parsed']) +test('T17652', normal, compile, ['-haddock -Winvalid-haddock -ddump-parsed']) |