diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-20 23:50:28 +0100 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-23 12:28:05 +0100 |
| commit | 2aee41960aa00fe09a2cd1983e02c15e06013037 (patch) | |
| tree | 1b7ef718063f4322ebdbd79eb941a0a3b6af4ecd /testsuite/tests | |
| parent | 661aa07ed1b133a5ba1ae90525115f8aca0ac92b (diff) | |
| download | haskell-2aee41960aa00fe09a2cd1983e02c15e06013037.tar.gz | |
Allow combining characters in identifiers (#7650)
Reviewed by: austin, rwbarton
Differential Revision: https://phabricator.haskell.org/D1938
Diffstat (limited to 'testsuite/tests')
| -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, ['']) |