Lines Matching refs:self
84 my($self) = shift;
90 $self->export_to_level(1, $self, 'ok');
161 my ($self) = @_;
180 $self->_dup_stdhandles unless $^C;
205 my($self, $pack) = @_;
227 my($self, $cmd, $arg) = @_;
233 ($self->caller)[1,2];
237 $self->no_plan;
240 return $self->skip_all($arg);
244 return $self->expected_tests($arg);
274 my $self = shift;
284 $self->_print("1..$max\n") unless $self->no_header;
328 my($self, $reason) = @_;
336 $self->_print($out) unless $self->no_header;
361 my($self, $test, $name) = @_;
376 $self->_unoverload(\$name);
378 $self->diag(<<ERR) if defined $name and $name =~ /^[\d\s]+$/;
383 my($pack, $file, $line) = $self->caller;
385 my $todo = $self->todo($pack);
386 $self->_unoverload(\$todo);
400 $out .= " $Curr_Test" if $self->use_numbers;
424 $self->_print($out);
428 $self->_print_diag("\n") if $ENV{HARNESS_ACTIVE};
429 $self->diag(" $msg test ($file at line $line)\n");
437 my $self = shift;
472 my($self, $got, $expect, $name) = @_;
479 $self->ok($test, $name);
480 $self->_is_diag($got, 'eq', $expect) unless $test;
484 return $self->cmp_ok($got, 'eq', $expect, $name);
488 my($self, $got, $expect, $name) = @_;
495 $self->ok($test, $name);
496 $self->_is_diag($got, '==', $expect) unless $test;
500 return $self->cmp_ok($got, '==', $expect, $name);
504 my($self, $got, $type, $expect) = @_;
522 return $self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
546 my($self, $got, $dont_expect, $name) = @_;
553 $self->ok($test, $name);
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) = @_;
569 $self->ok($test, $name);
570 $self->_cmp_diag($got, '!=', $dont_expect) unless $test;
574 return $self->cmp_ok($got, '!=', $dont_expect, $name);
598 my($self, $this, $regex, $name) = @_;
601 $self->_regex_ok($this, $regex, '=~', $name);
605 my($self, $this, $regex, $name) = @_;
608 $self->_regex_ok($this, $regex, '!~', $name);
629 my ($self, $this, $regex, $name) = @_;
630 my $usable_regex = $self->maybe_regex($regex);
633 $self->ok($this =~ m/$usable_regex/, $name);
640 my ($self, $regex) = @_;
663 my($self, $this, $regex, $cmp, $name) = @_;
668 my $usable_regex = $self->maybe_regex($regex);
670 $ok = $self->ok( 0, $name );
671 $self->diag(" '$regex' doesn't look much like a regex to me.");
679 $ok = $self->ok( $test, $name );
685 $self->diag(sprintf <<DIAGNOSTIC, $this, $match, $regex);
706 my($self, $got, $type, $expect, $name) = @_;
716 my $ok = $self->ok($test, $name);
720 $self->_is_diag($got, $type, $expect);
723 $self->_cmp_diag($got, $type, $expect);
730 my($self, $got, $type, $expect) = @_;
734 return $self->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
754 my($self, $reason) = @_;
756 $self->_print("Bail out! $reason");
770 my($self, $why) = @_;
772 $self->_unoverload(\$why);
791 $out .= " $Curr_Test" if $self->use_numbers;
815 my($self, $why) = @_;
835 $out .= " $Curr_Test" if $self->use_numbers;
886 my($self, $level) = @_;
921 my($self, $use_nums) = @_;
947 my($self, $no_header) = @_;
956 my($self, $no_ending) = @_;
1003 my($self, @msgs) = @_;
1020 $self->_print_diag($msg);
1038 my($self, @msgs) = @_;
1047 my $fh = $self->output;
1069 my $self = shift;
1072 my $fh = $self->todo ? $self->todo_output : $self->failure_output;
1107 my($self, $fh) = @_;
1116 my($self, $fh) = @_;
1125 my($self, $fh) = @_;
1174 my $self = shift;
1176 $self->_open_testhandles unless $Opened_Testhandles;
1221 my($self, $num) = @_;
1266 my($self) = shift;
1345 my($self, $pack) = @_;
1347 $pack = $pack || $self->exported_to || $self->caller(1);
1365 my($self, $height) = @_;
1368 my @caller = CORE::caller($self->level + $height + 1);
1456 my $self = shift;
1472 $self->_print("1..$Curr_Test\n") unless $self->no_header;
1490 $self->diag(<<"FAIL");
1497 $self->diag(<<"FAIL");
1503 $self->diag(<<"FAIL");
1509 $self->diag(<<"FAIL");
1522 $self->diag(<<'FAIL');
1528 $self->diag("No tests run!\n");