Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove most remaining .notdef's.

  • Loading branch information...
commit 2544bcfad0ac32d8c3834217c28fc1a6a62b9646 1 parent 08f1960
@jdhore jdhore authored
View
4 S02-builtin_data_types/array_extending.t
@@ -81,8 +81,8 @@ plan 21;
my @a;
@a[2] = 6;
is +@a, 3, '@a[2] = 6 ensures that @a has three items';
- ok @a[0].notdef, '... and the first is not defined';
- ok @a[1].notdef, '... and the second is not defined';
+ nok @a[0].defined, '... and the first is not defined';
+ nok @a[1].defined, '... and the second is not defined';
is @a[2], 6, '... and the third is 6';
}
View
6 S02-builtin_data_types/flattening.t
@@ -43,7 +43,7 @@ plan 33;
is(%hash<k1>.elems, 5, 'k1 has 5 elements');
is(%hash<k1>[0], 11, 'first element in k1 is 11');
is(%hash<k1>[*-1], 15, 'last element in k1 is 15');
- ok(%hash<12>.notdef, 'nothing at key "12"');
+ nok(%hash<12>.defined, 'nothing at key "12"');
}
{
@@ -55,8 +55,8 @@ plan 33;
is(%hash<k1>[*-1], 15, 'last element in k1 is 15');
is(%hash<k2>[0], 21, 'first element in k1 is 21');
is(%hash<k2>[*-1], 25, 'last element in k1 is 25');
- ok(%hash<12>.notdef, 'nothing at key "12"');
- ok(%hash<22>.notdef, 'nothing at key "22"');
+ nok(%hash<12>.defined, 'nothing at key "12"');
+ nok(%hash<22>.defined, 'nothing at key "22"');
}
{
View
4 S02-builtin_data_types/lazy-lists.t
@@ -86,13 +86,13 @@ is( (1..Inf)[2..5],
my @a = (1..Inf);
@a[1].delete;
is ~@a[0, 2], '1 3', 'array elemente delete (1)';
- ok @a[1].notdef, 'array element delete (2)';
+ nok @a[1].defined, 'array element delete (2)';
}
{
my @a = (1..Inf);
@a[0,1].delete;
- ok( all(@a[0, 1]).notdef,
+ nok( all(@a[0, 1]).defined,
"array slice delete()" );
}
View
2  S02-builtin_data_types/nil.t
@@ -35,7 +35,7 @@ ok (my $y = ()).defined, 'assigning () to scalar results in a defined parcel';
is $calls, 2, 'return_nil() called twice';
my $n = return_nil();
- ok $n.notdef, 'variable holding nil is not defined';
+ nok $n.defined, 'variable holding nil is not defined';
}
{
View
2  S02-names_and_variables/contextual.t
@@ -39,7 +39,7 @@ my $o = CT.new;
is CT.foo_priv, 'one', 'back (private class method)';
}
-ok foo().notdef, 'contextual $*VAR is undefined';
+nok foo().defined, 'contextual $*VAR is undefined';
{
sub a1() { @*AR; @*AR.join('|') };
View
6 S02-names_and_variables/variables-and-packages.t
@@ -94,7 +94,7 @@ ok !eval('module COMPILING; 1'), 'COMPILING is an out of scope name';
}
{
- ok foo().notdef, "get variable not yet declared using a sub (1)";
+ nok foo().defined, "get variable not yet declared using a sub (1)";
is foo(), 1, "get variable not yet declared using a sub (2)";
is foo(), 2, "get variable not yet declared using a sub (3)";
@@ -103,7 +103,7 @@ ok !eval('module COMPILING; 1'), 'COMPILING is an out of scope name';
}
{
- ok bar().notdef, "runtime part of my not yet executed (1)";
+ nok bar().defined, "runtime part of my not yet executed (1)";
is bar(), 1, "runtime part of my not yet executed (2)";
is bar(), 2, "runtime part of my not yet executed (3)";
@@ -136,7 +136,7 @@ ok !eval('module COMPILING; 1'), 'COMPILING is an out of scope name';
my $a;
sub rmbl { $a++ }
- ok rmbl().notdef, "var captured by sub is the right var (1)";
+ nok rmbl().defined, "var captured by sub is the right var (1)";
$a++;
is rmbl(), 2, "var captured by sub is the right var (2)";
}
View
2  S04-declarations/my.t
@@ -224,7 +224,7 @@ my $z = 42;
}
{
- ok declare_later().notdef,
+ nok declare_later().defined,
'Can access variable returned from a named closure that is declared below the calling position';
my $x;
sub declare_later {
View
8 S04-phasers/ascending-order.t
@@ -51,10 +51,10 @@ END {
}
is $hist, 'begin check init start ', 'BEGIN {} runs only once';
-ok $var_at_begin.notdef, 'BEGIN {...} ran at compile time';
-ok $var_at_check.notdef, 'CHECK {...} ran at compile time';
-ok $var_at_init.notdef, 'INIT {...} ran at runtime, but ASAP';
-ok $var_at_enter.notdef, 'ENTER {...} at runtime, but before the mainline body';
+nok $var_at_begin.defined, 'BEGIN {...} ran at compile time';
+nok $var_at_check.defined, 'CHECK {...} ran at compile time';
+nok $var_at_init.defined, 'INIT {...} ran at runtime, but ASAP';
+nok $var_at_enter.defined, 'ENTER {...} at runtime, but before the mainline body';
is $var_at_start, 14, 'START {...} at runtime, just in time';
$eof_var = 29;
View
8 S04-phasers/descending-order.t
@@ -45,10 +45,10 @@ BEGIN {
}
is $hist, 'begin check init ', 'BEGIN {} runs only once';
-ok $var_at_begin.notdef, 'BEGIN {...} ran at compile time';
-ok $var_at_check.notdef, 'CHECK {...} ran at compile time';
-ok $var_at_init.notdef, 'INIT {...} ran at runtime, but ASAP';
-ok $var_at_enter.notdef, 'ENTER {...} at runtime, but before the mainline body';
+nok $var_at_begin.defined, 'BEGIN {...} ran at compile time';
+nok $var_at_check.defined, 'CHECK {...} ran at compile time';
+nok $var_at_init.defined, 'INIT {...} ran at runtime, but ASAP';
+nok $var_at_enter.defined, 'ENTER {...} at runtime, but before the mainline body';
$eof_var = 29;
View
4 S04-phasers/exit-in-begin.t
@@ -9,14 +9,14 @@ $failed = 1;
# When we end, we check if $failed is still 0. If yes, we've never reached runtime.
END {
- ok $failed.notdef,
+ nok $failed.defined,
'exit() works in BEGIN {} - $fail not yet initialized at END time';
}
BEGIN {
# Output the TAP header...
plan 2;
- ok $failed.notdef, '$failed not yet initialized in BEGIN {}';
+ nok $failed.defined, '$failed not yet initialized in BEGIN {}';
# ...and exit, implicitly calling END.
exit;
}
View
6 S04-phasers/exit-in-check.t
@@ -9,14 +9,14 @@ $failed = 1;
# When we end, we check if $failed is still 0. If yes, we've never reached runtime.
END {
- ok $failed.notdef,
+ nok $failed.defined,
'exit() works in CHECK {} - $fail not yet initialized at END time';
}
CHECK {
# Output the TAP header...
plan 2;
- ok $failed.notdef, '$failed not yet initialized in CHECK {}';
+ nok $failed.defined, '$failed not yet initialized in CHECK {}';
# ...and exit, implicitly calling END.
exit;
}
@@ -46,7 +46,7 @@ END {
CHECK {
# Output the TAP header...
plan 1;
- ok $failed.notdef, 'exit() works in CHECK {}';
+ nok $failed.defined, 'exit() works in CHECK {}';
# ...and exit, which does _not_ call END.
exit;
}
View
2  S04-phasers/first.t
@@ -19,7 +19,7 @@ plan 4;
$a++;
FIRST { $a_in_first = $a }
}
- ok $a_in_first.notdef, 'FIRST {} ran before the loop body';
+ nok $a_in_first.defined, 'FIRST {} ran before the loop body';
}
# L<S04/Phasers/can occur multiple times>
View
6 S04-phasers/in-eval.t
@@ -18,7 +18,7 @@ our $h;
eval '$handle = { $h ~= "1"; START { $h ~= "F" }; $h ~= "2" }';
ok $! !~~ Exception, 'eval START {...} works';
- ok $h.notdef, 'START {...} has not run yet';
+ nok $h.defined, 'START {...} has not run yet';
lives_ok { $handle() }, 'can run code with START block';
is $h, '1F2', 'START {...} fired';
lives_ok { $handle() }, 'can run code with START block again';
@@ -41,7 +41,7 @@ our $h;
eval '$handle = { $h =~ "r"; INIT { $h ~= "I" }; $h ~= "R" }';
ok $! !~~ Exception, 'eval INIT {...} works';
- ok $h.notdef, 'INIT did not run at compile time';
+ nok $h.defined, 'INIT did not run at compile time';
#?rakudo 4 todo 'Could not find non-existent sub INIT'
lives_ok { $handle() }, 'can run code with INIT block';
is $h, 'IrR', 'INIT {...} fires at run-time';
@@ -90,7 +90,7 @@ our $h;
eval '$handle = { our $end ~= "1"; END { our $end ~= "E" }; our $end ~= "2" }';
ok $! !~~ Exception, 'eval END {...} works';
- ok $end.notdef, 'END {} has not run yet';
+ nok $end.defined, 'END {} has not run yet';
lives_ok { $handle() }, 'can call code with END block';
is $end, '12', 'END {} does not run at run time either';
}
View
2  S04-phasers/interpolate.t
@@ -24,7 +24,7 @@ END {
is $hist, 'BCISE', 'interpolated END {...} executed';
}
-ok "{ END { $hist ~= 'E' } }".notdef,
+nok "{ END { $hist ~= 'E' } }".defined,
'END {...} not yet executed';
is "{ START { $hist ~= 'S' } }", "BCIS",
View
4 S05-grammar/ws.t
@@ -16,9 +16,9 @@ grammar T1 {
ok 'x' ~~ m/^<T1::ws>$/, 'basic sanity with custom <ws> rules';
is $/, 'x', 'correct text captured';
ok 'axb' ~~ m/^<T1::r1>$/, 'implicit <.ws> is overridden';
-ok $<T1::r1><ws>.notdef, 'implicit <.ws> did not capture';
+nok $<T1::r1><ws>.defined, 'implicit <.ws> did not capture';
ok 'axb' ~~ m/^<T1::r2>$/, 'explicit <.ws> is overridden';
-ok $<T1::r2><ws>.notdef, 'explicit <.ws> did not capture';
+nok $<T1::r2><ws>.defined, 'explicit <.ws> did not capture';
ok 'axb' ~~ m/^<T1::r3>$/, 'explicit <ws> is overridden';
is $<T1::r3><ws>, 'x', 'explicit <ws> did capture';
View
2  S05-match/positions.t
@@ -24,7 +24,7 @@ ok($/.from == 3, 'Match.from is 3');
ok($str !~~ m/ Z .+ a /, 'No match');
#?rakudo skip 'unspecced'
-ok($/.from.notdef, 'Match pos is undefined');
+nok($/.from.defined, 'Match pos is undefined');
my regex Aa { A .* a }
#?rakudo 3 skip 'lexical lookup of <Aa>'
View
2  S05-metasyntax/angle-brackets.t
@@ -77,7 +77,7 @@ character classes), and those are referenced at the correct spot.
{
ok '123gb' ~~ / <foo=.alpha> /, '<foo=.bar>';
is $<foo>, 'g', '=. renaming worked';
- ok $<alpha>.notdef, '=. removed the old capture name';
+ nok $<alpha>.defined, '=. removed the old capture name';
}
# If the first character after the identifier is whitespace, the subsequent
View
2  S05-modifier/perl5_0.t
@@ -79,7 +79,7 @@ so it looks like a pugs-pcre interface bug.
{
"a" ~~ m:Perl5/a|(b)/;
- ok($0.notdef, 'An unmatched capture should be undefined.');
+ nok($0.defined, 'An unmatched capture should be undefined.');
my $str = "http://foo.bar/";
ok(($str ~~ m:Perl5 {http{0,1}}));
View
10 S06-signature/named-parameters.t
@@ -124,7 +124,7 @@ is(assign_based_on_named_positional($var => 2), ("y"=>2),
is(eval('named_array2(1, :!y)'), (1, 42, 0), 'named and unnamed args - one named, one pos - backwards');
is(eval('named_array2(:y, 1, :!y)'), (1, 42, 1, 0), 'named and unnamed args - two named, one pos');
- ok(eval('named_array2(:y, :y)').notdef, 'named and unnamed args - two named with same name');
+ nok(eval('named_array2(:y, :y)').defined, 'named and unnamed args - two named with same name');
#?rakudo 4 todo "named arguments not fully up to spec"
is(eval('named_array2(:y, (:x))'), (0, 1, 42, 1), 'named and unnamed args - passing parenthesized pair');
@@ -161,7 +161,7 @@ sub formalize($text, :$case, :$justify) {
{
my ($text,$case,$justify) = formalize('title', case=>'upper');
is($text,'title', "text param was positional");
-ok($justify.notdef, "justification param was not given");
+nok($justify.defined, "justification param was not given");
is($case, 'upper', "case param was named, and in justification param's position");
}
@@ -169,7 +169,7 @@ is($case, 'upper', "case param was named, and in justification param's position"
my ($text,$case,$justify) = formalize('title', justify=>'left');
is($text,'title', "text param was positional");
is($justify, 'left', "justify param was named");
-ok($case.notdef, "case was not given at all");
+nok($case.defined, "case was not given at all");
}
{
@@ -193,7 +193,7 @@ my %fellowship = slurpee(hobbit => 'Frodo', wizard => 'Gandalf');
is(%fellowship<hobbit>, 'Frodo', "hobbit arg was slurped");
is(%fellowship<wizard>, 'Gandalf', "wizard arg was slurped");
is(+%fellowship, 2, "exactly 2 arguments were slurped");
-ok(%fellowship<dwarf>.notdef, "dwarf arg was not given");
+nok(%fellowship<dwarf>.defined, "dwarf arg was not given");
}
{
@@ -203,7 +203,7 @@ ok(%fellowship<dwarf>.notdef, "dwarf arg was not given");
is(+%rest, 2, "exactly 2 arguments were slurped");
is(%rest<sky>, 'blue', "sky argument was slurped");
is(%rest<fire>, 'red', "fire argument was slurped");
- ok(%rest<grass>.notdef, "grass argument was NOT slurped");
+ nok(%rest<grass>.defined, "grass argument was NOT slurped");
}
{
View
2  S06-signature/slurpy-params.t
@@ -139,7 +139,7 @@ Blechschmidt L<http://www.nntp.perl.org/group/perl.perl6.language/22883>
diag("Testing with named arguments (named param isn't required)");
lives_ok { foo 1, x => 20, y => 300, 4000 },
'Testing: `sub foo(:$n, *%h, *@a){ }; foo 1, x => 20, y => 300, 4000`';
- ok (foo1 1, x => 20, y => 300, 4000).notdef,
+ nok (foo1 1, x => 20, y => 300, 4000).defined,
'Testing value for named argument';
is (foo2 1, x => 20, y => 300, 4000), 320,
'Testing value for slurpy *%h';
View
4 S06-signature/unspecified.t
@@ -20,7 +20,7 @@ sub positional { @_[0] }
is &positional.signature, :(Mu *@_),
'signature is :(Mu *@_) when none is specified and @_ is used';
is positional( 'alpha' ), 'alpha', 'can call sub with positional param used';
-ok positional().notdef, 'sub using positional param called with no params';
+nok positional().defined, 'sub using positional param called with no params';
dies_ok { positional( :victor<whiskey> ) },
'sub using positional param called with named param';
@@ -29,7 +29,7 @@ sub named { %_<bravo> }
is &named.signature, :(Mu *%_),
'signature is :(Mu *%_) when none is specified and %_ is used';
is named( :bravo<charlie> ), 'charlie', 'can call sub with named param used';
-ok named().notdef, 'named param sub is callable with no params';
+nok named().defined, 'named param sub is callable with no params';
dies_ok { named( 'zulu' ) }, 'named param sub dies with positional param';
sub both { @_[1] ~ %_<delta> }
View
2  S29-context/eval.t
@@ -28,7 +28,7 @@ is(eval('$foo'), $foo, 'simple eval using variable defined outside');
# traps die?
ok(!eval('die; 1'), "eval can trap die");
-ok(eval('my @a = (1); @a!<0>').notdef, "eval returns undefined on syntax error");
+nok(eval('my @a = (1); @a!<0>').defined, "eval returns undefined on syntax error");
ok(!eval('use Poison; 1'), "eval can trap a fatal use statement");
View
2  S32-list/first.t
@@ -40,7 +40,7 @@ my @list = (1 ... 10);
}
{
- ok(@list.first( { ($^a == 11) }).notdef, 'first returns undefined unsuccessful match');
+ nok(@list.first( { ($^a == 11) }).defined, 'first returns undefined unsuccessful match');
}
{
View
4 S32-num/sign.t
@@ -58,8 +58,8 @@ is(sign(NaN),NaN, 'sign of NaN is NaN');
is(sign(:x(-1.5e-1)), -1, 'got the right sign for -1.5e-1');
}
-ok sign(Int).notdef, 'sign(Int) is undefined';
-ok sign(3+4i).notdef, 'sign(Complex) fails';
+nok sign(Int).defined, 'sign(Int) is undefined';
+nok sign(3+4i).defined, 'sign(Complex) fails';
done;
Please sign in to comment.
Something went wrong with that request. Please try again.