Select Code to Download

timeit perl t\t\fastok.t > t.txt

...
Bytes Read:       3339101868
Bytes Written:    100048020
Bytes Other:      73765993

timeit perl t\t\fastprint.t > t.txt

...
Bytes Read:       270297
Bytes Written:    60606608
Bytes Other:      6971963

unshift(@INC, '.');
require 't/t/GenTAP.pm';
...
system('pause');#sample memory
GenTAP(0, 0, 'ok', 1000000);
system('pause');#sample memory

timeit perl t\t\fasttinyok.t > t.txt

...
Bytes Read:       146216
Bytes Written:    57859498
Bytes Other:      17639334

timeit perl t\t\fastok.t > t.txt

...
Bytes Read:       3031284
Bytes Written:    103643867
Bytes Other:      87114348

C:\sources\Win32-APipe>timeit C:\perl521\bin\perl.exe "-MExtUtils::Com
+mand::MM"
"-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0
+, 'blib\li
...
Bytes Other:      11595189

C:\sources\Win32-APipe>

C:\sources\Win32-APipe>C:\perl521\bin\perl.exe "-MExtUtils::Command::M
+M" "-MTest
::Harness" "-e" "undef *Test::Harness::Switches; system 'pause'; test_
+harness(0,
...
Press any key to continue . . .

C:\sources\Win32-APipe>

All tests successful.
Files=1, Tests=1000000, 65 wallclock secs (65.05 usr +  0.11 sys = 65.
+16 CPU)
Result: PASS

sub in_todo {
    my($todo, $caller);
    $todo = defined((caller++$caller)[0])?(caller$caller)[0]->can('is_
+todo')?(caller$caller)[0]->is_todo?1:undef:undef:0 until defined $tod
+o;
    $todo;
}

use strict;
use warnings;
...
    print $buffer if $emitter eq 'block' && length($buffer);
}
1;

unshift(@INC, '.');
require 't/t/GenTAP.pm';
GenTAP(0, 0, 'print', 1000000);

unshift(@INC, '.');
require 't/t/GenTAP.pm';
GenTAP(0, 0, 'ok', 1000000);

unshift(@INC, '.');
require 't/t/GenTAP.pm';
GenTAP(0, 0, 'tinyok', 1000000);