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

# · Perl · 12 lines · 9 code · 2 blank · 1 comment · 0 complexity · 9c0624f0c01646a825897f5ee0837c8c MD5 · raw file 

    

  1. #!/usr/bin/perl
    2. 

  2. use strict;
    3. 

  3. use warnings;
    4. 

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

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

  6. require_ok('ret_by_value');
    7. 

  7. 

  8. my $tst = ret_by_value::get_test();
    9. 

  9. isa_ok($tst, 'ret_by_value::test');
    10. 

  10. is($tst->{myInt}, 100);
    11. 

  11. is($tst->{myShort}, 200);
    12.