Select Code to Download

my @testsubs;

...
        $testsubs[$_-1]->()==1 ? 'passes' : 'fails', 
        "\n";
}

test 1 passes
test 2 passes
test 3 fails
test 4 passes