| /openbsd/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | store.t | 33 isnt(store(\@a, "store$$"), undef);
36 isnt($dumped, undef);
39 isnt($root, undef);
42 isnt($got, undef);
64 isnt(store_fd(\@a, ::OUT), undef);
68 isnt(close(OUT), undef);
73 isnt($r, undef);
77 isnt($r, undef);
81 isnt($r, undef);
85 isnt($r, undef);
[all …]
|
| H A D | freeze.t | 39 isnt($f1, undef);
42 isnt($dumped, undef);
45 isnt($root, undef);
48 isnt($got, undef);
64 isnt($f2, undef);
67 isnt($f3, undef);
70 isnt($root3, undef);
110 isnt($@, '');
|
| H A D | retrieve.t | 34 isnt(store(\@a, "store$$"), undef);
36 isnt(nstore(\@a, 'nstore'), undef);
41 isnt($root, undef);
45 isnt($root, undef);
49 isnt($d1, undef);
51 isnt($d2, undef);
56 isnt($root->[1], undef);
|
| H A D | tied.t | 151 isnt($f, undef);
154 isnt($dumped, undef);
157 isnt($root, undef);
160 isnt($got, undef);
195 isnt($hf, undef);
201 isnt($ht, undef);
222 isnt($t, undef);
|
| H A D | dclone.t | 34 isnt($aref, undef);
37 isnt($dumped, undef);
40 isnt($got, undef);
56 isnt($r, undef);
|
| H A D | forgive.t | 41 isnt($@, '');
55 isnt($result, undef);
59 isnt($ret, undef);
|
| H A D | tied_hook.t | 167 isnt($f, undef);
169 isnt($dumped, undef);
172 isnt($root, undef);
175 isnt($got, undef);
177 isnt($got, $dumped); # our hooks did not handle refs in array
|
| /openbsd/gnu/usr.bin/perl/cpan/Test-Harness/t/ |
| H A D | source.t | 158 isnt( delete $file->{read}, undef, '... file->read set' );
159 isnt( delete $file->{write}, undef, '... file->write set' );
160 isnt( delete $file->{execute}, undef, '... file->execute set' );
211 isnt( delete $file->{size}, undef, '... file->size set' );
212 isnt( delete $file->{binary}, undef, '... file->binary set' );
213 isnt( delete $file->{empty}, undef, '... file->empty set' );
214 isnt( delete $file->{read}, undef, '... file->read set' );
215 isnt( delete $file->{write}, undef, '... file->write set' );
216 isnt( delete $file->{execute}, undef, '... file->execute set' );
278 isnt( delete $file->{read}, undef, '... file->read set' );
[all …]
|
| /openbsd/gnu/usr.bin/perl/t/op/ |
| H A D | filetest.t | 22 isnt(-f 'op', 1, "-f: directory is not a plain file");
23 isnt(-d 'TEST', 1, "-d: plain file is not a directory");
56 isnt(-w $ro_empty_file, 1, "-w: file writable by effective uid/gid");
77 isnt(-f -d _, 1, "-f and -d stackable: no plain file found");
78 isnt(defined( -e 'zoo' ), 1, "-e: file does not exist");
79 isnt(defined( -e -d 'zoo' ), 1, "-e and -d: neither file nor directory exists");
85 isnt( -f -d 'op', 1, "-f and -d: directory found but is not a plain file");
125 isnt(-l -e _, 1, 'stacked -l uses previous stat, not previous retval');
218 isnt( $rv, undef, "overloaded -$op succeeds" )
266 isnt(stat _, 1,
[all …]
|
| H A D | decl-refs.t | 48 isnt $ret, \~::a, 'MY \$a ret val is not pkg var';
51 isnt $ret[0], \~::b, 'first retval of MY \(~b, ~c) is not pkg var';
52 isnt $ret[1], \~::c, '2nd retval of MY \(~b, ~c) is not pkg var';
55 isnt $ret[0], \~::d, 'first retval of MY (\(~d, ~e)) is not pkg var';
56 isnt $ret[1], \~::e, '2nd retval of MY (\(~d, ~e)) is not pkg var';
59 isnt ${$ret[0]}, \~::f, 'first retval of MY (\~f, ~g) is not \~::f';
61 isnt $ret[1], \~::g, '2nd retval of MY (\~f, ~g) is not ~::g';
80 isnt $$ret, \~::i, 'retval of MY \\~i is ref to ref to ~::i';
84 isnt $$ret, \~::i, 'retval of MY (\\~i) is ref to ref to ~::i';
114 isnt \~x, \~::x, '\~x is not equivalent to \~::x';
|
| H A D | sub.t | 25 isnt \sub { delete $foo{bar} }->(), \$x,
30 isnt \sub { return delete $foo{bar} }->(), \$x,
34 isnt \sub { delete $_[0] }->($x), \$x,
36 isnt \sub { return delete $_[0] }->($x), \$x,
38 isnt \sub { ()=\@_; shift }->($x), \$x,
40 isnt \sub { ()=\@_; return shift }->($x), \$x,
47 isnt($_[0], $$r, "result of delete(helem) is copied: practical test");
|
| /openbsd/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/Tools/ |
| H A D | Tiny.t | 11 is isnt
28 isnt("foo", "bar", "'isnt' test");
29 isnt("foo", undef, "'isnt' undef test 1");
30 isnt(undef, "foo", "'isnt' undef test 2");
63 isnt("foo", "foo", "'isnt' test");
79 my ($plan, $ok, $is, $isnt, $like, $unlike, $is_deeply) = grep {!$_->isa('Test2::Event::Diag')} @$m…
91 ok($isnt->isa('Test2::Event::Fail'), "got 'isnt' result");
124 isnt(undef, undef);
|
| /openbsd/gnu/usr.bin/perl/t/io/ |
| H A D | perlio_fail.t | 26 isnt($!,0,"Got errno");
32 isnt($!,0,"Got errno");
39 isnt($!,"","Got errno");
45 isnt($!,0,"Got errno");
|
| /openbsd/gnu/usr.bin/perl/t/uni/ |
| H A D | eval.t | 32 isnt eval "q!\360\237\220\252!", eval "q!\x{1f42a}!";
38 isnt eval $not_utf8, eval "q!\x{30cb}!";
41 isnt eval $not_utf8, eval "q!\x{30cb}!";
|
| /openbsd/gnu/usr.bin/perl/cpan/autodie/t/ |
| H A D | exception_class.t | 21 isnt($@,"",'$@ should not be empty');
37 isnt($@,"",'$@ should not be empty');
53 isnt("$@","",'$@ should not be empty');
|
| H A D | hints.t | 70 isnt("$@", "", "Copying in scalar context should throw an error.");
92 isnt("$@", "", "Copying in list context should throw an error.");
148 isnt("$@", "", $test);
|
| /openbsd/gnu/usr.bin/perl/t/comp/ |
| H A D | opsubs.t | 64 sub isnt { subroutine
119 isnt( m('unqualified'), "m-unqualified", "m('unqualified') is oper" );
126 isnt( q('unqualified'), "q-unqualified", "q('unqualified') is oper" );
132 isnt( qq('unqualified'), "qq-unqualified", "qq('unqualified') is oper" );
138 isnt( qr('unqualified'), "qr-unqualified", "qr('unqualified') is oper" );
144 isnt( qw('unqualified'), "qw-unqualified", "qw('unqualified') is oper" );
|
| /openbsd/gnu/usr.bin/perl/dist/Data-Dumper/t/ |
| H A D | indent.t | 49 isnt($dumpstr{noindent}, $dumpstr{indent_0},
51 isnt($dumpstr{indent_0}, $dumpstr{indent_1},
79 isnt($dumpstr{ar_indent_2}, $dumpstr{ar_indent_3},
96 isnt($dumpstr{noindent}, $dumpstr{indent_1},
|
| /openbsd/gnu/usr.bin/perl/ext/XS-APItest/t/ |
| H A D | synthetic_scope.t | 17 isnt \$foo, $rfoo;
21 isnt \$bar, $rbar;
25 isnt \$baz, $rbaz;
|
| /openbsd/gnu/usr.bin/perl/ext/GDBM_File/t/ |
| H A D | fatal.t | 31 isnt($fileno, undef, "Can find next available file descriptor");
43 isnt((open $fh, "<&=$fileno"), undef, "dup fileno $fileno")
45 isnt(close $fh, undef,
|
| /openbsd/gnu/usr.bin/perl/dist/Net-Ping/t/ |
| H A D | 200_ping_tcp.t | 48 isnt($p->ping("localhost"), 0, 'Test on the default port');
56 isnt($p->{port_num} = (getservbyname("http", "tcp") || 80), undef, "getservbyname http");
59 isnt($p->ping("localhost"), 0, 'Test localhost on the web port');
63 isnt($p->ping("localhost"), 0, "localhost on the web port unexpectedly worked on $^O");
77 isnt($p->ping($_), 0, "Can ping $_");
|
| /openbsd/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/ |
| H A D | undef.t | 45 isnt( undef, 'foo', 'undef isnt foo');
48 isnt( undef, '', 'undef isnt an empty string' );
49 isnt( undef, 0, 'undef isnt zero' );
|
| /openbsd/gnu/usr.bin/perl/cpan/bignum/t/ |
| H A D | scope-bigfloat.t | 14 isnt(ref(1), '', 'is in effect');
15 isnt(ref(2.0), '', 'is in effect');
16 isnt(ref(0x20), '', 'is in effect');
|
| H A D | scope-bigint.t | 14 isnt(ref(1), '', 'is in effect');
15 isnt(ref(2.0), '', 'is in effect');
16 isnt(ref(0x20), '', 'is in effect');
|
| H A D | scope-bigrat.t | 14 isnt(ref(1), '', 'is in effect');
15 isnt(ref(2.0), '', 'is in effect');
16 isnt(ref(0x20), '', 'is in effect');
|