Lines Matching refs:test
49 my $test;
71 unless (ok ++$test, "@in_keys" eq "@out_keys") {
79 ok ++$test, Internals::SvREADONLY(%$copy), "cloned hash restricted?";
81 ok ++$test, Internals::SvREADONLY($copy->{question}),
84 ok ++$test, !Internals::SvREADONLY($copy->{answer}),
88 unless (ok ++$test, !$@, "Can assign to reserved key 'extra'?") {
95 ok ++$test, $@, "Can not assign to invalid key 'nono'?";
97 ok ++$test, exists $copy->{undef},
100 ok ++$test, !defined $copy->{undef},
123 unless (ok ++$test, !$@, "Can assign to reserved key '$k'?") {