PageRenderTime 16ms CodeModel.GetById 1ms app.highlight 10ms RepoModel.GetById 1ms app.codeStats 0ms

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

#
Perl | 18 lines | 12 code | 5 blank | 1 comment | 0 complexity | c441b0e2eb20bd6a85d20f81b15de62f MD5 | raw file
 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");