| /osnet-11/usr/src/grub/grub2/tests/ |
| H A D | printf_unit_test.c | 28 char expected[512]; local
30 snprintf (expected, sizeof (expected), "%d %d %d", 1, 2, 3);
31 grub_test_assert (strcmp (real, expected) == 0);
33 snprintf (expected, sizeof (expected), "%3$d %2$d %1$d", 1, 2, 3);
34 grub_test_assert (strcmp (real, expected) == 0);
36 snprintf (expected, sizeof (expected), "%d %lld %d", 1, 2LL, 3);
37 grub_test_assert (strcmp (real, expected)
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | bless.t | 10 sub expected { subroutine
26 print expected($a1, "A", "HASH"), "ok 1\n";
28 print expected($b1, "B", "ARRAY"), "ok 2\n";
30 print expected($c1, "C", "SCALAR"), "ok 3\n";
32 print expected($d1, "D", "GLOB"), "ok 4\n";
34 print expected($e1, "E", "CODE"), "ok 5\n";
36 print expected($f1, "F", "REF"), "ok 6\n";
38 print expected($g1, "G", "LVALUE"), "ok 7\n";
42 print expected(bless(\$a1, "F"), "F", "REF"), "ok 8\n";
43 print expected(
[all...] |
| H A D | hashwarn.t | 34 my($num, $got, $expected) = @_;
36 if (($pattern) = ($expected =~ m#^/(.+)/$#s) or
37 (undef, $pattern) = ($expected =~ m#^m([^\w\s])(.+)\1$#s)) {
42 $ok = ($got eq $expected);
43 test $num, $ok, "Expected string '$expected', got '$got'\n";
50 my $ref_msg = '/^Reference found where even-sized list expected/';
|
| H A D | sort.t | 42 $expected = $upperfirst ? 'AbelCaincatdogx' : 'catdogxAbelCain';
43 print "# 1: x = '$x', expected = '$expected'\n";
44 print ($x eq $expected ? "ok 1\n" : "not ok 1\n");
47 $expected = $upperfirst ? 'xdogcatCainAbel' : 'CainAbelxdogcat';
48 print "# 2: x = '$x', expected = '$expected'\n";
49 print ($x eq $expected ? "ok 2\n" : "not ok 2\n");
52 $expected = $upperfirst ? 'xdogcatCainAbel' : 'CainAbelxdogcat';
53 print "# 3: x = '$x', expected
[all...] |
| H A D | anonsub.t | 30 my($prog,$expected) = split(/\nEXPECT\n/, $_);
45 # allow expected output to be written as if $prog is on STDIN
48 $expected =~ s/\n+$//;
49 if ($results ne $expected) {
51 print STDERR "EXPECTED:\n$expected\n";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | dbm_filter_util.pl | 26 my $expected = shift ;
27 my %expected = %$expected;
32 ok ref $expected eq 'HASH', "Expected data is a hash reference";
38 if ($expected{$k} eq $v) {
40 delete $expected{$k} ;
48 if( ! ok(keys(%bad) + keys(%expected) == 0, "Expected == Actual") ) {
50 if (keys %expected ) {
52 while (my ($k, $v) = each %expected) {
|
| H A D | dumpvar.t | 53 my($prog, $expected) = split(/\nEXPECT\n?/, $_);
64 if ($expected =~ m:^/:) {
65 like($$out, $expected, $prog);
67 is($$out, $expected, $prog);
|
| H A D | strict.t | 48 my($prog,$expected) = split(/\nEXPECT\n/, $_);
80 # allow expected output to be written as if $prog is on STDIN
83 $expected =~ s/\n+$//;
84 $expected =~ s|(\./)?abc\.pm|:abc.pm|g if $^O eq 'MacOS';
85 $expected =~ s|./abc|:abc|g if $^O eq 'MacOS';
90 elsif (($prefix and $results !~ /^\Q$expected/) or
91 (!$prefix and $results ne $expected)){
93 print STDERR "EXPECTED:\n$expected\n";
|
| H A D | warnings.t | 78 my($prog,$expected) = split(/\nEXPECT\n/, $_);
128 # allow expected output to be written as if $prog is on STDIN
131 # some tests will trigger VMS messages that won't be expected
149 $expected =~ s/\n+$//;
154 if ($expected =~ s/^OPTIONS? (.+)\n//) {
174 print "not " if !randomMatch($results, $expected);
176 elsif (($prefix && (( $option_regex && $results !~ /^$expected/) ||
177 (!$option_regex && $results !~ /^\Q$expected/))) or
178 (!$prefix && (( $option_regex && $results !~ /^$expected/) ||
179 (!$option_regex && $results ne $expected)))) {
[all...] |
| H A D | subs.t | 29 my($prog,$expected) = split(/\nEXPECT\n/, $_);
61 # allow expected output to be written as if $prog is on STDIN
67 $expected =~ s/\n+$//;
72 elsif (($prefix and $results !~ /^\Q$expected/) or
73 (!$prefix and $results ne $expected)){
75 print STDERR "EXPECTED:\n$expected\n";
90 Number found where operator expected at - line 3, near "Fred 1"
101 Number found where operator expected at - line 3, near "Fred 1"
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/ |
| H A D | libnet_t.pl | 14 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/perl/5.8.4/distrib/lib/Pod/t/ |
| H A D | parselink.t | 114 my @expected = @$_;
115 my $link = shift @expected;
121 unless ((!defined ($results[$_]) && !defined ($expected[$_]))
122 || (defined ($results[$_]) && defined ($expected[$_])
123 && $results[$_] eq $expected[$_])) {
126 print "# expected: $expected[$_]\n";
|
| H A D | text.t | 51 my $expected = '';
54 $expected .= $_;
56 if ($output eq $expected) {
60 print "Expected\n========\n$expected\nOutput\n======\n$output\n";
65 # Below the marker are bits of POD and corresponding expected text output.
|
| H A D | text-errors.t | 45 # expected. Any formatted output is ignored; only warning messages are
49 my ($pod, $expected) = @_;
58 if ($warnings eq $expected) {
61 print " # '$warnings'\n # '$expected'\n";
|
| H A D | man.t | 52 my $expected = '';
55 $expected .= $_;
57 if ($output eq $expected) {
61 print "Expected\n========\n$expected\nOutput\n======\n$output\n";
66 # Below the marker are bits of POD and corresponding expected nroff output.
|
| H A D | text-options.t | 57 my $expected = '';
60 $expected .= $_;
62 if ($output eq $expected) {
66 print "Expected\n========\n$expected\nOutput\n======\n$output\n";
71 # Below the marker are bits of POD and corresponding expected text output.
|
| /osnet-11/usr/src/lib/crypt_modules/sha256/ |
| H A D | test.c | 35 const char *expected; member in struct:__anon949
66 const char *expected; member in struct:__anon950
118 strlen(tests2[cnt].expected));
122 if (cp == NULL || (strcmp(cp, tests2[cnt].expected) != 0)) {
125 strlen(tests2[cnt].expected), tests2[cnt].expected,
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/ |
| H A D | test.pl | 136 my ($got, $expected, $name, @mess) = @_;
139 if( !defined $got || !defined $expected ) {
141 $pass = !defined $got && !defined $expected;
144 $pass = $got eq $expected;
149 "# expected "._q($expected)."\n");
174 my($got, $type, $expected, $name, @mess) = @_;
181 $pass = eval "\$got $type \$expected";
191 if ($got eq $expected and $type !~ tr/a-z//) {
192 unshift @mess, "# $got - $expected
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
| H A D | proto.t | 33 $expected = shift;
34 if (defined $expected) {
35 print "# Got $proto, expected $expected\nnot " if $expected ne $proto;
38 print "# Got $proto, expected undef\nnot " if defined $proto;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
| H A D | layers.t | 53 my ($result, $expected, $id) = @_;
72 $expected->[0] = $ENV{PERLIO};
74 $expected->[0] = $ENV{PERLIO} if $expected->[0] eq "stdio";
87 if ($DOSISH && grep { $_ eq 'crlf' } @$expected) {
91 @$expected = grep { $_ ne 'crlf' } @$expected;
93 my $n = scalar @$expected;
94 is($n, scalar @$expected, "$id - layers == $n");
96 my $j = $expected
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/dprof/ |
| H A D | V.pm | 9 @EXPORT = qw( dprofpp $opt_v $results $expected report @results );
13 $results = $expected = '';
60 print "Expected\n{$expected}\n";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| H A D | DosGlob.t | 18 my $expected;
20 $expected = $_ = ":op:a*.t";
22 $expected = $_ = "op/a*.t";
25 print "not " if $_ ne $expected;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
| H A D | stash.t | 69 my $expected = "attributes Carp Carp::Heavy DB Exporter Exporter::Heavy Internals main Regexp utf8 warnings";
79 print "# [$got]\n# vs.\n# [$expected]\nnot " if $got ne $expected;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/ |
| H A D | Spec.t | 577 # an expected result. Works with functions that return scalars or arrays.
581 my $expected = shift ;
603 ok $got, $expected, $function;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
| H A D | 27_iwrite.t | 191 my $expected = $oldfile;
193 my $expected_return = substr($expected, $e - $newlen, $newlen, "");
194 substr($expected, $s, 0, $newdata);
208 my ($alen, $xlen) = (length $actual, length $expected);
210 print "# try(@_) expected file length $xlen, actual $alen!\n";
212 print $actual eq $expected ? "ok $N\n" : "not ok $N\n";
|