test::unit::assertion::coderef(3pm) [debian man page]

Test::Unit::Assertion::CodeRef(3pm)			User Contributed Perl Documentation		       Test::Unit::Assertion::CodeRef(3pm)

NAME

       Test::Unit::Assertion::CodeRef - A delayed evaluation assertion using a Coderef

SYNOPSIS

	   require Test::Unit::Assertion::CodeRef;

	   my $assert_eq =
	     Test::Unit::Assertion::CodeRef->new(sub {
	       $_[0] eq $_[1]
		 or Test::Unit::Failure->throw(-text =>
						 "Expected '$_[0]', got '$_[1]'
");
	     });

	   $assert_eq->do_assertion('foo', 'bar');

       Although this is how you'd use Test::Unit::Assertion::CodeRef directly, it is more usually used indirectly via Test::Unit::Test::assert,
       which instantiates a Test::Unit::Assertion::CodeRef when passed a Coderef as its first argument.

IMPLEMENTS

       Test::Unit::Assertion::CodeRef implements the Test::Unit::Assertion interface, which means it can be plugged into the Test::Unit::TestCase
       and friends' "assert" method with no ill effects.

DESCRIPTION

       This class is used by the framework to allow us to do assertions in a 'functional' manner. It is typically used generated automagically in
       code like:

	   $self->assert(sub {
			   $_[0] == $_[1]
			     or $self->fail("Expected $_[0], got $_[1]");
			 }, 1, 2);

       (Note that if Damian Conway's Perl6 RFC for currying ever comes to pass then we'll be able to do this as:

	   $self->assert(^1 == ^2 || $self->fail("Expected ^1, got ^2"), 1, 2)

       which will be nice...)

       If you have a working B::Deparse installed with your perl installation then, if an assertion fails, you'll see a listing of the decompiled
       coderef (which will be sadly devoid of comments, but should still be useful)

AUTHOR

       Copyright (c) 2001 Piers Cawley <pdcawley@iterative-software.com>.

       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::TestCase

       o   Test::Unit::Assertion

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

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

NAME

       Test::Unit::Procedural - Procedural style unit testing interface

SYNOPSIS

	   use Test::Unit::Procedural;

	   # your code to be tested goes here

	   sub foo { return 23 };
	   sub bar { return 42 };

	   # define tests

	   sub test_foo { assert(foo() == 23, "Your message here"); }
	   sub test_bar { assert(bar() == 42, "I will be printed if this fails"); }

	   # set_up and tear_down are used to
	   # prepare and release resources need for testing

	   sub set_up	 { print "hello world
"; }
	   sub tear_down { print "leaving world again
"; }

	   # run your test

	   create_suite();
	   run_suite();

DESCRIPTION

       Test::Unit::Procedural is the procedural style interface to a sophisticated unit testing framework for Perl that is derived from the JUnit
       testing framework for Java by Kent Beck and Erich Gamma.  While this framework is originally intended to support unit testing in an object-
       oriented development paradigm (with support for inheritance of tests etc.), Test::Unit::Procedural is intended to provide a simpler inter-
       face to the framework that is more suitable for use in a scripting style environment.  Therefore, Test::Unit::Procedural does not provide
       much support for an object-oriented approach to unit testing - if you want that, please have a look at Test::Unit::TestCase.

       You test a given unit (a script, a module, whatever) by using Test::Unit::Procedural, which exports the following routines into your names-
       pace:

       assert()
	   used to assert that a boolean condition is true

       create_suite()
	   used to create a test suite consisting of all methods with a name prefix of "test"

       run_suite()
	   runs the test suite (text output)

       add_suite()
	   used to add test suites to each other

       For convenience, "create_suite()" will automatically build a test suite for a given package. This will build a test case for each subrou-
       tine in the package given that has a name starting with "test" and pack them all together into one TestSuite object for easy testing.  If
       you dont give a package name to "create_suite()", the current package is taken as default.

       Test output is one status line (a "." for every successful test run, or an "F" for any failed test run, to indicate progress), one result
       line ("OK" or "!!!FAILURES!!!"), and possibly many lines reporting detailed error messages for any failed tests.

       Please remember, Test::Unit::Procedural is intended to be a simple and convenient interface. If you need more functionality, take the
       object-oriented approach outlined in Test::Unit::TestCase.

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::TestCase

       o   the procedural style examples in the examples directory

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