#!/usr/bin/perl -T
use Test::More tests => 22;
use strict;
use warnings;
ok( eval 'require Paranoid;', 'Loaded Paranoid' );
ok( eval 'require Paranoid::Args;', 'Loaded Paranoid::Args' );
ok( eval 'require Paranoid::Data;', 'Loaded Paranoid::Data' );
ok( eval 'require Paranoid::Debug;', 'Loaded Paranoid::Debug' );
ok( eval 'require Paranoid::Filesystem;', 'Loaded Paranoid::Filesystem' );
ok( eval 'require Paranoid::IO;', 'Loaded Paranoid::IO' );
ok( eval 'require Paranoid::IO::Line;', 'Loaded Paranoid::IO::Line' );
ok( eval 'require Paranoid::IO::Lockfile;', 'Loaded Paranoid::IO::Lockfile' );
ok( eval 'require Paranoid::Input;', 'Loaded Paranoid::Input' );
ok( eval 'require Paranoid::Log;', 'Loaded Paranoid::Lockfile' );
ok( eval 'require Paranoid::Log::Buffer;', 'Loaded Paranoid::Log::Buffer' );
ok( eval 'require Paranoid::Log::File;', 'Loaded Paranoid::Log::File' );
ok( eval 'require Paranoid::Module;', 'Loaded Paranoid::Module' );
ok( eval 'require Paranoid::Network;', 'Loaded Paranoid::Network' );
ok( eval 'require Paranoid::Network::IPv4;',
'Loaded Paranoid::Network::IPv4'
);
ok( eval 'require Paranoid::Network::IPv6;',
'Loaded Paranoid::Network::IPv6'
);
ok( eval 'require Paranoid::Network::Socket;',
'Loaded Paranoid::Network::Socket'
);
ok( eval 'require Paranoid::Process;', 'Loaded Paranoid::Process' );
eval 'Paranoid->import;';
ok( psecureEnv('/bin:/sbin'), 'psecureEnv 1' );
is( $ENV{PATH}, '/bin:/sbin', 'Validated PATH' );
ok( psecureEnv(), 'psecureEnv 2' );
is( $ENV{PATH}, '/bin:/usr/bin', 'Validated PATH' );