diff options
Diffstat (limited to 'testsuite/tests/parser/unicode')
-rw-r--r-- | testsuite/tests/parser/unicode/T7650.hs | 11 | ||||
-rw-r--r-- | testsuite/tests/parser/unicode/T7650.stdout | 1 | ||||
-rw-r--r-- | testsuite/tests/parser/unicode/all.T | 1 |
3 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/parser/unicode/T7650.hs b/testsuite/tests/parser/unicode/T7650.hs new file mode 100644 index 0000000000..c474bc0645 --- /dev/null +++ b/testsuite/tests/parser/unicode/T7650.hs @@ -0,0 +1,11 @@ +main = print spın̈alTap + where spın̈alTap = 11 + +-- n̈ is a combining character sequence. We now allow it to be used in +-- identifiers (#7650). +-- +-- > map generalCategory "n̈" +-- [LowercaseLetter,NonSpacingMark] +-- +-- > map show "n̈" +-- ["'n'","'\776'"] diff --git a/testsuite/tests/parser/unicode/T7650.stdout b/testsuite/tests/parser/unicode/T7650.stdout new file mode 100644 index 0000000000..b4de394767 --- /dev/null +++ b/testsuite/tests/parser/unicode/T7650.stdout @@ -0,0 +1 @@ +11 diff --git a/testsuite/tests/parser/unicode/all.T b/testsuite/tests/parser/unicode/all.T index 6972a0d602..36554cc143 100644 --- a/testsuite/tests/parser/unicode/all.T +++ b/testsuite/tests/parser/unicode/all.T @@ -25,3 +25,4 @@ test('T7671', normal, compile, ['']) # TODO: This test ought to be run in a non-UTF8 locale, but this is not yet # supported by the test suite (see 10907) test('T10907', normal, compile, ['']) +test('T7650', normal, compile, ['']) |