Test::Tech 0.26

Test::Tech is a Perl module that adds skip_tests and test data structures capabilities to the "Test" module.

SYNOPSIS

#######
# Procedural (subroutine) Interface
#
# (use for &Test::plan, &Test::ok, &Test::skip drop in)
#
use Test::Tech qw(demo finish is_skip ok ok_sub plan skip skip_sub
skip_tests stringify tech_config);

demo($quoted_expression, @expression);

(@stats) = finish( );
$num_passed = finish( );

$skip_on = is_skip( );
($skip_on, $skip_diag) = is_skip( );

$test_ok = ok($actual_results, $expected_results, [@options]);
$test_ok = ok($actual_results, $expected_results, $diagnostic, [@options]);
$test_ok = ok($actual_results, $expected_results, $diagnostic, $test_name, [@options]);

$test_ok = ok_sub(⊂routine, $actual_results, $expected_results, [@options]);
$test_ok = ok_sub(⊂routine, $actual_results, $expected_results, $diagnostic, [@options]);
$test_ok = ok_sub(⊂routine, $actual_results, $expected_results, $diagnostic, $test_name, [@options]);

$success = plan(@args);

$test_ok = skip($skip_test, $actual_results, $expected_results, [@options]);
$test_ok = skip($skip_test, $actual_results, $expected_results, $diagnostic, [@options]);
$test_ok = skip($skip_test, $actual_results, $expected_results, $diagnostic, $test_name, [@options]);

$test_ok = skip_sub(⊂routine, $skip_test, $actual_results, $expected_results, [@options]);
$test_ok = skip_sub(⊂routine, $skip_test, $actual_results, $expected_results, $diagnostic, [@options]);
$test_ok = skip_sub(⊂routine, $skip_test, $actual_results, $expected_results, $diagnostic, $test_name, [@options]);

$skip_on = skip_tests( $on_off, $skip_diagnostic);
$skip_on = skip_tests( $on_off );
$skip_on = skip_tests( );

$string = stringify($var, @options); # imported from Data::Secs2

$new_value = tech_config( $key, $old_value);

#####
# Object Interface
#
$tech = new Test::Tech;

$tech->demo($quoted_expression, @expression)

(@stats) = $tech->finish( );
$num_passed = $tech->finish( );

$skip_on = $tech->is_skip( );
($skip_on, $skip_diag) = $tech->is_skip( );

$test_ok = $tech->ok($actual_results, $expected_results, [@options]);
$test_ok = $tech->ok($actual_results, $expected_results, $diagnostic, [@options]);
$test_ok = $tech->ok($actual_results, $expected_results, $diagnostic, $test_name, [@options]);

$test_ok = $tech->ok_sub(⊂routine, $actual_results, $expected_results, [@options]);
$test_ok = $tech->ok_sub(⊂routine, $actual_results, $expected_results, $diagnostic, [@options]);
$test_ok = $tech->ok_sub(⊂routine, $actual_results, $expected_results, $diagnostic, $test_name, [@options]);

$success = $tech->plan(@args);

$test_ok = $tech->skip($skip_test, $actual_results, $expected_results, [@options]);
$test_ok = $tech->skip($skip_test, $actual_results, $expected_results, $diagnostic, [@options]);
$test_ok = $tech->skip($skip_test, $actual_results, $expected_results, $diagnostic, $test_name, [@options]);

$test_ok = $tech->skip_sub(⊂routine, $skip_test, $actual_results, $expected_results, [@options]);
$test_ok = $tech->skip_sub(⊂routine, $skip_test, $actual_results, $expected_results, $diagnostic, [@options]);
$test_ok = $tech->skip_sub(⊂routine, $skip_test, $actual_results, $expected_results, $diagnostic, $test_name, [@options]);

$state = $tech->skip_tests( );
$state = $tech->skip_tests( $on_off );

$state = skip_tests( $on_off, $skip_diagnostic );

$string = $tech->stringify($var, @options); # imported from Data::Secs2

$new_value = $tech->tech_config($key, $old_value);

Generally, if a subroutine will process a list of options, @options, that subroutine will also process an array reference, @options, [@options], or hash reference, %options, {@options}. If a subroutine will process an array reference, @options, [@options], that subroutine will also process a hash reference, %options, {@options}. See the description for a subroutine for details and exceptions.