/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
    2. 

  2. use strict;
    3. 

  3. use warnings;
    4. 

  4. use Test::More tests => 7;
    5. 

  5. BEGIN { use_ok('varargs') }
    6. 

  6. require_ok('varargs');
    7. 

  7. 

  8. is(varargs::test("Hello"), "Hello");
    9. 

  9. 

  10. my $f = new varargs::Foo("BuonGiorno", 1);
    11. 

  11. is($f->{str}, "BuonGiorno");
    12. 

  12. 

  13. $f = new varargs::Foo("Greetings");
    14. 

  14. is($f->{str}, "Greetings");
    15. 

  15.         
    16. 

  16. is($f->test("Hello"), "Hello");
    17. 

  17. 

  18. is(varargs::Foo::statictest("Grussen", 1), "Grussen");
    19.