use Test::More tests => 41;
use C4::Context;
-use DBI;
use C4::Branch;
use C4::Biblio;
$dbh->do(q|DELETE FROM branchcategories|);
#Test CreateCollection
-my $collections = GetCollections;
+my $collections = GetCollections();
my $countcollection = scalar(@$collections);
is( CreateCollection( 'Collection1', 'Description1' ),
is( CreateCollection( 'Collection2', 'Description2' ),
1, "All parameters have been given - Collection 2 added" );
my $collection_id2 = $dbh->last_insert_id( undef, undef, 'collections', undef );
-$collections = GetCollections;
+$collections = GetCollections();
is(
scalar(@$collections),
$countcollection + 2,
'No Title Given',
"The field description and title is missing"
);
-$collections = GetCollections;
+$collections = GetCollections();
is( scalar(@$collections), $countcollection + 2, "No collection added" );
#FIXME, as the id is auto incremented, two similar Collections (same title /same description) can be created
#$collection1 = CreateCollection('Collection1','Description1');
#Test GetCollections
-$collection = GetCollections;
+$collection = GetCollections();
is_deeply(
$collections,
[
'No Collection Id Given',
"DeleteCollection without id"
);
-$collections = GetCollections;
+$collections = GetCollections();
is(
scalar(@$collections),
$countcollection + 0,