Select Code to Download

sub assertOk (&$;) {
    my( $package, $file, $line ) = caller;

    my( $code, $desc ) = @_;
    warn sprintf "%s %d # %s [%s(%d)]\n",

        ( $code->() ? 'ok' : 'not ok' ),
        ++$nTests, $desc, $file, $line
    ;
}