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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
# Copyright (c) 2008 by Ricardo Signes. All rights reserved.
# Licensed under terms of Perl itself (the "License").
# You may not use this file except in compliance with the License.
# A copy of the License was distributed with this file or you may obtain a
# copy of the License from http://dev.perl.org/licenses/
use strict;
use warnings;
use Test::More;
use Test::Exception;
use lib 't/lib';
plan tests => 9;
require_ok( 'Metabase::Report' );
require_ok( 'Test::Metabase::StringFact' );
#--------------------------------------------------------------------------#
# fixtures
#--------------------------------------------------------------------------#
require ReportSubclasses;
require FactSubclasses;
my %params = (
resource => "cpan:///distfile/JOHNDOE/Foo-Bar-1.23.tar.gz",
);
my %facts = (
FactOne => FactOne->new( %params, content => "FactOne" ),
FactTwo => FactTwo->new( %params, content => "FactTwo" ),
);
my ($obj, $err);
#--------------------------------------------------------------------------#
# report that takes 1 fact
#--------------------------------------------------------------------------#
lives_ok {
$obj = JustOneFact->new( %params, content => [ $facts{FactOne} ] );
} "lives: new() takes 1 fact, and given 1 fact";
dies_ok {
$obj = JustOneFact->new( %params, content => [ ] );
} "dies: new() takes 1 fact, but given none";
dies_ok {
$obj = JustOneFact->new( %params,
content => [ @facts{qw/FactOne FactTwo/} ]
);
} "dies: new() takes 1 fact, but given 2 facts";
#--------------------------------------------------------------------------#
# report that takes 1+ facts
#--------------------------------------------------------------------------#
lives_ok {
$obj = OneOrMoreFacts->new( %params,
content => [ @facts{qw/FactOne FactTwo/} ]
);
} "lives: new() takes 1+ fact, and given 2 facts";
#--------------------------------------------------------------------------#
# report that takes 1 of each
#--------------------------------------------------------------------------#
lives_ok {
$obj = OneOfEach->new( %params,
content => [ @facts{qw/FactOne FactTwo/} ]
);
} "lives: new() takes 1 of each, given 1 of each";
dies_ok {
$obj = OneOfEach->new( %params,
content => [ @facts{qw/FactOne FactOne/} ]
);
} "dies: new() takes 1 of each, given 2 of one kind";
#--------------------------------------------------------------------------#
# report that takes 1 of each
#--------------------------------------------------------------------------#
lives_ok {
$obj = OneSpecificAtLeastThreeTotal->new( %params,
content => [ @facts{qw/FactOne FactTwo FactTwo/} ]
);
} "lives: new() takes 1 specific 3 total, given correctly";
|
