# $Id: 001basic.t,v 6eb3dbabe8f5 2011/06/27 08:04:33 tomh $

use strict;
use warnings;

use Test::More;

use File::Find;
use lib './t/lib2';

my @files = ();
find(sub { /\.pm$/ and push @files, $File::Find::name }, qw/blib/);

plan tests => @files + 1;

ok(@files, "At least one module found");

for my $module (@files) {
    $module =~ s!^blib/lib/!!;
    $module =~ s!/!::!g;
    $module =~ s/\.pm$//;
    use_ok($module);
}

__END__

Copyright 2012 APNIC Pty Ltd.

This library is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

The full text of the license can be found in the LICENSE file included
with this module.