X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fbench.pl;fp=samples%2Fbench.pl;h=c84cb6690cad7802b4e1533026ae7e4ba708594e;hb=57d87fcd6b2d8f96a6d4d05dd7e5a46e3e1ee75c;hp=0000000000000000000000000000000000000000;hpb=718844cc10b90e9ae4acc24a82539ea99c8a4cbb;p=perl%2Fmodules%2FTest-Leaner.git

diff --git a/samples/bench.pl b/samples/bench.pl
new file mode 100644
index 0000000..c84cb66
--- /dev/null
+++ b/samples/bench.pl
@@ -0,0 +1,13 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Benchmark qw<cmpthese>;
+
+my $n = 10_000;
+
+cmpthese 10, {
+ 'Test::More'   => sub { system "$^X -e 'use Test::More; plan q[no_plan]; pass for 1 .. $n' > /dev/null" },
+ 'Test::Leaner' => sub { system "$^X -e 'use lib q[lib]; use Test::Leaner; plan q[no_plan]; pass for 1 .. $n' > /dev/null" },
+};