diff options
| author | Andreas König <a.koenig@mind.de> | 2002-02-26 16:03:55 +0100 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-26 15:48:34 +0000 |
| commit | 3ca925874f58afe830847e3aaacb8dbda2bdcc03 (patch) | |
| tree | 9404fe07df8bf77242a8d16ca452e783c146e2fa /t | |
| parent | 494244503fd690687b35aca99f4243ed5667eb4f (diff) | |
| download | perl-3ca925874f58afe830847e3aaacb8dbda2bdcc03.tar.gz | |
Not OK 5.7.2@14884
Message-Id: <m38z9gfigk.fsf@anima.de>
p4raw-link: @14884 on //depot/perl: 494244503fd690687b35aca99f4243ed5667eb4f
p4raw-id: //depot/perl@14886
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/access.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/lib/access.t b/t/lib/access.t index 815808c387..da7193e6d4 100644 --- a/t/lib/access.t +++ b/t/lib/access.t @@ -34,15 +34,15 @@ ok(!access::readonly($hash{two},1)); eval { $hash{'three'} = 3 }; #warn "$@"; -ok($@ =~ /^Attempt to access to key 'three' in fixed hash/); +ok($@ =~ /^Attempt to access key 'three' in fixed hash/); eval { print "# oops" if $hash{'four'}}; #warn "$@"; -ok($@ =~ /^Attempt to access to key 'four' in fixed hash/); +ok($@ =~ /^Attempt to access key 'four' in fixed hash/); eval { $hash{"\x{2323}"} = 3 }; #warn "$@"; -ok($@ =~ /^Attempt to access to key '(.*)' in fixed hash/); +ok($@ =~ /^Attempt to access key '(.*)' in fixed hash/); #ok(ord($1) == 0x2323); eval { delete $hash{'two'}}; @@ -56,7 +56,7 @@ ok($hash{two} == 2); eval { delete $hash{'four'}}; #warn "$@"; -ok($@ =~ /^Attempt to access to key 'four' in fixed hash/); +ok($@ =~ /^Attempt to access key 'four' in fixed hash/); ok(not exists $hash{'one'}); |