diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-12-04 06:12:56 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-12-06 18:40:46 -0800 |
| commit | 3a6b4f26fcdea2b27dd79e9bbc06f16aecbe28a5 (patch) | |
| tree | c5180bf950195660ea9e9850ac4bd2a05267bacf /t | |
| parent | b8ac2b429f563ca1495e66a492a3ab89fae772ec (diff) | |
| download | perl-3a6b4f26fcdea2b27dd79e9bbc06f16aecbe28a5.tar.gz | |
t/uni/variables.t: Skip $[ test under miniperl
Diffstat (limited to 't')
| -rw-r--r-- | t/uni/variables.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/uni/variables.t b/t/uni/variables.t index c8e6c8c445..d802a0a6e7 100644 --- a/t/uni/variables.t +++ b/t/uni/variables.t @@ -55,6 +55,8 @@ plan (tests => 65880); # Checking that at least some of the special variables work for my $v (qw( ^V ; < > ( ) {^GLOBAL_PHASE} ^W _ 1 4 0 [ ] ! @ / \ = )) { + SKIP: { + skip_if_miniperl('No $[ under miniperl', 2) if $v eq '['; local $@; evalbytes "\$$v;"; is $@, '', "No syntax error for \$$v"; @@ -62,6 +64,7 @@ for my $v (qw( ^V ; < > ( ) {^GLOBAL_PHASE} ^W _ 1 4 0 [ ] ! @ / \ = )) { local $@; eval "use utf8; \$$v;"; is $@, '', "No syntax error for \$$v under use utf8"; + } } # Checking if the Latin-1 range behaves as expected, and that the behavior is the |