/trunk/Examples/test-suite/perl5/varargs_runme.pl
Perl | 18 lines | 12 code | 5 blank | 1 comment | 0 complexity | c441b0e2eb20bd6a85d20f81b15de62f MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Test::More tests => 7;
- BEGIN { use_ok('varargs') }
- require_ok('varargs');
- is(varargs::test("Hello"), "Hello");
- my $f = new varargs::Foo("BuonGiorno", 1);
- is($f->{str}, "BuonGiorno");
- $f = new varargs::Foo("Greetings");
- is($f->{str}, "Greetings");
-
- is($f->test("Hello"), "Hello");
- is(varargs::Foo::statictest("Grussen", 1), "Grussen");