ok True, 'True is, well, True';
if True {
    pass('if True works');
} else {
    flunk('if True works');
}
##</code><code>##

sub s {
    my $str = shift;
    return split /:/, $str;
}

##</code><code>##

is_deeply [s("a:b")], [split /:/, 'a:b'], $msg;

##</code><code>##

is_deeply [s("a:b")], [qw(a, b)], $msg;