Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Builder.pm

Lines Matching refs:got
169             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, '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);
398     my($self, $got, $type, $expect) = @_;
400     foreach my $val (\$got, \$expect) {
416     return $self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
417          got: %s
425   $Test->isnt_eq($got, $dont_expect, $name);
427 Like Test::More's isnt().  Checks if $got ne $dont_expect.  This is
432   $Test->is_num($got, $dont_expect, $name);
434 Like Test::More's isnt().  Checks if $got ne $dont_expect.  This is
440     my($self, $got, $dont_expect, $name) = @_;
443     if( !defined $got || !defined $dont_expect ) {
445         my $test = defined $got || defined $dont_expect;
448         $self->_cmp_diag('ne', $got, $dont_expect) unless $test;
452     return $self->cmp_ok($got, 'ne', $dont_expect, $name);
456     my($self, $got, $dont_expect, $name) = @_;
459     if( !defined $got || !defined $dont_expect ) {
461         my $test = defined $got || defined $dont_expect;
464         $self->_cmp_diag('!=', $got, $dont_expect) unless $test;
468     return $self->cmp_ok($got, '!=', $dont_expect, $name);
590     my($self, $got, $type, $expect, $name) = @_;
597         $test = eval "\$got $type \$expect";
604             $self->_is_diag($got, $type, $expect);
607             $self->_cmp_diag($got, $type, $expect);
614     my($self, $got, $type, $expect) = @_;
616     $got    = defined $got    ? "'$got'"    : 'undef';
618     return $self->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
1238           'Somehow you got a different number of results than tests ran!');