test::harness::assert(3pm) [redhat man page]

Test::Harness::Assert(3pm)				 Perl Programmers Reference Guide				Test::Harness::Assert(3pm)

NAME

       Test::Harness::Assert - simple assert

SYNOPSIS

	 ### FOR INTERNAL USE ONLY ###

	 use Test::Harness::Assert;

	 assert( EXPR, $name );

DESCRIPTION

       A simple assert routine since we don't have Carp::Assert handy.

       For internal use by Test::Harness ONLY!

       Functions

       assert
	     assert( EXPR, $name );

	   If the expression is false the program aborts.

AUTHOR

       Michael G Schwern <schwern@pobox.com>

SEE ALSO

       Carp::Assert

perl v5.8.0							    2002-06-01						Test::Harness::Assert(3pm)

Test::Unit::Result(3pm) 				User Contributed Perl Documentation				   Test::Unit::Result(3pm)

NAME

       Test::Unit::Result - unit testing framework helper class

SYNOPSIS

       This class is not intended to be used directly

DESCRIPTION

       This class is used by the framework to record the results of tests, which will throw an instance of a subclass of Test::Unit::Exception in
       case of errors or failures.

       To achieve this, this class gets called with a test case as argument.  It will call this test case's run method back and catch any excep-
       tions thrown.

       It could be argued that Test::Unit::Result is the heart of the PerlUnit framework, since TestCase classes vary, and you can use one of sev-
       eral Test::Unit::TestRunners, but we always gather the results in a Test::Unit::Result object.

       This is the quintessential call tree of the communication needed to record the results of a given test:

	   $aTestCase->run() {
	       # creates result
	       $aTestResult->run($aTestCase) {
		   # catches exception and records it
		   $aTestCase->run_bare() {
		       # runs test method inside eval
		       $aTestCase->run_test() {
			   # calls method $aTestCase->name()
			   # and propagates exception
			   # method will call Assert::assert()
			   # to cause failure if test fails on
			   # test assertion
			   # it finds this because $aTestCase is-a Assert
		       }
		   }
	       }
	   }

       Note too that, in the presence of Test::Unit::TestSuites, this call tree can get a little more convoluted, but if you bear the above in
       mind it should be apparent what's going on.

AUTHOR

       Copyright (c) 2000-2002, 2005 the PerlUnit Development Team (see Test::Unit or the AUTHORS file included in this distribution).

       All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

       o   Test::Unit::Assert

       o   Test::Unit::TestCase

       o   Test::Unit::Exception

perl v5.8.8							    2006-09-13						   Test::Unit::Result(3pm)