source: ProjectBuilder/devel/pb/t/pb.t@ 2275

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

use strict;
use ProjectBuilder::Filter;

my $res;
eval
{
    require Test::More;
    Test::More->import();
    $res = $@;
    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 ($res) {
    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);