#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Fatal;

if ($^O =~ /MSWin|cygwin/i) {
    BAIL_OUT("OS unsupported");
}

use lib 'lib';
use File::Find;

my @modules;
find(sub {
    return if $File::Find::name =~ m{Ubic/Run\.pm$};
    if (/\.pm$/) {
        push @modules, $File::Find::name;
    }
}, 'lib');
my @files = glob("bin/*");
plan tests => scalar(@modules) + scalar(@files);

for (@modules) {
    s{^lib/}{};
    s{/}{::}g;
    s{\.pm$}{};
    use_ok($_);
}

for my $file (@files) {
    ok
        not(exception { require $file }),
        "require($file) lives";
}