/ 
Data-Semantic-0.04
River stage one • 3 direct dependents • 7 total dependents
/ Data::Semantic::Test

NAME

Data::Semantic::Test - Testing Data::Semantic objects

SYNOPSIS

Data::Semantic::Test->new;

DESCRIPTION

This class makes it easy to test new semantic data classes based on Data::Semantic. It uses the Test::CompanionClasses mechanism. So to test the subclass Data::Semantic::URI::http you would write a corresponding Data::Semantic::URI::http_TEST test class. In your test class you need to define the following structure:

use constant TESTDATA => (
    {
        args => {},
        valid => [ qw(
            http://localhost/
            http://use.perl.org/~hanekomu/journal?entry=12345
        ) ],
        invalid  => [ qw(
            news://localhost/
            http://?123
            https://localhost/
        ) ],
    },
    {
        args => { scheme => 'https?' },
        valid => [ qw(
            http://localhost/
            http://use.perl.org/~hanekomu/journal?entry=12345
            https://localhost/
            https://use.perl.org/~hanekomu/journal?entry=12345
        ) ],
        invalid  => [ qw(
            news://localhost/
            http://?123
        ) ],
    },
    {
        args => { scheme => 'https' },
        valid => [ qw(
            https://localhost/
            https://use.perl.org/~hanekomu/journal?entry=12345
        ) ],
        invalid  => [ qw(
            http://localhost/
            http://use.perl.org/~hanekomu/journal?entry=12345
            http://?123
            news://localhost/
        ) ],
    },
);

So you define one or more scenarios, each within its own hashref within the TESTDATA list. In each scenario you have a list of arguments to pass to the semantic data object constructor. Given those arguments, certain values will be considered valid and others invalid.

See Test::CompanionClasses for more information on how these tests are run.

METHODS

BUGS AND LIMITATIONS

No bugs have been reported.

Please report any bugs or feature requests through the web interface at http://rt.cpan.org.

INSTALLATION

See perlmodinstall for information and options on installing Perl modules.

AVAILABILITY

The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit <http://www.perl.com/CPAN/> to find a CPAN site near you. Or see http://search.cpan.org/dist/Data-Semantic/.

AUTHORS

Marcel Grünauer, <marcel@cpan.org>

COPYRIGHT AND LICENSE

Copyright 2007-2009 by the authors.

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