use Test::More qw(no_plan);

ok(test_foo() eq "bar");

sub print_foo_message {
    print "foo";
}
sub test_foo { 
    return "bar";
}