This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/perf/benchmarks: rename some keys() entries
authorDavid Mitchell <davem@iabyn.com>
Tue, 25 Jul 2017 14:10:53 +0000 (15:10 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 27 Jul 2017 10:30:25 +0000 (11:30 +0100)
move and rename
    expr::hash::bool_empty_keys
    expr::hash::bool_full_keys
to
    func::keys::lex::bool_cxt_empty
    func::keys::lex::bool_cxt

and add
    func::keys::pkg::bool_cxt_empty
    func::keys::pkg::bool_cxt

since its really testing the keys() function in boolean context rather
than a hash in boolean context.

t/perf/benchmarks

index 08063b6..61909b0 100644 (file)
         setup   => 'my %h;',
         code    => '!%h',
     },
-    'expr::hash::bool_empty_keys' => {
-        desc    => 'empty lexical hash in boolean keys context',
-        setup   => 'my %h;',
-        code    => '!keys %h',
-    },
     'expr::hash::bool_empty_unknown' => {
         desc    => 'empty lexical hash in unknown context',
         setup   => 'my ($i, %h); sub f { if (%h) { $i++ }}',
         setup   => 'my %h = 1..10;',
         code    => '!%h',
     },
-    'expr::hash::bool_full_keys' => {
-        desc    => 'non-empty lexical hash in keys boolean context',
-        setup   => 'my %h = 1..10;',
-        code    => '!keys %h',
-    },
 
 
     (
         setup   => 'my %h = qw(aardvark 1 banana 2 cucumber 3)',
         code    => 'keys %h',
     },
+    'func::keys::lex::bool_cxt_empty' => {
+        desc    => ' keys() on an empty lexical hash in bool context',
+        setup   => 'my %h = ()',
+        code    => '!keys %h',
+    },
+    'func::keys::lex::bool_cxt' => {
+        desc    => ' keys() on a non-empty lexical hash in bool context',
+        setup   => 'my %h = qw(aardvark 1 banana 2 cucumber 3)',
+        code    => '!keys %h',
+    },
     'func::keys::lex::scalar_cxt_empty' => {
         desc    => ' keys() on an empty lexical hash in scalar context',
         setup   => 'my $k; my %h = ()',
         setup   => 'our %h = qw(aardvark 1 banana 2 cucumber 3)',
         code    => 'keys %h',
     },
+    'func::keys::pkg::bool_cxt_empty' => {
+        desc    => ' keys() on an empty package hash in bool context',
+        setup   => 'our %h = ()',
+        code    => '!keys %h',
+    },
+    'func::keys::pkg::bool_cxt' => {
+        desc    => ' keys() on a non-empty package hash in bool context',
+        setup   => 'our %h = qw(aardvark 1 banana 2 cucumber 3)',
+        code    => '!keys %h',
+    },
     'func::keys::pkg::scalar_cxt_empty' => {
         desc    => ' keys() on an empty package hash in scalar context',
         setup   => 'my $k; our %h = ()',