| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/Balanced/t/ |
| H A D | extmul.t | 27 sub expect
75 expect [ extract_multiple($text,undef,1) ],
78 expect [ pos $text], [ 4 ];
79 expect [ $text ], [ $stdtext1 ];
83 expect [ scalar extract_multiple($text,undef,1) ],
86 expect [ pos $text], [ 0 ];
87 expect [ $text ], [ substr($stdtext1,4) ];
92 expect [ extract_multiple($text,undef,2) ],
95 expect [ pos $text], [ 10 ];
96 expect [ $text ], [ $stdtext1 ];
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| 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 = (READLINE => $ob);
[all …]
|
| H A D | pow.t | 66 my $expect = 1;
69 within ($got, $expect, $range, "$base ** $n got[$got] expect[$expect]");
70 $expect *= $base;
|
| 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 | regexp.t | 59 ($pat, $subject, $result, $repl, $expect, $reason) = split(/\t/,$_,6);
60 $input = join(':',$pat,$subject,$result,$repl,$expect);
62 infty_subst(\$expect);
93 if (!$match || $got ne $expect) {
|
| 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 = 'hello world';
578 is($x, $expect);
[all …]
|
| /onnv-gate/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 = join '', @gripping;
161 is (read (LEFT, $buffer, length $expect), length $expect, "read on left");
162 is ($buffer, $expect, "content what we expected?");
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
| H A D | Soundex.t | 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";
88 if ($expect ne $got)
92 print "# expected $expect, got $got\n";
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
| 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->{details};
[all …]
|
| 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 | 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},
|
| /onnv-gate/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 => <<'[TheEnd]',
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
| 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
|
| H A D | 32_defer_misc.t | 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($a[4], undef);
196 sub expect { subroutine
|
| /onnv-gate/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;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
| H A D | Builder.pm | 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) unless $test;
394 return $self->cmp_ok($got, '==', $expect, $name);
[all …]
|
| /onnv-gate/usr/src/cmd/fps/fptest/ |
| H A D | benchmarks.c | 101 uint64_t expect; in fpu_fdivd() local
133 expect = *(uint64_t *)&expect_ans; in fpu_fdivd()
136 6340, &observe, &expect, 1, 1, err_data); in fpu_fdivd()
178 uint64_t expect; in fpu_fmuld() local
208 expect = *(uint64_t *)&z; in fpu_fmuld()
211 6341, &observe, &expect, 1, 1, err_data); in fpu_fmuld()
254 uint64_t expect; in fpu_fmulx() local
302 expect = (uint64_t)*rd1; in fpu_fmulx()
307 6356, &observe, &expect, 1, 1, err_data); in fpu_fmulx()
415 uint64_t expect[2]; in align_data() local
[all …]
|
| H A D | cbbcopy.c | 94 uint64_t expect; in cbbcopy() local
102 expect = (uint64_t)datain1[i]; in cbbcopy()
105 6337, &observe, &expect, 1, 1); in cbbcopy()
116 expect = (uint64_t)datain2[i]; in cbbcopy()
119 6338, &observe, &expect, 1, 1); in cbbcopy()
|
| H A D | cheetah_sdc.c | 102 uint64_t expect; in cheetah_sdc_test() local
118 expect = (uint64_t)0; in cheetah_sdc_test()
122 &expect, 1, 1, err_data); in cheetah_sdc_test()
|
| /onnv-gate/usr/src/cmd/tip/aculib/ |
| H A D | v3451.c | 19 static int expect(char *);
47 if (!expect("READY")) { in v3451_dialer()
59 if (!expect("NUMBER?")) { in v3451_dialer()
69 if (!expect(phone)) { in v3451_dialer()
84 if (!expect("DIALING:")) { in v3451_dialer()
93 ok = expect("ON LINE"); in v3451_dialer()
129 expect(char *cp) in expect() function
|
| /onnv-gate/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"
|
| /onnv-gate/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) {
298 my $expect = $constant_types . $C_constant .
400 build_and_run ($num_tests, $expect, \@files);
831 my ($string, $expect) = @_;
838 if (defined $expect) {
841 if (\$error or \$got ne "$expect") {
842 print "not ok $dummytest # error '\$error', expect '$expect', got '\$got'\n";
|
| 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");
|
| /onnv-gate/usr/src/cmd/bnu/ |
| H A D | Dialers | 107 # "" expect nothing
109 # OK\r expect modem to reply OK
111 # OK\r expect modem to reply OK
116 # CONNECT expect "CONNECT" from modem when connected
129 # "" expect nothing
133 # \006 expect ACK from modem
135 # ed expect "ed" (actually "Answered")
151 # "" expect nothing
157 # ed expect "ed" (actually "Answered")
174 # "" expect nothing
[all …]
|
| H A D | Systems | 41 # in the format "[expect send] ...". The expect field
42 # may have subfields in the format "expect[-send-expect]".
|