This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: Synchronize version.pm CPAN with core
[perl5.git] / cpan / version / t / 06noop.t
1 #! /usr/local/perl -w
2 # Before `make install' is performed this script should be runnable with
3 # `make test'. After `make install' it should work as `perl test.pl'
4
5 #########################
6
7 use Test::More qw/no_plan/;
8
9 BEGIN {
10     use_ok('version', 0.9903);
11 }
12
13 my $v1 = version->new('1.2');
14 eval {$v1 = $v1 + 1};
15 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
16 eval {$v1 = $v1 - 1};
17 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
18 eval {$v1 = $v1 / 1};
19 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
20 eval {$v1 = $v1 * 1};
21 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
22 eval {$v1 = abs($v1)};
23 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
24
25 eval {$v1 += 1};
26 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
27 eval {$v1 -= 1};
28 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
29 eval {$v1 /= 1};
30 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
31 eval {$v1 *= 1};
32 like $@, qr/operation not supported with version object/, 'No math ops with version objects';