• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.10.1/BerkeleyDB-21/db/perl/BerkeleyDB/t/Test/

Lines Matching defs:got

251             die "You said to run 0 tests!  You've got to run something.\n";
457 $Test->is_eq($got, $expected, $name);
459 Like Test::More's is(). Checks if $got eq $expected. This is the
464 $Test->is_num($got, $expected, $name);
466 Like Test::More's is(). Checks if $got == $expected. This is the
472 my($self, $got, $expect, $name) = @_;
475 if( !defined $got || !defined $expect ) {
477 my $test = !defined $got && !defined $expect;
480 $self->_is_diag($got, 'eq', $expect) unless $test;
484 return $self->cmp_ok($got, 'eq', $expect, $name);
488 my($self, $got, $expect, $name) = @_;
491 if( !defined $got || !defined $expect ) {
493 my $test = !defined $got && !defined $expect;
496 $self->_is_diag($got, '==', $expect) unless $test;
500 return $self->cmp_ok($got, '==', $expect, $name);
504 my($self, $got, $type, $expect) = @_;
506 foreach my $val (\$got, \$expect) {
522 return $self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
523 got: %s
531 $Test->isnt_eq($got, $dont_expect, $name);
533 Like Test::More's isnt(). Checks if $got ne $dont_expect. This is
538 $Test->is_num($got, $dont_expect, $name);
540 Like Test::More's isnt(). Checks if $got ne $dont_expect. This is
546 my($self, $got, $dont_expect, $name) = @_;
549 if( !defined $got || !defined $dont_expect ) {
551 my $test = defined $got || defined $dont_expect;
554 $self->_cmp_diag($got, 'ne', $dont_expect) unless $test;
558 return $self->cmp_ok($got, 'ne', $dont_expect, $name);
562 my($self, $got, $dont_expect, $name) = @_;
565 if( !defined $got || !defined $dont_expect ) {
567 my $test = defined $got || defined $dont_expect;
570 $self->_cmp_diag($got, '!=', $dont_expect) unless $test;
574 return $self->cmp_ok($got, '!=', $dont_expect, $name);
706 my($self, $got, $type, $expect, $name) = @_;
713 $test = eval "\$got $type \$expect";
720 $self->_is_diag($got, $type, $expect);
723 $self->_cmp_diag($got, $type, $expect);
730 my($self, $got, $type, $expect) = @_;
732 $got = defined $got ? "'$got'" : 'undef';
734 return $self->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
1396 'Somehow you got a different number of results than tests ran!');