1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
my $pkg;
BEGIN {
$pkg = 'Catmandu::IdGenerator::Mock';
use_ok $pkg;
}
require_ok $pkg;
{
my $expected = [0 .. 10];
my $generated = [];
my $id_generator = $pkg->new;
isa_ok $id_generator, $pkg;
ok $id_generator->does("Catmandu::IdGenerator"),
"an object of class '$pkg' does 'Catmandu::IdGenerator'";
push @$generated, map {$id_generator->generate} @$expected;
is_deeply $generated, $expected,
"generated ids correct (default first_id)";
}
{
my $expected = [5 .. 20];
my $generated = [];
my $id_generator = $pkg->new(first_id => $expected->[0]);
isa_ok $id_generator, $pkg;
ok $id_generator->does("Catmandu::IdGenerator"),
"an object of class '$pkg' does 'Catmandu::IdGenerator'";
push @$generated, map {$id_generator->generate} @$expected;
is_deeply $generated, $expected,
"generated ids correct (custom first_id)";
}
done_testing;
|
