Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

simplify tests

  • Loading branch information...
commit a850bf0a22c5184820402bc2a1336962fd6b71b6 1 parent 827e592
@moritz moritz authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 S32-scalar/undef.t
View
8 S32-scalar/undef.t
@@ -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");
}
Please sign in to comment.
Something went wrong with that request. Please try again.