#!/usr/bin/perl
use strict;
use warnings;
use File::Spec;
use Cwd;
BEGIN {
unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};
my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
unshift @INC, File::Spec->catdir($cwd, 'inc');
unshift @INC, File::Spec->catdir($cwd, 'lib');
};
use Test::More tests => 1;
use Test::Assert;
ok( Test::Assert::ASSERT );