Test::Assertions Test::Assertions module is a simple set of building blocks for both unit and runtime testing.
Download

Test::Assertions Ranking & Summary

Test::Assertions Tags

blocks builder unit unit testing build blocks runtime testing

Test::Assertions Description

Test::Assertions module is a simple set of building blocks for both unit and runtime testing. Test::Assertions module is a simple set of building blocks for both unit and runtime testing.SYNOPSIS #ASSERT does nothing use Test::Assertions; #ASSERT warns "Assertion failure"... use Test::Assertions qw(warn); #ASSERT dies with "Assertion failure"... use Test::Assertions qw(die); #ASSERT warns "Assertion failure"... with stack trace use Test::Assertions qw(cluck); #ASSERT dies with "Assertion failure"... with stack trace use Test::Assertions qw(confess); #ASSERT prints ok/not ok use Test::Assertions qw(test); #Will cause an assertion failure ASSERT(1 == 0); #Optional message ASSERT(0 == 1, "daft"); #Checks if coderef dies ASSERT( DIED( sub {die()} ) ); #Check if perl compiles OK ASSERT( COMPILES('program.pl') ); #Deep comparisons ASSERT( EQUAL(@a, @b), "lists of widgets match" # an optional message ); ASSERT( EQUAL(%a, %b) ); #Compare to a canned value ASSERT( EQUALS_FILE($foo, 'bar.dat'), "value matched stored value" ); #Compare to a canned value (regex match using file contents as regex) ASSERT( MATCHES_FILE($foo, 'bar.regex') ); #Compare file contents ASSERT( FILES_EQUAL('foo.dat', 'bar.dat') ); #returns 'not ok for Foo::Bar Tests (1 errors in 3 tests)' ASSESS( , 'Foo::Bar Tests', 0 ); #Collate results from another test script ASSESS_FILE("test.pl"); #File routines $success = WRITE_FILE('bar.dat', 'hello world'); ASSERT( WRITE_FILE('bar.dat', 'hello world'), 'file was written'); $string = READ_FILE('example.out'); ASSERT( READ_FILE('example.out'), 'file has content' );The helper routines don't need to be used inside ASSERT(): if ( EQUALS_FILE($string, $filename) ) { print "File hasn't changed - skippingn"; } else { my $rc = run_complex_process($string); print "File changed - string was reprocessed with result '$rc'n"; } ($boolean, $output) = COMPILES('file.pl'); # or... my $string; ($boolean, $standard_output) = COMPILES('file.pl', 1, $string); # $string now contains standard error, separate from $standard_outputIn test mode: use Test::Assertions qw(test); plan tests => 4; plan tests; #will attempt to deduce the number only (1,2); #Only report ok/not ok for these tests ignore 2; #Skip this test #In test/ok mode... use Test::Assertions qw(test/ok); ok(1); #synonym for ASSERT Requirements: · Perl

Test::Assertions Related Software