6.19. More tests than planned

#!/usr/bin/perl
use strict;
use warnings;

# example of too many tests (more than planned)

use Test::More tests => 2;

is( `./mycalc 1 + 1`, 2, '1+1' );
is( `./mycalc 2 + 2`, 4, '2+2' );
is( `./mycalc 3 + 3`, 6, '3+3' );

Directly:

1..2
ok 1 - 1+1
ok 2 - 2+2
ok 3 - 3+3
# Looks like you planned 2 tests but ran 1 extra.

With Harness:

too-many-tests....ok 3/2# Looks like you planned 2 tests but ran 1 extra.    
too-many-tests....dubious                                                    
        Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 3
        Failed 1/2 tests, 50.00% okay
Failed Test      Stat Wstat Total Fail  Failed  List of Failed
-------------------------------
too-many-tests.t    1   256     2    1  50.00%  3
Failed 1/1 test scripts, 0.00% okay. -1/2 subtests failed, 150.00% okay.