Blob Blame History Raw
#!/usr/bin/perl

use 5.00503;
use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
	$ENV{PERL_PARAMS_UTIL_PP} ||= 1;
}

use Test::More tests => 4;
use File::Spec::Functions ':ALL';

# Does the module load
use_ok('Params::Util');

# Double check that Scalar::Util is valid
require_ok( 'Scalar::Util' );
ok( $Scalar::Util::VERSION >= 1.10, 'Scalar::Util version is at least 1.18' );
ok( defined &Scalar::Util::refaddr, 'Scalar::Util has a refaddr implementation' );