view release on metacpan or  search on metacpan

t/lib/WQTest.pm  view on Meta::CPAN

package WQTest;

use strict;
use warnings;

use Test::More;

sub test(&) {
    my $code = shift;

    plan tests => 3;

    use_ok 'Web::Query';

    for my $class ( qw/ Web::Query Web::Query::LibXML / ) {
        subtest $class => sub {
            if( $class =~ /LibXML/ ) {
                plan skip_all => "can't load $class" unless eval "use $class; 1";