Help for this page

Select Code to Download


  1. or download this
    use Test::More qw(no_plan);
use strict;
...
    is($result[0],"${i}foo","Got right foo");
    is($result[1],"${i}bar","Got right bar");
}
  2. or download this
    ok 1 - Got right foo
ok 2 - Got right bar
...
#     expected: '2bar'
1..4
# Looks like you failed 2 tests of 4.
  3. or download this
    ok 1 - Got right foo
ok 2 - Got right bar
...
#     expected: '2bar'
1..4
# Looks like you failed 2 tests of 4.