diff options
Diffstat (limited to 'trunk/Examples/test-suite/perl5/sizet_runme.pl')
-rwxr-xr-x | trunk/Examples/test-suite/perl5/sizet_runme.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/trunk/Examples/test-suite/perl5/sizet_runme.pl b/trunk/Examples/test-suite/perl5/sizet_runme.pl new file mode 100755 index 000000000..5f29773b3 --- /dev/null +++ b/trunk/Examples/test-suite/perl5/sizet_runme.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl +use strict; +use warnings; +use Test::More tests => 6; +BEGIN { use_ok('sizet') } +require_ok('sizet'); + +# adapted from ../java/sizet_runme.java + +my $s = 2000; +$s = sizet::test1($s + 1); +is($s, 2001, 'test1'); +$s = sizet::test1($s + 1); +is($s, 2002, 'test2'); +$s = sizet::test1($s + 1); +is($s, 2003, 'test3'); +$s = sizet::test1($s + 1); +is($s, 2004, 'test4'); |