Fragility

1..7
ok 1 - use Test::Foo;
ok 2 - test if 'foo' eq 'foo'
ok 3 - foo_ok returns 1
not ok 6 - expected failure
#     Failed test (test_foo_3.t at line 18)
#                   'not ok 4 - test if 'bar' eq 'foo'
# ok 5 - foo_ok does not returns 1
# '
#     doesn't match '(?m-xis:not ok 3 - test if 'bar' eq 'foo')'
not ok 7 - expected success
#     Failed test (test_foo_3.t at line 19)
#                   'not ok 4 - test if 'bar' eq 'foo'
# ok 5 - foo_ok does not returns 1
# '
#     doesn't match '(?m-xis:ok 4 - foo_ok does not returns 1)'
ok 8 - expected diag