This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bench.pl: make 'desc' default to 'code'
authorDavid Mitchell <davem@iabyn.com>
Sat, 21 Oct 2017 15:44:58 +0000 (16:44 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 23 Oct 2017 10:52:03 +0000 (11:52 +0100)
Any entries in the benchmarks file which don't have a 'desc' description
fields will have the description set to the string for 'code'

Porting/bench.pl
t/perf/benchmarks

index d6f0da5..9866f8a 100755 (executable)
@@ -636,6 +636,9 @@ sub read_tests_file {
                 die "Error: '$file': invalid key '$_' for test '$name'\n"
                     unless exists $valid{$_};
             }
+
+            # make description default to the code
+            $hash->{desc} = $hash->{code} unless exists $hash->{desc};
         }
     }
 
index 61909b0..d681812 100644 (file)
 #
 # Each hash has three fields:
 #
-#   desc is a description of the test
+#   desc  is a description of the test; if not present, it defaults
+#           to the same value as the 'code' field
+#
 #   setup is a string containing setup code
+#
 #   code  is a string containing the code to run in a loop
 #
 # So typically a benchmark tool might do something like
     },
 
     'expr::arith::preinc' => {
-        desc    => '++$x',
         setup   => 'my $x = 1;',
         code    => '++$x',
     },
     'expr::arith::predec' => {
-        desc    => '--$x',
         setup   => 'my $x = 1;',
         code    => '--$x',
     },
 
 
     'regex::anyof_plus::anchored' => {
-        desc    => '/^[acgt]+/',
         setup   => '$_ = "a" x 100;',
         code    => '/^[acgt]+/',
     },