Perhaps I'm reading too far into this... is this all you are looking for?

use warnings;
use strict;

use Test::More;

{ # 5 tests

    is 5, 5, "five ok";
    is 25/5, 5, "25 by 5 ok";
}

{ # 6 tests

    is 6, 6, "six ok";
    is 6**6/6**2, 1296, "odd division ok"
}

{ # unexpected test
 
    my $ok;
    
    $ok = eval { die "another test!?!\n"; 1; };
    is $ok, undef, "we died expectedly";
    like $@, qr/^another test/, "...err msg ok";
}

done_testing();
[download]