Permalink
Browse files

simplify tests

  • Loading branch information...
1 parent 827e592 commit a850bf0a22c5184820402bc2a1336962fd6b71b6 @moritz moritz committed Dec 2, 2011
Showing with 4 additions and 4 deletions.
  1. +4 −4 S32-scalar/undef.t
View
@@ -198,13 +198,13 @@ Perl6-specific tests
{
my Hash $a_hash;
- ok(!defined($a_hash), "my Hash");
- ok((try { !defined($a_hash<blergh>) }), "my Hash subscript - Mu");
- ok((try { !defined($a_hash<blergh>) }), "my Hash subscript - Mu, no autovivification happened");
+ nok(defined($a_hash), "my Hash");
+ nok(defined($a_hash<blergh>), "my Hash subscript - Mu");
+ nok(defined($a_hash<blergh>), "my Hash subscript - Mu, no autovivification happened");
$a_hash<blergh> = 1;
ok(defined($a_hash.delete('blergh')), "delete");
- ok(!defined($a_hash.delete("blergh")), " - once only");
+ nok(defined($a_hash.delete("blergh")), " - once only");
}

0 comments on commit a850bf0

Please sign in to comment.