1#!/usr/bin/perl 2use strict; 3use warnings; 4use Test::More tests => 6; 5BEGIN { use_ok('sizet') } 6require_ok('sizet'); 7 8# adapted from ../java/sizet_runme.java 9 10my $s = 2000; 11$s = sizet::test1($s + 1); 12is($s, 2001, 'test1'); 13$s = sizet::test1($s + 1); 14is($s, 2002, 'test2'); 15$s = sizet::test1($s + 1); 16is($s, 2003, 'test3'); 17$s = sizet::test1($s + 1); 18is($s, 2004, 'test4'); 19