use Test::Harness;

runtests(@tests);

*****

1..6

not ok

ok

not ok

ok

ok

*****

FAILED tests 1, 3, 6

Failed 3/6 tests, 50.00% okay

