- or download this
timeit perl t\t\fastok.t > t.txt
...
Bytes Read: 3339101868
Bytes Written: 100048020
Bytes Other: 73765993
- or download this
timeit perl t\t\fastprint.t > t.txt
...
Bytes Read: 270297
Bytes Written: 60606608
Bytes Other: 6971963
- or download this
unshift(@INC, '.');
require 't/t/GenTAP.pm';
...
system('pause');#sample memory
GenTAP(0, 0, 'ok', 1000000);
system('pause');#sample memory
- or download this
timeit perl t\t\fasttinyok.t > t.txt
...
Bytes Read: 146216
Bytes Written: 57859498
Bytes Other: 17639334
- or download this
timeit perl t\t\fastok.t > t.txt
...
Bytes Read: 3031284
Bytes Written: 103643867
Bytes Other: 87114348
- or download this
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>
- or download this
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>
- or download this
All tests successful.
Files=1, Tests=1000000, 65 wallclock secs (65.05 usr + 0.11 sys = 65.
+16 CPU)
Result: PASS
- or download this
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;
}
- or download this
use strict;
use warnings;
...
print $buffer if $emitter eq 'block' && length($buffer);
}
1;
- or download this
unshift(@INC, '.');
require 't/t/GenTAP.pm';
GenTAP(0, 0, 'print', 1000000);
- or download this
unshift(@INC, '.');
require 't/t/GenTAP.pm';
GenTAP(0, 0, 'ok', 1000000);
- or download this
unshift(@INC, '.');
require 't/t/GenTAP.pm';
GenTAP(0, 0, 'tinyok', 1000000);