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