1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl use strict; use warnings; use Test::Inter; my $o = new Test::Inter; print "The following script will fail due to multiple plans\n\n"; $o->plan(2); $o->plan(5); $o->done_testing();