ok ( $foo =~ /bar/, 'contains bar');
ok ( UNIVERSAL::isa($o, 'MyClass'), 'isa MyClass' );
ok( $foo eq 'bar', 'equals bar' );

##</code><code>##

like( $foo, qr/foo/, 'contains bar' );
isa_ok( $o, 'MyClass' );
is( $foo, 'bar', 'equals bar' );

##</code><code>##

is( 'apples', 'oranges', 'expecting to find some oranges' );

##</code><code>##

not ok 1 - expecting to find some oranges
#     Failed test (-e at line 1)
#          got: 'apples'
#     expected: 'oranges'

##</code><code>##

not ok 1 - expecting to find some oranges