File: 07-empty-string-import.t

package info (click to toggle)
libtest-mockrandom-perl 1.01-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 256 kB
  • sloc: perl: 326; makefile: 2
file content (21 lines) | stat: -rwxr-xr-x 359 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
# Testing Test::MockRandom
use strict;

use Test::More tests => 7;

use Test::MockRandom '';
my @fcns = qw(
  rand
  srand
  oneish
  export_rand_to
  export_srand_to
  export_oneish_to
);

can_ok( 'Test::MockRandom', @fcns );
for my $fcn (@fcns) {
    ok( !UNIVERSAL::can( __PACKAGE__, $fcn ),
        "confirming that $fcn wasn't imported by default" );
}