diff options
| author | Karl Williamson <khw@cpan.org> | 2014-10-16 21:16:24 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-05 21:48:27 -0700 |
| commit | 46b78aa8ea94ffeb9e204b96e2bd525424868f9b (patch) | |
| tree | 634346100cfaa6dc50aae227ffb061610ba412a7 /t | |
| parent | 2da5b9bef2ef557a6978ec45042e29fa38e9bade (diff) | |
| download | perl-46b78aa8ea94ffeb9e204b96e2bd525424868f9b.tar.gz | |
t/lib/warnings/toke: Skip some tests on EBCDIC
The results depends on the particular EBCDIC platform being used, so I
don't think it is worth the effort.
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/toke | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 4e15f75033..5d3110448e 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -1355,6 +1355,12 @@ syntax error at - line 3, near "=~ ?" Execution of - aborted due to compilation errors. ######## # toke.c +BEGIN { + if (ord('A') == 193) { + print "SKIPPED\n# result varies depending on which ebcdic platform"; + exit 0; + } +} use warnings; $a = "\c,"; $a = "\c`"; @@ -1362,8 +1368,8 @@ no warnings 'syntax'; $a = "\c,"; $a = "\c`"; EXPECT -"\c," is more clearly written simply as "l" at - line 3. -"\c`" is more clearly written simply as "\ " at - line 4. +"\c," is more clearly written simply as "l" at - line 9. +"\c`" is more clearly written simply as "\ " at - line 10. ######## # toke.c BEGIN { |