Searched refs:got (Results 1 - 25 of 74) sorted by relevance

123

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Dstash.t24 my $got;
32 chomp($got = `$^X $path "-MB::Stash" "-Mwarnings" -e1`);
34 $got =~ s/-u//g;
36 print "# got = $got\n";
38 my @got = map { s/^\S+ //; $_ }
41 split /,/, $got;
44 print "# got = @got\n";
46 @got
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dread.t10 $got = read(FOO,$buf,4);
12 print ($got == 4 ? "ok 1\n" : "not ok 1\n");
16 $got = read(FOO,$buf,4);
18 print ($got == 0 ? "ok 3\n" : "not ok 3\n");
H A Dchop.t33 $got = chomp();
34 ok ($got == 1) or print "# got $got\n";
38 $got = chomp();
39 ok ($got == 1) or print "# got $got\n";
43 $got = chomp();
44 ok ($got
[all...]
H A Dhashwarn.t34 my($num, $got, $expected) = @_;
39 $ok = ($got =~ /$pattern/);
40 test $num, $ok, "Expected pattern /$pattern/, got '$got'\n";
42 $ok = ($got eq $expected);
43 test $num, $ok, "Expected string '$expected', got '$got'\n";
45 # print "# $num: $got\n";
H A Dpow.t68 my $got = $base ** $n;
69 within ($got, $expect, $range, "$base ** $n got[$got] expect[$expect]");
H A Dpush.t42 @got = splice(@x, $pos, $len, @list);
45 @got = splice(@x, $pos);
47 if (join(':',@got) eq join(':',@get) &&
52 print "not ok ",$test++," got: @got == @get left: @x == @leave\n";
H A Dregexp.t76 eval "$study; \$match = (\$subject =~ m$pat) while \$c--; \$got = \"$repl\";";
93 if (!$match || $got ne $expect) {
94 print "not ok $. ($study) $input => `$got', match=$match\n";
H A Dgrep.t12 my ($got,$expect) = @_;
13 print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
H A Dgmagic.t15 my($ok, $got, $exp, $rexp, $wexp) = @_;
17 print $ok ? "ok $t\n" : "# expected $exp, got $got\nnot ok $t\n";
/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";
63 ") got (", join (', ', @got), ")\n";
67 while (@got)
70 $got = shift @got;
72 if ($expect ne $got)
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/
H A Dlibnet_t.pl14 my ($got, $expected, $name) = @_;
16 for ($got, $expected) {
20 unless (ok($got eq $expected, $name)) {
21 warn "Got: '$got'\nExpected: '$expected'\n" . join(' ', caller) . "\n";
/osnet-11/usr/src/cmd/sendmail/libsm/
H A Dt-match.c20 got = sm_match(str, pat); \
21 if (!SM_TEST(got == want)) \
24 str, pat, got ? "true" : "false");
31 bool got; local
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dutf.t25 my $got = do "./utf.pl";
26 is($got, $tag);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DBenchmark.t134 my $got = timethis($iterations, sub {++$foo});
136 isa_ok($got, 'Benchmark', "timethis CODEREF");
139 $got = $out->read();
140 like ($got, qr/^timethis $iterations/, 'default title');
141 like ($got, $Default_Pattern, 'default format is all or noc');
145 $got = timethis($iterations, '++$bar');
147 isa_ok($got, 'Benchmark', "timethis eval");
150 $got = $out->read();
151 like ($got, qr/^timethis $iterations/, 'default title');
152 like ($got,
[all...]
H A DExporter.t94 my $got = eval {&lifejacket};
97 ::ok ( $got eq 'lifejacket', 'and that it gave the correct result')
98 or print STDERR "# expected 'lifejacket', got " .
99 (defined $got ? "'$got'" : "undef") . "\n";
105 my $got = eval "&is";
108 ::ok ( $got eq 'Is', 'and that it gave the correct result')
109 or print STDERR "# expected 'Is', got " .
110 (defined $got ? "'$got'"
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/
H A Dchomp.t79 my $got = chomp();
80 is ($got, 0);
85 my $got = chomp();
86 is ($got, 1);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/I18N/Langinfo/t/
H A DLanginfo.t61 my $got = langinfo(&$try);
62 if (ref $want{$try} && $got =~ $want{$try} || $got eq $want{$try}) {
63 print qq[ok $i - $try is "$got"\n];
65 print qq[not ok $i - $try is "$got" not "$want{$try}"\n];
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/
H A Dtest.pl136 my ($got, $expected, $name, @mess) = @_;
139 if( !defined $got || !defined $expected ) {
141 $pass = !defined $got && !defined $expected;
144 $pass = $got eq $expected;
148 unshift(@mess, "# got "._q($got)."\n",
155 my ($got, $isnt, $name, @mess) = @_;
158 if( !defined $got || !defined $isnt ) {
160 $pass = defined $got || defined $isnt;
163 $pass = $got n
[all...]
/osnet-11/usr/src/lib/libwrap/
H A Dmisc.c41 int got; local
45 got = strlen(ptr);
46 if (got >= 1 && ptr[got - 1] == '\n') {
48 if (got >= 2 && ptr[got - 2] == '\\') {
49 got -= 2;
54 ptr += got;
55 len -= got;
/osnet-11/usr/src/grub/grub2/grub-core/kern/emu/
H A Dfull.c55 grub_size_t *tramp, grub_size_t *got)
58 *got = 0;
54 grub_arch_dl_get_tramp_got_size(const void *ehdr __attribute__ ((unused)), grub_size_t *tramp, grub_size_t *got) argument
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Array/
H A Dpush.t23 tie @got,Basic;
/osnet-11/usr/src/grub/grub2/grub-core/kern/ia64/
H A Ddl_helper.c28 grub_size_t *got)
68 *got = cntg;
27 grub_ia64_dl_get_tramp_got_size(const void *ehdr, grub_size_t *tramp, grub_size_t *got) argument
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Ddclone.t43 $got = &dump($aref);
46 print "not " unless $got eq $dumped;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/
H A DSpec.t591 my $got = join ',', eval $function;
603 ok $got, $expected, $function;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/
H A DBuilder.pm169 die "You said to run 0 tests! You've got to run something.\n";
351 $Test->is_eq($got, $expected, $name);
353 Like Test::More's is(). Checks if $got eq $expected. This is the
358 $Test->is_num($got, $expected, $name);
360 Like Test::More's is(). Checks if $got == $expected. This is the
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, 'e
417 got: %s label
[all...]

Completed in 46 milliseconds

123