/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/ |
H A D | write.t | 31 my ($out, $format, $expect, $name) = @_; 41 is($result, $expect, $name);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | pack.t | 269 while (my ($format, $expect) = splice @lengths, 0, 2) { 271 if ($expect > 0) { 272 is($expect, $len, "format '$format'"); 274 $expect = -$expect; 275 ok ($len >= $expect, "format '$format'") || 276 print "# format '$format' has length $len, expected >= $expect\n"; 572 my $expect = "\000\006string\0\0\0\012hi there \000\003etc"; 573 is($z, $expect); 576 $expect [all...] |
H A D | cmp.t | 39 $expect = 7 * ($#FOO+2) * ($#FOO+1); 40 print "1..$expect\n";
|
H A D | pat.t | 326 $expect = "(bla()) ((l)u((e))) (l(e)e)"; 362 print "# ans='@ans'\n# expect='$expect'\nnot " if "@ans" ne "1 1 1"; 368 print "# ans='@ans'\n# expect='$expect'\nnot " if "@ans" ne $expect; 382 print "# ans='@ans'\n# expect='$expect'\nnot " if "@ans" ne "1 1 1"; 386 print "# ans1='@ans1'\n# expect='$expect'\nno [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | blessed.t | 136 my $expect = $::immortals{$what}; 137 die "'$x' did not give a reference" unless ref $expect; 140 $fail++ if $_ != $expect;
|
H A D | downgrade.t | 247 my $expect = thaw $tests{"Hash with utf8 keys for $what"}; 248 thaw_hash ('Hash with utf8 keys', $expect); 249 #foreach (keys %$expect) { print "'$_':\t'$expect->{$_}'\n"; } 257 my $hash = thaw_hash ('Locked hash with utf8 keys', $expect);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Devel/ |
H A D | SelfStubber.t | 135 my ($expect, $got) = @_; 136 foreach (sort keys %$expect) { 137 print "# $_ expect '$$expect{$_}' got '$$got{$_}'\n";
|
/osnet-11/usr/src/grub/grub2/grub-core/lib/libgcrypt/cipher/ |
H A D | hmac-tests.c | 52 const void *expect, size_t expectlen) 74 if (memcmp (digest, expect, expectlen)) 168 const char expect[28]; member in struct:__anon515 258 tv[tvidx].expect, DIM (tv[tvidx].expect) ); 282 const char expect[32]; member in struct:__anon516 376 tv[tvidx].expect, DIM (tv[tvidx].expect) ); 394 if (dlen != DIM (tv[tvidx].expect) 395 || memcmp (digest, tv[tvidx].expect, DI 49 check_one(int algo, const void *data, size_t datalen, const void *key, size_t keylen, const void *expect, size_t expectlen) argument 424 const char expect[48]; member in struct:__anon517 550 const char expect[64]; member in struct:__anon518 [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
H A D | Builder.pm | 186 Gets/sets the # of tests we expect this test to run and prints out 366 my($self, $got, $expect, $name) = @_; 369 if( !defined $got || !defined $expect ) { 371 my $test = !defined $got && !defined $expect; 374 $self->_is_diag($got, 'eq', $expect) unless $test; 378 return $self->cmp_ok($got, 'eq', $expect, $name); 382 my($self, $got, $expect, $name) = @_; 385 if( !defined $got || !defined $expect ) { 387 my $test = !defined $got && !defined $expect; 390 $self->_is_diag($got, '==', $expect) unles [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | utf8.t | 126 eval $show or die $@; # We don't expect this sub definition to fail. 175 my ($why, $prog, $expect) = @$_; 187 like ($result, $expect, $why); 195 my ($why, $prog, $expect) = @$_; 202 like ($result, $expect, $why); 208 # This is the control - I don't expect it to fail 262 my ($why, $prog, $expect) = @$_; 265 like ($result, $expect, $why);
|
H A D | overload.t | 1139 my $expect = eval $rcode; 1141 test ($got, $expect, $ocode) or print "# $rcode\n";
|
H A D | Test.pm | 236 ok($have, $expect); 237 ok($have, $expect, $diagnostics); 659 This almost definitely doesn't do what you expect: 677 a simple signal of success, as you would expect. 686 Moreover, users may expect this:
|
H A D | sort.pm | 157 expect, because I<both> pragmas take effect at compile time, before
|
/osnet-11/usr/src/grub/grub2/util/ |
H A D | grub-reboot.in | 44 --boot-directory=DIR expect GRUB images under the directory DIR/@grubdirname@
|
H A D | grub-set-default.in | 44 --boot-directory=DIR expect GRUB images under the directory DIR/@grubdirname@
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Cwd/t/ |
H A D | cwd.t | 155 my ($dir, $expect) = (shift, shift); 156 my $bracketed_expect = quotemeta bracketed_form($expect);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | safe2.t | 132 die "Eek! Didn't expect $nosuch to be there.";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
H A D | Constant.t | 84 my %expect = map {($^O eq 'VMS' ? lc($_) : $_), 1} @_; 90 next if $expect{$entry}; 105 my ($tests, $expect, $files) = @_; 204 if ($expect eq $regen) { 208 # open FOO, ">expect"; print FOO $expect; 298 my $expect = $constant_types . $C_constant . 400 build_and_run ($num_tests, $expect, \@files); 755 # Flag an expected error with a reference for the expect string. 756 my ($string, $expect, [all...] |
H A D | MM_Unix.t | 199 while( my($code, $expect) = each %versions ) { 204 is( $t->parse_version('VERSION.tmp'), $expect, $code );
|
H A D | Manifest.t | 198 my %expect = ( 'makefile.pl' => '', 201 is_deeply( $files, \%expect, 'maniadd() vs MANIFEST without trailing newline');
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/ |
H A D | posix.t | 182 my $expect = shift; 184 is($got, $expect, "validating mini_mktime() and strftime(): $expect");
|
/osnet-11/usr/src/lib/libnsl/dial/ |
H A D | conn.c | 47 static int expect(char *, int); 389 ok = expect(want, fn); 412 * expect(str, fn) look for expected string w/ possible special chars 422 expect(char *str, int fn) function 479 CDEBUG(4, "expect: (%s", ""); 528 * alarmtr() - catch alarm routine for "expect".
|
/osnet-11/usr/src/lib/efcode/engine/ |
H A D | env.c | 169 expect(fcode_env_t *env) function 174 CHECK_DEPTH(env, 2, "expect"); 836 ANSI(0x08a, 0, "expect", expect);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/MakeMaker/Test/ |
H A D | Utils.pm | 242 would expect to see on a screen.
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Class/ |
H A D | ISA.pm | 112 that I expect Class::ISA functions to be put to, but if it matters to
|