/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
H A D | Soundex.t | 54 $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 D | pod2html-lib.pl | 24 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 D | hash-common.h | 27 const void *expect, size_t expectlen);
|
H A D | hash-common.c | 46 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 D | hash-common.h | 30 const void *expect, size_t expectlen);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | http.t | 37 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 D | pow.t | 55 # 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 D | tiehandle.t | 8 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 D | regexp.t | 13 # 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 D | ref.t | 307 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 D | grep.t | 12 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 D | socketpair.t | 104 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 D | 32_defer_misc.t | 32 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 D | 22_autochomp.t | 76 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 D | 17_misc_meth.t | 75 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 D | oneliner.t | 29 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 D | chomp.t | 62 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 D | strap.t | 106 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 D | strap-analyze.t | 473 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 D | test-harness.t | 483 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 D | callback.t | 61 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 D | s2p.t | 21 - 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 D | runexe.s | 59 movq %rax, %rsp / Set %rsp to what linkers expect
|
/osnet-11/usr/src/lib/brand/shared/brand/i386/ |
H A D | runexe.s | 59 movl %eax, %esp / Set %esp to what linkers expect
|
/osnet-11/usr/src/grub/grub2/include/grub/ |
H A D | fshelp.h | 60 enum grub_fshelp_filetype expect);
|