Select Code to Download

#!/usr/bin/env perl

...
        "Test that '$test->[NUM]' is "
        . ($test->[EXP] ? 'VALID' : 'INVALID');
}

1..10
ok 1 - Test that '1' is VALID
...
#          got: '1'
#     expected: ''
# Looks like you failed 2 tests of 10.