diff options
| author | MorrowM <themorrowm@gmail.com> | 2022-08-14 23:17:55 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-21 16:51:38 -0400 |
| commit | 9939e95fb7b808b68aca00dfabbb99079927f482 (patch) | |
| tree | 25866e9a6a17c818dd64d132fb534682a246ef39 /testsuite/tests | |
| parent | ab3e0f5a02f6a1b63407e08bb97a228a76c27abd (diff) | |
| download | haskell-9939e95fb7b808b68aca00dfabbb99079927f482.tar.gz | |
Recognize file-header pragmas in GHCi (#21507)
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T21507.script | 5 | ||||
| -rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T21507.script b/testsuite/tests/ghci/scripts/T21507.script new file mode 100644 index 0000000000..7c5d3df4cf --- /dev/null +++ b/testsuite/tests/ghci/scripts/T21507.script @@ -0,0 +1,5 @@ +:{ +{-# LANGUAGE TypeFamilies #-} +type family T21507 a where + T21507 a = a +:} diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index 9e7ca144a6..0ad107c4e4 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -368,3 +368,4 @@ test('T21110', [extra_files(['T21110A.hs'])], ghci_script, ['T21110.script']) test('T17830', [filter_stdout_lines(r'======.*')], ghci_script, ['T17830.script']) test('T21294a', normal, ghci_script, ['T21294a.script']) +test('T21507', normal, ghci_script, ['T21507.script']) |