Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Assertion	[ DIR ]	drwxr-xr-x
Runner	[ DIR ]	drwxr-xr-x
Assert.pm	20.71 KB	-rw-r--r--
Assertion.pm	1.98 KB	-rw-r--r--
Debug.pm	1.78 KB	-rw-r--r--
Decorator.pm	1.34 KB	-rw-r--r--
Error.pm	1.23 KB	-rw-r--r--
Exception.pm	1.75 KB	-rw-r--r--
Failure.pm	868 B	-rw-r--r--
HarnessUnit.pm	2.86 KB	-rw-r--r--
Listener.pm	2.01 KB	-rw-r--r--
Loader.pm	5.34 KB	-rw-r--r--
Procedural.pm	5.75 KB	-rw-r--r--
Result.pm	5.42 KB	-rw-r--r--
Runner.pm	1.93 KB	-rw-r--r--
Setup.pm	1.3 KB	-rw-r--r--
Test.pm	3.09 KB	-rw-r--r--
TestCase.pm	11.27 KB	-rw-r--r--
TestRunner.pm	5.64 KB	-rw-r--r--
TestSuite.pm	8.22 KB	-rw-r--r--
TkTestRunner.pm	18.07 KB	-rw-r--r--
Tutorial.pm	1.19 KB	-rw-r--r--
UnitHarness.pm	5.25 KB	-rw-r--r--
Warning.pm	783 B	-rw-r--r--

Code Editor : Assertion.pm

package Test::Unit::Assertion;

use strict;

use Carp;
use Test::Unit::Failure;

use overload '""' => 'to_string';

sub fail {
    my $self = shift;
    my($asserter, $file, $line) = caller(2); # We're always called from
                                             # within an Assertion...
    Test::Unit::Failure->throw(-object => $self,
                               -file   => $file,
                               -line   => $line,
                               -text   => join '', @_);
}

sub do_assertion {
    Carp::croak("$_[0] forgot to override do_assertion");
}

sub new {
    Carp::croak("$_[0] forgot to override new");
}

__END__

=head1 NAME

Test::Unit::Assertion - The abstract base class for assertions

=head1 NAME

Any assertion class that expects to plug into Test::Unit::Assert needs
to implement this interface.

=head2 Required methods

=over 4

=item new

Creates a new assertion object. Takes whatever arguments you desire.
Isn't strictly necessary for the framework to work with this class but
is generally considered a good idea.

=item do_assertion

This is the important one. If Test::Unit::Assert::assert is called
with an object as its first argument then it does:

$_[0]->do_assertion(@_[1 .. $#_]) ||
        $self->fail("Assertion failed");

This means that C<do_assertion> should return true if the assertion
succeeds and false if it doesn't. Or, you can fail by throwing a
Test::Unit::Failure object, which will get caught further up
the stack and used to produce a sensible error report. Generally it's
good practice for do_assertion to die with a meaningful error on
assertion failure rather than just returning false.

=back

=head1 AUTHOR

=head1 SEE ALSO

=over 4

=item *

L<Test::Unit::Assert>

=item *

L<Test::Unit::CodeRef>

=item *

L<Test::Unit::Regexp>

=back

${this.title}

Code Editor : Assertion.pm