|
Packit |
37d9e7 |
#!/usr/bin/perl
|
|
Packit |
37d9e7 |
|
|
Packit |
37d9e7 |
use 5.00503;
|
|
Packit |
37d9e7 |
use strict;
|
|
Packit |
37d9e7 |
BEGIN {
|
|
Packit |
37d9e7 |
$| = 1;
|
|
Packit |
37d9e7 |
$^W = 1;
|
|
Packit |
37d9e7 |
$ENV{PERL_PARAMS_UTIL_PP} ||= 0;
|
|
Packit |
37d9e7 |
}
|
|
Packit |
37d9e7 |
|
|
Packit |
37d9e7 |
use Test::More tests => 4;
|
|
Packit |
37d9e7 |
use File::Spec::Functions ':ALL';
|
|
Packit |
37d9e7 |
|
|
Packit |
37d9e7 |
# Does the module load
|
|
Packit |
37d9e7 |
use_ok('Params::Util');
|
|
Packit |
37d9e7 |
|
|
Packit |
37d9e7 |
# Double check that Scalar::Util is valid
|
|
Packit |
37d9e7 |
require_ok( 'Scalar::Util' );
|
|
Packit |
37d9e7 |
ok( $Scalar::Util::VERSION >= 1.10, 'Scalar::Util version is at least 1.18' );
|
|
Packit |
37d9e7 |
ok( defined &Scalar::Util::refaddr, 'Scalar::Util has a refaddr implementation' );
|