Permalink
Browse files

Fiddled with tests a bit

  • Loading branch information...
1 parent 28e50c4 commit f919bd4ccc4239fb3ec73c1a0b43dece042f2ee6 @davorg committed May 22, 2004
Showing with 4 additions and 1 deletion.
  1. +1 −1 t/pod.t
  2. +3 −0 t/test.t
View
@@ -6,4 +6,4 @@ BEGIN {
use Test::Pod tests => scalar @pod;
-pod_ok($_) for @pod;
+pod_file_ok($_) for @pod;
View
@@ -11,5 +11,8 @@ my %hash : Stoned;
my @keys = qw(one two three four);
@hash{@keys} = 1 .. 4;
+my $k = (keys %hash)[0];
+my $v = $hash{$k} for 1 .. 10;
+my $e = exists $hash{$k};
ok(1) for 2 .. 5;

0 comments on commit f919bd4

Please sign in to comment.