1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use strict;
use warnings;
use Test::More tests => 4;
# 1: Make sure we can load the module
BEGIN { use_ok('String::Random', ':all'); }
# 2: Make sure we can create a new object
my $foo=new String::Random;
ok(defined($foo), "new()");
# 3: Test function interface to randpattern()
my $abc=random_string("012", ['a'], ['b'], ['c']);
is($abc, 'abc', "random_string()");
# 4: Make sure the function didn't pollute $foo
ok(!defined($foo->{'0'}), "pollute object");
# vi: set ai et syntax=perl:
|
