Searched refs:expect (Results 26 - 50 of 79) sorted by relevance

1234

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/
H A Dwrite.t31 my ($out, $format, $expect, $name) = @_;
41 is($result, $expect, $name);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dpack.t269 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 Dcmp.t39 $expect = 7 * ($#FOO+2) * ($#FOO+1);
40 print "1..$expect\n";
H A Dpat.t326 $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 Dblessed.t136 my $expect = $::immortals{$what};
137 die "'$x' did not give a reference" unless ref $expect;
140 $fail++ if $_ != $expect;
H A Ddowngrade.t247 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 DSelfStubber.t135 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 Dhmac-tests.c52 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 DBuilder.pm186 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 Dutf8.t126 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 Doverload.t1139 my $expect = eval $rcode;
1141 test ($got, $expect, $ocode) or print "# $rcode\n";
H A DTest.pm236 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 Dsort.pm157 expect, because I<both> pragmas take effect at compile time, before
/osnet-11/usr/src/grub/grub2/util/
H A Dgrub-reboot.in44 --boot-directory=DIR expect GRUB images under the directory DIR/@grubdirname@
H A Dgrub-set-default.in44 --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 Dcwd.t155 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 Dsafe2.t132 die "Eek! Didn't expect $nosuch to be there.";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DConstant.t84 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 DMM_Unix.t199 while( my($code, $expect) = each %versions ) {
204 is( $t->parse_version('VERSION.tmp'), $expect, $code );
H A DManifest.t198 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 Dposix.t182 my $expect = shift;
184 is($got, $expect, "validating mini_mktime() and strftime(): $expect");
/osnet-11/usr/src/lib/libnsl/dial/
H A Dconn.c47 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 Denv.c169 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 DUtils.pm242 would expect to see on a screen.
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Class/
H A DISA.pm112 that I expect Class::ISA functions to be put to, but if it matters to

Completed in 48 milliseconds

1234