Bug 9259: Use is instead of is_deeply
[koha.git] / t / db_dependent / ClassSource.t
1 #!/usr/bin/perl
2
3 use Modern::Perl;
4
5 use Test::More tests => 25;
6 use Test::Warn;
7
8 use C4::Context;
9
10 BEGIN {
11     use_ok('C4::ClassSource');
12 }
13 can_ok( 'C4::ClassSource',
14     qw( AddClassSortRule
15         AddClassSource
16         GetClassSort
17         GetClassSortRule
18         GetClassSortRules
19         GetClassSource
20         GetClassSources
21         DelClassSortRule
22         DelClassSource
23         GetSourcesForSortRule
24         ModClassSortRule
25         ModClassSource)
26 );
27
28 #Start transaction
29 my $dbh = C4::Context->dbh;
30 $dbh->{RaiseError} = 1;
31 $dbh->{AutoCommit} = 0;
32
33 #Start tests
34 $dbh->do(q|DELETE FROM class_sources|);
35 $dbh->do(q|DELETE FROM class_sort_rules|);
36
37 #Test AddClassSortRule
38 my $countSources  = scalar( keys(%{ GetClassSources() }) );
39 my $countSources2 = scalar( keys(%{ GetClassSortRules() }) );
40 AddClassSortRule( 'sortrule1', 'description1', 'routine1' );
41 AddClassSortRule( 'sortrule2', 'description2', 'routine2' );
42 is(
43     scalar( keys(%{ GetClassSortRules() }) ),
44     $countSources + 2,
45     "SortRule1 and SortRules2 have been added"
46 );
47
48 #Test AddClassSource
49 AddClassSource( 'source1', 'Description_source1', 1, 'sortrule1' );
50 AddClassSource( 'source2', 'Description_source2', 0, 'sortrule1' );
51 is(
52     scalar( keys(%{ GetClassSources() }) ),
53     $countSources2 + 2,
54     "Source1 and source2 have been added"
55 );
56
57 #Test GetClassSortRule
58 is_deeply(
59     GetClassSortRule('sortrule1'),
60     {
61         class_sort_rule => 'sortrule1',
62         description     => 'description1',
63         sort_routine    => 'routine1'
64     },
65     "GetClassSort gives sortrule1's information"
66 );
67 is_deeply( GetClassSortRule(), undef,
68     "GetClassSort without params returns undef" );
69 is_deeply( GetClassSortRule('doesnt_exist'),
70     undef, "GetClassSort with an id which doesn't exist returns undef" );
71
72 #Test GetClassSortRules
73 my $getsortrules = GetClassSortRules();
74 is_deeply(
75     $getsortrules,
76     {
77         sortrule1 => {
78             class_sort_rule => 'sortrule1',
79             description     => 'description1',
80             sort_routine    => 'routine1'
81         },
82         sortrule2 => {
83             class_sort_rule => 'sortrule2',
84             description     => 'description2',
85             sort_routine    => 'routine2'
86         }
87     },
88     "GetClassSortRules returns the id off all SortRule and their information"
89 );
90
91 #Test GetClassSource
92 my $getsource1 = GetClassSource('source1');
93 is_deeply(
94     $getsource1,
95     {
96         cn_source       => 'source1',
97         description     => 'Description_source1',
98         used            => 1,
99         class_sort_rule => 'sortrule1'
100     },
101     "GetClassSource gives source1's information"
102 );
103 is_deeply( GetClassSource(), undef,
104     "GetClassSource without params returns undef" );
105 is_deeply( GetClassSource('doesnt_exist'),
106     undef, "GetClassSource with an id which doesn't exist returns undef" );
107
108 #Test GetClassSources
109 my $getsources = GetClassSources();
110 is_deeply(
111     $getsources,
112     {
113         source1 => {
114             cn_source       => 'source1',
115             description     => 'Description_source1',
116             used            => 1,
117             class_sort_rule => 'sortrule1'
118         },
119         source2 => {
120             cn_source       => 'source2',
121             description     => 'Description_source2',
122             used            => 0,
123             class_sort_rule => 'sortrule1'
124         }
125     },
126     "GetClassSources returns the id off all sources and their information"
127 );
128
129 #Test GetClassSort
130 my $getclassSort;
131 warning_like
132     { $getclassSort = GetClassSort( 'source1', 'sortrule1', 'item1' ) }
133     qr/attempting to use non-existent class sorting routine/,
134     'Non-existent class warning caught';
135 is( $getclassSort, "SORTRULE1_ITEM1",
136 " the sort key corresponding to Source1 and sortrule1 and item1 is SORTRULE1_ITEM1"
137 );
138
139 #Test GetSourcesForSorSortRule
140 my @sources = GetSourcesForSortRule('sortrule1');
141 is_deeply(
142     \@sources,
143     [ 'source1', 'source2' ],
144     "Sortrule1 has source1 and source2"
145 );
146 @sources = GetSourcesForSortRule();
147 is_deeply( \@sources, [],
148     "Without params GetSourcesForSortRule returns an empty array" );
149 @sources = GetSourcesForSortRule('doesnt_exist');
150 is_deeply( \@sources, [],
151     "With a wrong params GetSourcesForSortRule returns an empty array" );
152
153 #Test DelClassSortRule
154 #DelClassSortRule ('sortrule1');
155 #is(scalar (keys (%{ GetClassSortRules() })),1,"SortRule1 has been deleted");#FIXME : impossible if some sources exist
156 DelClassSortRule('sortrule2');
157 is( scalar( keys(%{ GetClassSortRules() }) ), 1, "SortRule2 has been deleted" );
158 DelClassSortRule();
159 is( scalar( keys(%{ GetClassSortRules() }) ),
160     1, "Without params DelClassSortRule doesn't do anything" );
161 DelClassSortRule('doesnt_exist');
162 is( scalar( keys(%{ GetClassSortRules() }) ),
163     1, "With wrong id, DelClassSortRule doesn't do anything" );
164
165 #Test DelClassSource
166 DelClassSource('source2');
167 is( scalar( keys(%{ GetClassSources() }) ), 1, "Source2 has been deleted" );
168 DelClassSource();
169 is( scalar( keys(%{ GetClassSources() }) ),
170     1, "Without params DelClassSource doesn't do anything" );
171 DelClassSource('doesnt_exist');
172 is( scalar( keys(%{ GetClassSources() }) ),
173     1, "With wrong id, DelClassSource doesn't do anything" );
174
175 #Test ModClassSortRule
176 ModClassSortRule( 'sortrule1', 'description1_modified', 'routine1_modified' );
177 is_deeply(
178     GetClassSortRule('sortrule1'),
179     {
180         class_sort_rule => 'sortrule1',
181         description     => 'description1_modified',
182         sort_routine    => 'routine1_modified'
183     },
184     "Sortrule1 has been modified"
185 );
186
187 #Test ModClassSource
188 ModClassSource( 'source1', 'Description_source1_modified', 0, 'sortrule1' );
189 is_deeply(
190     GetClassSource('source1'),
191     {
192         cn_source       => 'source1',
193         description     => 'Description_source1_modified',
194         used            => 0,
195         class_sort_rule => 'sortrule1'
196     },
197     "Source1 has been modified"
198 );
199
200 #End transaction
201 $dbh->rollback;