/trunk/Examples/test-suite/perl5/varargs_runme.pl

 1#!/usr/bin/perl
 2use strict;
 3use warnings;
 4use Test::More tests => 7;
 5BEGIN { use_ok('varargs') }
 6require_ok('varargs');
 7
 8is(varargs::test("Hello"), "Hello");
 9
10my $f = new varargs::Foo("BuonGiorno", 1);
11is($f->{str}, "BuonGiorno");
12
13$f = new varargs::Foo("Greetings");
14is($f->{str}, "Greetings");
15        
16is($f->test("Hello"), "Hello");
17
18is(varargs::Foo::statictest("Grussen", 1), "Grussen");