Permalink
Browse files

Add more tests for timethese()

  • Loading branch information...
1 parent b8a9aaa commit 5dc77a1bcadff093c04c9082902a9023f5871214 @tadzik tadzik committed Aug 24, 2011
Showing with 5 additions and 1 deletion.
  1. +5 −1 t/basic.t
View
6 t/basic.t
@@ -1,6 +1,6 @@
use Benchmark;
use Test;
-plan 19;
+plan 23;
my $count = 1;
@@ -15,3 +15,7 @@ ok $a ~~ Positional;
my %h = foo => $code-sub, bar => $code-str;
$a = timethese 4, %h; # 8 runs
ok $a ~~ Hash;
+ok $a.exists: 'foo';
+ok $a.exists: 'bar';
+ok $a<foo> ~~ Positional;
+ok $a<bar> ~~ Positional;

0 comments on commit 5dc77a1

Please sign in to comment.