Add a sample contrived benchmark

[perl/modules/Test-Leaner.git] / samples / bench.pl

diff --git a/samples/bench.pl b/samples/bench.pl
new file mode 100644 (file)
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" },
+};