]> git.vpit.fr Git - perl/modules/Test-Leaner.git/blob - samples/bench.pl
Directly test the truth of $ok in ok()
[perl/modules/Test-Leaner.git] / samples / bench.pl
1 #!perl
2
3 use strict;
4 use warnings;
5
6 use Benchmark qw<cmpthese>;
7
8 my $n = 10_000;
9
10 cmpthese 10, {
11  'Test::More'   => sub { system "$^X -e 'use Test::More; plan q[no_plan]; pass for 1 .. $n' > /dev/null" },
12  'Test::Leaner' => sub { system "$^X -e 'use lib q[lib]; use Test::Leaner; plan q[no_plan]; pass for 1 .. $n' > /dev/null" },
13 };