View | Details | Raw Unified | Return to bug 10653
Collapse All | Expand All

(-)a/t/db_dependent/RotatingCollections.t (-1 / +308 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
use Modern::Perl;
4
5
use Test::More tests => 41;
6
use C4::Context;
7
use DBI;
8
use C4::Branch;
9
use C4::Biblio;
10
11
BEGIN {
12
    use_ok('C4::RotatingCollections');
13
}
14
15
can_ok(
16
    'C4::RotatingCollections',
17
    qw(
18
      AddItemToCollection
19
      CreateCollection
20
      DeleteCollection
21
      GetCollection
22
      GetCollectionItemBranches
23
      GetCollections
24
      GetItemsInCollection
25
      RemoveItemFromCollection
26
      TransferCollection
27
      UpdateCollection
28
      isItemInAnyCollection
29
      isItemInThisCollection
30
      )
31
);
32
33
#Start transaction
34
my $dbh = C4::Context->dbh;
35
$dbh->{RaiseError} = 1;
36
$dbh->{AutoCommit} = 0;
37
38
#Start Tests
39
$dbh->do(q|DELETE FROM issues |);
40
$dbh->do(q|DELETE FROM borrowers |);
41
$dbh->do(q|DELETE FROM items |);
42
$dbh->do(q|DELETE FROM collections_tracking |);
43
$dbh->do(q|DELETE FROM collections |);
44
$dbh->do(q|DELETE FROM branches |);
45
$dbh->do(q|DELETE FROM categories|);
46
$dbh->do(q|DELETE FROM branchcategories|);
47
48
#Test CreateCollection
49
my $collections     = GetCollections;
50
my $countcollection = scalar(@$collections);
51
52
is( CreateCollection( 'Collection1', 'Description1' ),
53
    1, "All parameters have been given - Collection 1 added" );
54
my $collection_id1 = $dbh->last_insert_id( undef, undef, 'collections', undef );
55
is( CreateCollection( 'Collection2', 'Description2' ),
56
    1, "All parameters have been given - Collection 2 added" );
57
my $collection_id2 = $dbh->last_insert_id( undef, undef, 'collections', undef );
58
$collections = GetCollections;
59
is(
60
    scalar(@$collections),
61
    $countcollection + 2,
62
    "Collection1 and Collection2 have been added"
63
);
64
my $collection = CreateCollection('Collection');
65
is( $collection, 'No Description Given', "The field description is missing" );
66
$collection = CreateCollection();
67
is(
68
    $collection,
69
    'No Title Given',
70
    "The field description and title is missing"
71
);
72
$collections = GetCollections;
73
is( scalar(@$collections), $countcollection + 2, "No collection added" );
74
75
#FIXME, as the id is auto incremented, two similar Collections (same title /same description) can be created
76
#$collection1 = CreateCollection('Collection1','Description1');
77
78
#Test GetCollections
79
$collection = GetCollections;
80
is_deeply(
81
    $collections,
82
    [
83
        {
84
            colId         => $collection_id1,
85
            colTitle      => 'Collection1',
86
            colDesc       => 'Description1',
87
            colBranchcode => undef
88
        },
89
        {
90
            colId         => $collection_id2,
91
            colTitle      => 'Collection2',
92
            colDesc       => 'Description2',
93
            colBranchcode => undef
94
        }
95
    ],
96
    'All Collections'
97
);
98
99
#Test UpdateCollection
100
is(
101
    UpdateCollection(
102
        $collection_id2,
103
        'Collection2 modified',
104
        'Description2 modified'
105
    ),
106
    1,
107
    "Collection2 has been modified"
108
);
109
110
#FIXME : The following test should pass, currently, with a wrong id UpdateCollection returns 1 even if nothing has been modified
111
#is(UpdateCollection(-1,'Collection2 modified','Description2 modified'),
112
#   0,
113
#   "UpdateCollection with a wrong id");
114
is(
115
    UpdateCollection( 'Collection', 'Description' ),
116
    'No Description Given',
117
    "UpdateCollection without description"
118
);
119
is(
120
    UpdateCollection( 'Description' ),
121
    'No Title Given',
122
    "UpdateCollection without title"
123
);
124
is( UpdateCollection(), 'No Id Given', "UpdateCollection without params" );
125
126
#Test GetCollection
127
my @collection1 = GetCollection($collection_id1);
128
is_deeply(
129
    \@collection1,
130
    [ $collection_id1, 'Collection1', 'Description1', undef ],
131
    "Collection1's informations"
132
);
133
my @collection2 = GetCollection($collection_id2);
134
is_deeply(
135
    \@collection2,
136
    [ $collection_id2, 'Collection2 modified', 'Description2 modified', undef ],
137
    "Collection2's informations"
138
);
139
my @undef_collection = GetCollection();
140
is_deeply(
141
    \@undef_collection,
142
    [ undef, undef, undef, undef ],
143
    "GetCollection without id given"
144
);
145
@undef_collection = GetCollection(-1);
146
is_deeply(
147
    \@undef_collection,
148
    [ undef, undef, undef, undef ],
149
    "GetCollection with a wrong id"
150
);
151
152
#Test TransferCollection
153
my $samplebranch = {
154
    add            => 1,
155
    branchcode     => 'SAB',
156
    branchname     => 'Sample Branch',
157
    branchaddress1 => 'sample adr1',
158
    branchaddress2 => 'sample adr2',
159
    branchaddress3 => 'sample adr3',
160
    branchzip      => 'sample zip',
161
    branchcity     => 'sample city',
162
    branchstate    => 'sample state',
163
    branchcountry  => 'sample country',
164
    branchphone    => 'sample phone',
165
    branchfax      => 'sample fax',
166
    branchemail    => 'sample email',
167
    branchurl      => 'sample url',
168
    branchip       => 'sample ip',
169
    branchprinter  => undef,
170
    branchnotes    => 'sample note',
171
    opac_info      => 'sample opac',
172
};
173
ModBranch($samplebranch);
174
is( TransferCollection( $collection_id1, $samplebranch->{branchcode} ),
175
    1, "Collection1 has been transfered in the branch SAB" );
176
@collection1 = GetCollection($collection_id1);
177
is_deeply(
178
    \@collection1,
179
    [
180
        $collection_id1, 'Collection1',
181
        'Description1',  $samplebranch->{branchcode}
182
    ],
183
    "Collection1 belongs to the sample branch (SAB)"
184
);
185
is( TransferCollection, "No Id Given", "TransferCollection without ID" );
186
is(
187
    TransferCollection($collection_id1),
188
    "No Branchcode Given",
189
    "TransferCollection without branchcode"
190
);
191
192
#Test AddItemToCollection
193
my $record = MARC::Record->new();
194
$record->append_fields(
195
    MARC::Field->new(
196
        '952', '0', '0',
197
        a => $samplebranch->{branchcode},
198
        b => $samplebranch->{branchcode}
199
    )
200
);
201
my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( $record, '', );
202
my @sampleitem1 = C4::Items::AddItem(
203
    {
204
        barcode        => 1,
205
        itemcallnumber => 'callnumber1',
206
        homebranch     => $samplebranch->{branchcode},
207
        holdingbranch  => $samplebranch->{branchcode}
208
    },
209
    $biblionumber
210
);
211
my $item_id1    = $sampleitem1[2];
212
my @sampleitem2 = C4::Items::AddItem(
213
    {
214
        barcode        => 2,
215
        itemcallnumber => 'callnumber2',
216
        homebranch     => $samplebranch->{branchcode},
217
        holdingbranch  => $samplebranch->{branchcode}
218
    },
219
    $biblionumber
220
);
221
my $item_id2 = $sampleitem2[2];
222
is( AddItemToCollection( $collection_id1, $item_id1 ),
223
    1, "Sampleitem1 has been added to Collection1" );
224
is( AddItemToCollection( $collection_id1, $item_id2 ),
225
    1, "Sampleitem2 has been added to Collection1" );
226
227
#Test GetItemsInCollection
228
my $itemsincollection1 = GetItemsInCollection($collection_id1);
229
is( scalar @$itemsincollection1, 2, "Collection1 has 2 items" );
230
is_deeply(
231
    $itemsincollection1,
232
    [
233
        {
234
            title          => undef,
235
            itemcallnumber => 'callnumber1',
236
            barcode        => 1
237
        },
238
        {
239
            title          => undef,
240
            itemcallnumber => 'callnumber2',
241
            barcode        => 2
242
        }
243
    ],
244
    "Collection1 has Item1 and Item2"
245
);
246
247
#Test RemoveItemFromCollection
248
is( RemoveItemFromCollection( $collection_id1, $item_id2 ),
249
    1, "Item2 has been removed from collection 1" );
250
$itemsincollection1 = GetItemsInCollection($collection_id1);
251
is( scalar @$itemsincollection1, 1, "Collection1 has 1 items" );
252
253
#Test isItemInAnyCollection
254
is( C4::RotatingCollections::isItemInAnyCollection($item_id1),
255
    1, "Item1 is in a collection" );
256
is( C4::RotatingCollections::isItemInAnyCollection($item_id2),
257
    0, "Item2 is not in a collection" );
258
is( C4::RotatingCollections::isItemInAnyCollection(),
259
    0, "isItemInAnyCollection returns 0 if no itemid given " );
260
is( C4::RotatingCollections::isItemInAnyCollection(-1),
261
    0, "isItemInAnyCollection returns 0 if a wrong id is given" );
262
263
#Test isItemInThisCollection
264
is(
265
    C4::RotatingCollections::isItemInThisCollection(
266
        $item_id1, $collection_id1
267
    ),
268
    1,
269
    "Item1 is in the Collection1"
270
);
271
is(
272
    C4::RotatingCollections::isItemInThisCollection(
273
        $item_id1, $collection_id2
274
    ),
275
    0,
276
    "Item1 is not in the Collection2"
277
);
278
is(
279
    C4::RotatingCollections::isItemInThisCollection(
280
        $item_id2, $collection_id2
281
    ),
282
    0,
283
    "Item2 is not in the Collection2"
284
);
285
is( C4::RotatingCollections::isItemInThisCollection($collection_id1),
286
    0, "isItemInThisCollection returns 0 is ItemId is missing" );
287
is( C4::RotatingCollections::isItemInThisCollection($item_id1),
288
    0, "isItemInThisCollection returns 0 is Collectionid if missing" );
289
is( C4::RotatingCollections::isItemInThisCollection(),
290
    0, "isItemInThisCollection returns 0 if no params given" );
291
292
#Test DeleteCollection
293
is( DeleteCollection($collection_id2), 1, "Collection2 deleted" );
294
is( DeleteCollection($collection_id1), 1, "Collection1 deleted" );
295
is(
296
    DeleteCollection(),
297
    'No Collection Id Given',
298
    "DeleteCollection without id"
299
);
300
$collections = GetCollections;
301
is(
302
    scalar(@$collections),
303
    $countcollection + 0,
304
    "Two Collections have been deleted"
305
);
306
307
#End transaction
308
$dbh->rollback;

Return to bug 10653