Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Opt out several microbenchmarks from summary score calculations
  • Loading branch information
Geoffrey Broadwell committed Aug 8, 2014
1 parent 58ca1fa commit 5fcc275
Showing 1 changed file with 10 additions and 0 deletions.
10 changes: 10 additions & 0 deletions microbenchmarks.pl
Expand Up @@ -2,18 +2,21 @@
# empty test MUST appear first, so that --ignore-startup will work
{
name => 'empty',
summarize => 0,
perl5 => '',
perl6 => '',
nqp => '',
},
{
name => 'zero',
summarize => 0,
perl5 => '0',
perl6 => '0',
nqp => '0',
},
{
name => 'hello',
summarize => 0,
perl5 => 'say "Hello, World!"',
perl6 => 'say "Hello, World!"',
nqp => 'say("Hello, World!")',
Expand All @@ -22,6 +25,7 @@
name => 'while_empty',
tags => [qw( while )],
scale => 1 << 10,
summarize => 0,
perl5 => 'my $i = 0; while (++$i <= SCALE) { }',
perl6 => 'my $i = 0; while (++$i <= SCALE) { }',
nqp => 'my $i := 0; while ($i := $i + 1) <= SCALE { }',
Expand All @@ -30,6 +34,7 @@
name => 'while_empty_native',
tags => [qw( while native )],
scale => 1 << 10,
summarize => 0,
perl5 => 'use integer; my $i = 0; while (++$i <= SCALE) { }',
perl6 => 'my int $i = 0; while ($i = $i + 1) <= SCALE { }',
nqp => 'my int $i := 0; while ($i := $i + 1) <= SCALE { }',
Expand Down Expand Up @@ -126,6 +131,7 @@
name => 'postwhile_nil',
tags => [qw( while )],
scale => 1 << 10,
summarize => 0,
perl5 => 'my $i = -SCALE || exit(0); () while ++$i;',
perl6 => 'my $i = -SCALE || exit(0); Nil while ++$i;',
nqp => 'my $i := -SCALE || nqp::exit(0); () while $i := $i + 1;',
Expand All @@ -134,6 +140,7 @@
name => 'postwhile_nil_native',
tags => [qw( while native )],
scale => 1 << 10,
summarize => 0,
perl5 => 'use integer; my $i = -SCALE || exit(0); () while ++$i;',
perl6 => 'my int $i = -SCALE || exit(0); Nil while $i = $i + 1;',
nqp => 'my int $i := -SCALE || nqp::exit(0); () while $i := $i + 1;',
Expand All @@ -142,6 +149,7 @@
name => 'loop_empty',
tags => [qw( loop )],
scale => 1 << 10,
summarize => 0,
perl5 => 'for (my $i = 1; $i <= SCALE; ++$i) { }',
perl6 => 'loop (my $i = 1; $i <= SCALE; ++$i) { }',
nqp => undef,
Expand All @@ -150,6 +158,7 @@
name => 'loop_empty_native',
tags => [qw( loop native )],
scale => 1 << 10,
summarize => 0,
perl5 => 'use integer; for (my $i = 1; $i <= SCALE; ++$i) { }',
perl6 => 'loop (my int $i = 1; $i <= SCALE; $i = $i + 1) { }',
nqp => undef,
Expand All @@ -158,6 +167,7 @@
name => 'for_empty',
tags => [qw( for )],
scale => 1 << 10,
summarize => 0,
perl5 => 'for (1 .. SCALE) { }; 1',
perl6 => 'for (1 .. SCALE) { }; 1',
nqp => undef,
Expand Down

0 comments on commit 5fcc275

Please sign in to comment.