The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

BAREFOOT / Data-Random-0.13 / t / 00.load.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
# -*- perl -*-
# t/00.load.t - check module loading
use Test::More tests => 2;
BEGIN { use_ok( 'Data::Random' ); }
isnt $INC[0], '..', 'no longer corrupting @INC';
done_testing;