Help for this page

Select Code to Download


  1. or download this
    use strict; use warnings;
use Test::More;
...
    return ( \@v, \@w, \@x, \@y );
}
  2. or download this
    perl 1174098-2.pl
ok 1 - OP data
ok 2 - deeper nesting
1..2
  3. or download this
    use strict; use warnings;
use Test::More;
...
cmp_deeply( \@x, bag(@y) );

done_testing;
  4. or download this
    $ perl 1174098.pl
ok 1
1..1