source: ProjectBuilder/0.14.3/pb/t/pb.t@ 2199

#!/usr/bin/perl -w
#
# Tests ProjectBuilder::Base functions

use strict;
use ProjectBuilder::Filter;

eval
{
    require Test::More;
    Test::More->import();
    my ($tmv,$tmsv) = split(/\./,$Test::More::VERSION);
    if ($tmsv lt 87) {
        die "Test::More is not available in an appropriate version ($tmsv)";
    }
};

# Test::More appropriate version not found so no test will be performed here
if ($@) {
    require Test;
    Test->import();
    plan(tests => 1);
    print "# Faking tests as Test::More is not available in an appropriate version\n";
    ok(1,1);
    exit(0);
}

my $nt = 0;
is("1", "1", "pb Fake Test");
$nt++;

done_testing($nt);