When there are more OKs than planned the script will also print a comment about it.

examples/perl/tests/t13.pl
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";
use MyTools;

use Test::Simple tests => 2;

ok( sum(1, 1) == 2 );
ok( sum(2, 2) == 4 );
ok( sum(3, 3) == 6 );

Output:

examples/perl/tests/t13.pl.out
1..2
ok 1
ok 2
ok 3
# Looks like you planned 2 tests but ran 3.