Searched refs:expect (Results 1 - 25 of 79) sorted by relevance

1234

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/
H A DSoundex.t54 $try = "\@expect = $out; \@got = &soundex $in;";
57 if (@expect != @got)
61 print "# expected ", scalar @expect, " results, got ", scalar @got, "\n";
62 print "# expected (", join (', ', @expect),
69 $expect = shift @expect;
72 if ($expect ne $got)
76 print "# expected $expect, got $got\n";
85 $try = "\$expect = $out; \$got = &soundex ($in);";
88 if ($expect n
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/
H A Dpod2html-lib.pl24 my ($expect, $result);
28 $expect = <DATA>;
29 $expect =~ s/\[PERLADMIN\]/$Config::Config{perladmin}/;
31 $expect =~ s/item_mat%3c%21%3e/item_mat%4c%5a%6e/;
40 ok($expect eq $result, $testname) or do {
46 print $tmpfile $expect;
/osnet-11/usr/src/grub/grub2/grub-core/lib/libgcrypt/cipher/
H A Dhash-common.h27 const void *expect, size_t expectlen);
H A Dhash-common.c46 const void *expect, size_t expectlen)
86 if ( memcmp (digest, expect, expectlen) )
44 _gcry_hash_selftest_check_one(int algo, int datamode, const void *data, size_t datalen, const void *expect, size_t expectlen) argument
/osnet-11/usr/src/grub/grub2/grub-core/lib/libgcrypt-grub/cipher/
H A Dhash-common.h30 const void *expect, size_t expectlen);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
H A Dhttp.t37 my @expect = grep /^HTTPS/, keys %ENV;
38 push @expect, 'HTTPS' if not exists $ENV{HTTPS};
39 push @expect, 'HTTPS_KEYSIZE' if not exists $ENV{HTTPS_KEYSIZE};
43 ok eq_set( [$cgi->https()], \@expect), 'list context returns https keys';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dpow.t55 # Unfortunately rather a lot of perl programs expect 2 ** $n to be integer
66 my $expect = 1;
69 within ($got, $expect, $range, "$base ** $n got[$got] expect[$expect]");
70 $expect *= $base;
H A Dtiehandle.t8 my @expect;
16 return unless @expect;
17 return ::fail() unless(@_ == @expect);
20 next if $_[$i] eq $expect[$i];
80 @expect = (TIEHANDLE => 'Implement');
85 @expect = (PRINT => $ob,"some","text");
86 $r = print $fh @expect[2,3];
89 @expect = (PRINTF => $ob,"%s","text");
90 $r = printf $fh @expect[2,3];
94 @expect
[all...]
H A Dregexp.t13 # y expect a match
14 # n expect no match
15 # c expect an error
59 ($pat, $subject, $result, $repl, $expect, $reason) = split(/\t/,$_,6);
60 $input = join(':',$pat,$subject,$result,$repl,$expect);
62 infty_subst(\$expect);
68 $expect =~ s/(\$\{\w+\})/$1/eeg;
69 $expect =~ s/\\n/\n/g;
70 $expect = $repl = '-' if $skip_amp and $input =~ /\$[&\`\']/;
79 if ($err !~ m!^\Q$expect!) { prin
[all...]
H A Dref.t307 my $expect = "pass\n";
311 if ($? == 0 and $result eq $expect) {
315 print "# expected ", _qq ($expect), ", got ", _qq ($result), "\n";
332 my $expect = "1\n*\n*\n1\n";
333 if ($result eq $expect) {
337 foreach ($expect, $result) {
340 print "# expected \"$expect\", got \"$result\"\n";
H A Dgrep.t12 my ($got,$expect) = @_;
13 print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Socket/t/
H A Dsocketpair.t104 my ($buffer, $expect);
105 $expect = join '', @right;
107 is (read (LEFT, $buffer, length $expect), length $expect, "read on left");
108 is ($buffer, $expect, "content what we expected?");
109 $expect = join '', @left;
111 is (read (RIGHT, $buffer, length $expect), length $expect, "read on right");
112 is ($buffer, $expect, "content what we expected?");
159 $expect
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/
H A D32_defer_misc.t32 expect(not exists $a[4]);
34 expect(exists $a[4]);
47 expect($#a, 2);
49 expect($#a, 4);
57 expect($#a, 4);
59 expect($#a, 4);
65 expect($a[4], undef);
76 expect($a[9], undef);
86 expect($a[3], "3");
87 expect(
196 sub expect { subroutine
[all...]
H A D22_autochomp.t76 expect($ac);
79 expect($ac);
82 expect($ac);
83 expect(join("-", @a), "Gold$:-Frankincense$:-Myrrh$:");
86 expect(!$ac);
87 expect(join("-", @a), "Gold-Frankincense-Myrrh");
92 expect(join("-", @sr), "Gold-Frankincense");
97 expect($a1, "Myrrh");
98 expect($a2, "Myrrh");
139 sub expect { subroutine
[all...]
H A D17_misc_meth.t75 expect($del, "I like pie.");
78 expect($del, "GIVE ME PIE");
81 expect($del, "");
84 expect($del, "");
90 expect($del, undef);
121 sub expect { subroutine
140 die "expect() got ", scalar(@_), " args, should have been 1 or 2";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A Doneliner.t29 my($code, $switches, $expect, $name) = @_;
35 $expect =~ s/([^\n])\z/$1\n/ if $^O eq 'VMS';
37 $TB->is_eq(scalar `$cmd`, $expect, $name) || $TB->diag("oneliner:\n$cmd");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/
H A Dchomp.t62 my ($expect, $return);
64 $expect = $start;
69 $expect = $string;
73 is ($string, $expect); # "$enc \$/=$rs $start $end"
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/
H A Dstrap.t106 my $expect = $headers{$header};
112 is( $strap->{skip_all}, $expect->{skip_all}, ' skip_all set right' )
113 if defined $expect->{skip_all};
116 [map $expect->{$_}, grep defined $expect->{$_}, @attribs] ),
175 my $expect = $tests{$line};
180 cmp_ok( $test{$type}, 'eq', $expect->{$type}, " $type" );
211 my $expect = $bails{$line};
217 is( $reason, $expect, ' with the right reason' );
H A Dstrap-analyze.t473 my $expect = $samples{$test};
475 for (0..$#{$expect->{details}}) {
476 $expect->{details}[$_]{type} = ''
477 unless exists $expect->{details}[$_]{type};
478 $expect->{details}[$_]{name} = ''
479 unless exists $expect->{details}[$_]{name};
480 $expect->{details}[$_]{reason} = ''
481 unless exists $expect->{details}[$_]{reason};
489 is_deeply($results{details}, $expect->{details}, "$test details" );
491 delete $expect
[all...]
H A Dtest-harness.t483 my $expect = $samples{$test};
510 is( Test::Harness::_all_ok($totals), $expect->{all_ok},
512 ok( defined $expect->{total}, "$test - has total" );
513 is_deeply( {map { $_=>$totals->{$_} } keys %{$expect->{total}}},
514 $expect->{total},
517 keys %{$expect->{failed}}},
518 $expect->{failed},
H A Dcallback.t61 my $expect = $samples{$test};
66 is_deeply(\@out, $expect, "$test callback");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/x2p/
H A Ds2p.t21 - expect: the expected output
128 expect => <<'[TheEnd]',
144 expect => <<'[TheEnd]',
174 expect => <<'[TheEnd]',
208 expect => <<'[TheEnd]',
236 expect => <<'[TheEnd]',
259 expect => <<'[TheEnd]',
279 expect => <<'[TheEnd]',
305 expect => <<'[TheEnd]',
319 expect
[all...]
/osnet-11/usr/src/lib/brand/shared/brand/amd64/
H A Drunexe.s59 movq %rax, %rsp / Set %rsp to what linkers expect
/osnet-11/usr/src/lib/brand/shared/brand/i386/
H A Drunexe.s59 movl %eax, %esp / Set %esp to what linkers expect
/osnet-11/usr/src/grub/grub2/include/grub/
H A Dfshelp.h60 enum grub_fshelp_filetype expect);

Completed in 77 milliseconds

1234