1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/usr/bin/perl
# Test Perl 5.10 features
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More 0.47 tests => 10;
use Perl::MinimumVersion;
# Perl 5.10 operators
SCOPE: {
my $p = Perl::MinimumVersion->new(\'$foo = 1 // 2');
is( $p->minimum_version, '5.010', '->minimum_version ok' );
my $m = $p->minimum_syntax_reason;
is( $m->element->content, '//', 'Matched correct element' );
is( $m->rule, '_perl_5010_operators', 'Matched correct rule' );
}
# Perl 5.10 magic variables
SCOPE: {
my $p = Perl::MinimumVersion->new(\'%+ = ();');
is( $p->minimum_version, '5.010', '->minimum_version ok' );
my $m = $p->minimum_syntax_reason;
is( $m->element->content, '%+', 'Matched correct element' );
is( $m->rule, '_perl_5010_magic', 'Matched correct rule' );
}
SCOPE: {
my $p = Perl::MinimumVersion->new(\'$+{foo} = 1;');
is( $p->minimum_version, '5.010', '->minimum_version ok' );
my $m = $p->minimum_syntax_reason;
is( $m->element->content, '$+', 'Matched correct element' );
is( $m->element->symbol, '%+', 'Symbol matches expected' );
is( $m->rule, '_perl_5010_magic', 'Matched correct rule' );
}
|
