| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| H A D | fail-more.t | 77 cmp_ok( 'foo', 'eq', 'bar', 'cmp_ok eq' );
78 cmp_ok( 42.1, '==', 23, , ' ==' );
79 cmp_ok( 42, '!=', 42 , ' !=' );
80 cmp_ok( 1, '&&', 0 , ' &&' );
81 cmp_ok( 42, '==', "foo", ' == with strings' );
82 cmp_ok( 42, 'eq', "foo", ' eq with numbers' );
83 cmp_ok( undef, 'eq', 'foo', ' eq with undef' );
89 cmp_ok( $!, 'eq', '', ' eq with stringified errno' );
90 cmp_ok(
[all...] |
| H A D | More.t | 130 cmp_ok(42, '==', 42, 'cmp_ok ==');
131 cmp_ok('foo', 'eq', 'foo', ' eq');
132 cmp_ok(42.5, '<', 42.6, ' <');
133 cmp_ok(0, '||', 1, ' ||');
150 cmp_ok( $!, '==', $Errno, '$! untouched' );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | pow.t | 51 cmp_ok ($remainder, '==', 0, 'Sanity check bits in UV calculation')
61 cmp_ok ($pow, '==', $int, "2 ** $n vs 1 << $n");
|
| H A D | pack.t | 140 cmp_ok(unpack ('w',$x), '==', ~0 - 1);
141 cmp_ok(unpack ('w',$y), '==', ~0 - 2);
157 cmp_ok(unpack ('w',$x), '==', $x0);
158 cmp_ok(unpack ('w',$y), '==', $y0);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
| H A D | utf8hash.t | 141 cmp_ok $copy, '==', $object, "and that it returns the same object";
156 cmp_ok ($l, '==', $r);
167 cmp_ok ($l, '==', $r, sprintf "key length %d", length $_);
180 cmp_ok (scalar keys %$just_utf8, '==', 1, "1 key in utf8?");
181 cmp_ok ($just_utf8->{$char}, '==', 1, "utf8 key present?");
191 cmp_ok (scalar keys %$just_bytes, '==', 1, "1 key in bytes?");
192 cmp_ok ($just_bytes->{$bytes}, '==', 1, "bytes key present?");
205 cmp_ok (scalar keys %$both, '==', 2, "2 keys?");
206 cmp_ok ($both->{$bytes}, '==', length $bytes, "bytes key present?");
207 cmp_ok (
[all...] |
| H A D | interwork56.t | 109 cmp_ok ($$result[2] ^ $value, '==', 0, "3rd element") or
127 cmp_ok (length ($header_kludge->{byteorder}), '==', $Config{longsize},
|
| H A D | downgrade.t | 223 cmp_ok ($l, '==', $r, sprintf "key length %d", length $_);
224 cmp_ok ($l, '==', $_ eq "ch\xe5teau" ? 0 : 1);
232 cmp_ok ($l, '==', $r, sprintf "key length %d", length $_);
233 cmp_ok ($l, '==', $_ eq "ch\xe5teau" ? 0 : 1);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | DirHandle.t | 31 cmp_ok(+(join("\0", @b), 'eq', join("\0", @c)));
|
| H A D | h2xs.t | 158 cmp_ok ($?, "==", 0, "running $prog ");
218 cmp_ok (unlink ($header), "==", 1, "unlink '$header'") or die "\$! is $!";
|
| H A D | AutoSplit.t | 123 cmp_ok ($output, 'eq', $args{Get}, "Output from autosplit()ing $args{Name}");
|
| H A D | DB.t | 84 cmp_ok( DB::_clientname('bar'), 'eq', '',
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| H A D | Command.t | 61 cmp_ok( ! test_f(), '==', (-f $Testfile), 'testing non-existent file' );
81 cmp_ok( abs($now - $stamp), '<=', 1, 'checking modify time stamp' ) ||
88 cmp_ok( abs($new_stamp - $stamp), '>=', 2, 'newer file created' );
94 cmp_ok( abs($new_stamp - $stamp), '<=', 1, 'eqtime' );
|
| H A D | recurs.t | 50 cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) ||
73 cmp_ok( $?, '==', 0, 'Makefile.PL NORECURS=1 exited with zero' ) ||
98 cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) ||
|
| H A D | basic.t | 47 cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) ||
63 cmp_ok( $Touch_Time, '<=', $mtime, ' its been touched' );
234 cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) || diag(@mpl_out);
242 cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) || diag(@mpl_out);
251 cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) || diag(@mpl_out);
|
| H A D | split_command.t | 27 cmp_ok( $mm->max_exec_len, '>=', 256, 'max_exec_len' );
|
| H A D | MM_Unix.t | 43 cmp_ok ($ExtUtils::MM_Unix::VERSION, '>=', '1.12606', 'Should be at least version 1.12606');
|
| H A D | Manifest.t | 102 cmp_ok( $warn, 'eq', '', 'disabled warnings' );
|
| /osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Lgrp/t/ |
| H A D | Lgrp_api.t | 100 cmp_ok(@children, '<=', @leaves, 'Root should have nchildren <= nleaves');
219 cmp_ok($latency, '>', 0, "Latency from root to self should be positive");
304 cmp_ok($min_latency, '>', 0, 'Minimum latency should be positive') if
306 cmp_ok($min_latency, '<=', $max_latency,
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/ |
| H A D | InputObjects.t | 40 cmp_ok( $p_p2->cmd_name(), 'eq', '',
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
| H A D | strap.t | 180 cmp_ok( $test{$type}, 'eq', $expect->{$type}, " $type" );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
| H A D | More.pm | 25 cmp_ok
76 cmp_ok($this, '==', $that, $test_name);
391 =item B<cmp_ok>
393 cmp_ok( $this, $op, $that, $test_name );
395 Halfway between ok() and is() lies cmp_ok(). This allows you to
399 cmp_ok( $this, 'eq', $that, 'this eq that' );
402 cmp_ok( $this, '==', $that, 'this == that' );
405 cmp_ok( $this, '&&', $that, 'this || that' );
420 cmp_ok( $big_hairy_number, '==', $another_big_hairy_number );
424 sub cmp_ok( subroutine
[all...] |
| H A D | Builder.pm | 378 return $self->cmp_ok($got, 'eq', $expect, $name);
394 return $self->cmp_ok($got, '==', $expect, $name);
452 return $self->cmp_ok($got, 'ne', $dont_expect, $name);
468 return $self->cmp_ok($got, '!=', $dont_expect, $name);
579 =item B<cmp_ok>
581 $Test->cmp_ok($this, $type, $that, $name);
583 Works just like Test::More's cmp_ok().
585 $Test->cmp_ok($big_num, '!=', $other_big_num);
589 sub cmp_ok { subroutine
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/ |
| H A D | test.pl | 173 sub cmp_ok ($$$@) { subroutine
|