Andy Wardley

NAME

XML::Schema::Test - utility module for XML::Schema regression tests

SYNOPSIS

    use XML::Schema::Test;

    # specify number of tests
    ntests(2);

    # test if passed value equates true (ok) or false (not ok) 
    ok( $true_or_false );

    # test if result matches expected value (ok) or not (not ok)
    match( $result, $expect )

DESCRIPTION

This module implements some basic subroutines which are used in the XML::Schema regression test suite. The tests themselves can be found in the 't' subdirectory of the distribution directory.

SUBROUTINES

This module exports the following subroutines into the caller's package.

ntests($n)

Called before any tests to declare how many tests are expected to follow.

    ntests(2);

This generates the familiar output which is compatible with Perl's Test::Harness module (i.e. that which gets run when you 'make test').

    1..2

If the ntests() subroutine isn't called then the test module will cache all results generated via ok() and match() and then display the results as the script finishes executing, having counted them to determine the total number of tests.

ok($truth, $error)

Called to register a test result. The first value should be any true value to indicate success or any false value to indicate failure.

    ok( $foo );
    ok( defined $foo );
    ok( $foo > 10 );

The second optional value may be a error message which is printed in the case of the test failing. This is very useful for determining which test failed without having to count through your script to find the nth test.

    ok( $foo, '$foo is not true' );
    ok( defined $foo, '$foo is not defined' );
    ok( $foo > 10, '$foo is not > 10' );

match($result, $expect)

Called to test that a result string matches an expected string.

    match( $foo, 'The foo string' );

AUTHOR

Andy Wardley <abw@kfs.org>

VERSION

This is version $Revision: 1.1.1.1 $ of the XML::Schema::Test module, distributed with version 0.1 of the XML::Schema module set.

COPYRIGHT

Copyright (C) 2001 Canon Research Centre Europe Ltd. All Rights Reserved.

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

SEE ALSO

See the XML::Schema regression test suite in the 't' subdirectory of the distribution.