Marcel de Rooy
63fbb336bd
The current test had no warnings, when you have no MPL branch, and only catches the warn from the second build on line 57. If you do have MPL, a warning comes from line 56. This patch fixes it by removing MPL from the test. A new branch is created first and then we try to create it again. Test plan: Run the test. Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
326 lines
11 KiB
Perl
326 lines
11 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Copyright 2014 - Biblibre SARL
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use Test::More tests => 9;
|
|
use Test::Warn;
|
|
use Data::Dumper qw(Dumper);
|
|
|
|
use Koha::Database;
|
|
|
|
BEGIN {
|
|
use_ok('t::lib::TestBuilder');
|
|
}
|
|
|
|
my $schema = Koha::Database->new->schema;
|
|
$schema->storage->txn_begin;
|
|
my $builder;
|
|
|
|
|
|
subtest 'Start with some trivial tests' => sub {
|
|
plan tests => 6;
|
|
|
|
$builder = t::lib::TestBuilder->new;
|
|
isnt( $builder, undef, 'We got a builder' );
|
|
|
|
is( $builder->build, undef, 'build without arguments returns undef' );
|
|
is( ref( $builder->schema ), 'Koha::Schema', 'check schema' );
|
|
is( ref( $builder->can('delete') ), 'CODE', 'found delete method' );
|
|
|
|
# invalid argument
|
|
warning_like { $builder->build({
|
|
source => 'Borrower',
|
|
value => { surname => { invalid_hash => 1 } },
|
|
}) } qr/^Hash not allowed for surname/,
|
|
'Build should not accept a hash for this column';
|
|
|
|
# return undef if a record exists
|
|
my $branchcode = $builder->build({ source => 'Branch' })->{branchcode};
|
|
my $param = { source => 'Branch', value => { branchcode => $branchcode } };
|
|
warning_like { $builder->build( $param ) }
|
|
qr/Violation of unique constraint/,
|
|
'Catch warn on adding existing record';
|
|
};
|
|
|
|
|
|
subtest 'Build all sources' => sub {
|
|
plan tests => 1;
|
|
|
|
my @sources = $builder->schema->sources;
|
|
my @source_in_failure;
|
|
for my $source ( @sources ) {
|
|
my $res;
|
|
eval { $res = $builder->build( { source => $source } ); };
|
|
push @source_in_failure, $source if $@ || !defined( $res );
|
|
}
|
|
is( @source_in_failure, 0,
|
|
'TestBuilder should be able to create an object for every source' );
|
|
if ( @source_in_failure ) {
|
|
diag( "The following sources have not been generated correctly: " .
|
|
join ', ', @source_in_failure );
|
|
}
|
|
};
|
|
|
|
|
|
subtest 'Test length of some generated fields' => sub {
|
|
plan tests => 2;
|
|
|
|
# Test the length of a returned character field
|
|
my $bookseller = $builder->build({ source => 'Aqbookseller' });
|
|
my $max = $schema->source('Aqbookseller')->column_info('phone')->{size};
|
|
is( length( $bookseller->{phone} ) > 0, 1,
|
|
'The length for a generated string (phone) should not be zero' );
|
|
is( length( $bookseller->{phone} ) <= $max, 1,
|
|
'Check maximum length for a generated string (phone)' );
|
|
};
|
|
|
|
|
|
subtest 'Test FKs in overduerules_transport_type' => sub {
|
|
plan tests => 5;
|
|
|
|
my $my_overduerules_transport_type = {
|
|
message_transport_type => {
|
|
message_transport_type => 'my msg_t_t',
|
|
},
|
|
overduerules_id => {
|
|
branchcode => 'codeB',
|
|
categorycode => 'codeC',
|
|
},
|
|
};
|
|
|
|
my $overduerules_transport_type = $builder->build({
|
|
source => 'OverduerulesTransportType',
|
|
value => $my_overduerules_transport_type,
|
|
});
|
|
is(
|
|
$overduerules_transport_type->{message_transport_type},
|
|
$my_overduerules_transport_type->{message_transport_type}->{message_transport_type},
|
|
'build stores the message_transport_type correctly'
|
|
);
|
|
is(
|
|
$schema->resultset('Overduerule')->find( $overduerules_transport_type->{overduerules_id} )->branchcode,
|
|
$my_overduerules_transport_type->{overduerules_id}->{branchcode},
|
|
'build stores the branchcode correctly'
|
|
);
|
|
is(
|
|
$schema->resultset('Overduerule')->find( $overduerules_transport_type->{overduerules_id} )->categorycode,
|
|
$my_overduerules_transport_type->{overduerules_id}->{categorycode},
|
|
'build stores the categorycode correctly'
|
|
);
|
|
is(
|
|
$schema->resultset('MessageTransportType')->find( $overduerules_transport_type->{message_transport_type} )->message_transport_type,
|
|
$overduerules_transport_type->{message_transport_type},
|
|
'build stores the foreign key message_transport_type correctly'
|
|
);
|
|
isnt(
|
|
$schema->resultset('Overduerule')->find( $my_overduerules_transport_type->{overduerules_id} )->letter2,
|
|
undef,
|
|
'build generates values if they are not given'
|
|
);
|
|
};
|
|
|
|
|
|
subtest 'Tests with composite FK in userpermission' => sub {
|
|
plan tests => 9;
|
|
|
|
my $my_user_permission = default_userpermission();
|
|
my $user_permission = $builder->build({
|
|
source => 'UserPermission',
|
|
value => $my_user_permission,
|
|
});
|
|
|
|
# Checks on top level of userpermission
|
|
isnt(
|
|
$user_permission->{borrowernumber},
|
|
undef,
|
|
'build generates a borrowernumber correctly'
|
|
);
|
|
is(
|
|
$user_permission->{code},
|
|
$my_user_permission->{code}->{code},
|
|
'build stores code correctly'
|
|
);
|
|
|
|
# Checks one level deeper userpermission -> borrower
|
|
my $patron = $schema->resultset('Borrower')->find({ borrowernumber => $user_permission->{borrowernumber} });
|
|
is(
|
|
$patron->surname,
|
|
$my_user_permission->{borrowernumber}->{surname},
|
|
'build stores surname correctly'
|
|
);
|
|
isnt(
|
|
$patron->cardnumber,
|
|
undef,
|
|
'build generated cardnumber'
|
|
);
|
|
|
|
# Checks two levels deeper userpermission -> borrower -> branch
|
|
my $branch = $schema->resultset('Branch')->find({ branchcode => $patron->branchcode->branchcode });
|
|
is(
|
|
$branch->branchname,
|
|
$my_user_permission->{borrowernumber}->{branchcode}->{branchname},
|
|
'build stores branchname correctly'
|
|
);
|
|
isnt(
|
|
$branch->branchaddress1,
|
|
undef,
|
|
'build generated branch address'
|
|
);
|
|
|
|
# Checks with composite FK: userpermission -> permission
|
|
my $perm = $schema->resultset('Permission')->find({ module_bit => $user_permission->{module_bit}, code => $my_user_permission->{code}->{code} });
|
|
isnt( $perm, undef, 'build generated record for composite FK' );
|
|
is(
|
|
$perm->code,
|
|
$my_user_permission->{code}->{code},
|
|
'build stored code correctly'
|
|
);
|
|
is(
|
|
$perm->description,
|
|
$my_user_permission->{code}->{description},
|
|
'build stored description correctly'
|
|
);
|
|
};
|
|
|
|
sub default_userpermission {
|
|
return {
|
|
borrowernumber => {
|
|
surname => 'my surname',
|
|
address => 'my adress',
|
|
city => 'my city',
|
|
branchcode => {
|
|
branchname => 'my branchname',
|
|
},
|
|
categorycode => {
|
|
hidelostitems => 0,
|
|
category_type => 'A',
|
|
default_privacy => 'default',
|
|
},
|
|
privacy => 1,
|
|
},
|
|
module_bit => {
|
|
flag => 'my flag',
|
|
},
|
|
code => {
|
|
code => 'my code',
|
|
description => 'my desc',
|
|
},
|
|
};
|
|
}
|
|
|
|
|
|
subtest 'Test build with NULL values' => sub {
|
|
plan tests => 3;
|
|
|
|
# PK should not be null
|
|
my $params = { source => 'Branch', value => { branchcode => undef }};
|
|
warning_like { $builder->build( $params ) }
|
|
qr/Null value for branchcode/,
|
|
'Catch warn on adding branch with a null branchcode';
|
|
# Nullable column
|
|
my $info = $schema->source( 'Item' )->column_info( 'barcode' );
|
|
$params = { source => 'Item', value => { barcode => undef }};
|
|
my $item = $builder->build( $params );
|
|
is( $info->{is_nullable} && $item && !defined( $item->{barcode} ), 1,
|
|
'Barcode can be NULL' );
|
|
# Nullable FK
|
|
$params = { source => 'Reserve', value => { itemnumber => undef }};
|
|
my $reserve = $builder->build( $params );
|
|
$info = $schema->source( 'Reserve' )->column_info( 'itemnumber' );
|
|
is( $reserve && $info->{is_nullable} && $info->{is_foreign_key} &&
|
|
!defined( $reserve->{itemnumber} ), 1, 'Nullable FK' );
|
|
};
|
|
|
|
|
|
subtest 'Tests for delete method' => sub {
|
|
plan tests => 12;
|
|
|
|
# Test delete with single and multiple records
|
|
my $basket1 = $builder->build({ source => 'Aqbasket' });
|
|
my $basket2 = $builder->build({ source => 'Aqbasket' });
|
|
my $basket3 = $builder->build({ source => 'Aqbasket' });
|
|
my ( $id1, $id2 ) = ( $basket1->{basketno}, $basket2->{basketno} );
|
|
$builder->delete({ source => 'Aqbasket', records => $basket1 });
|
|
isnt( exists $basket1->{basketno}, 1, 'Delete cleared PK hash value' );
|
|
|
|
is( $builder->schema->resultset('Aqbasket')->search({ basketno => $id1 })->count, 0, 'Basket1 is no longer found' );
|
|
is( $builder->schema->resultset('Aqbasket')->search({ basketno => $id2 })->count, 1, 'Basket2 is still found' );
|
|
is( $builder->delete({ source => 'Aqbasket', records => [ $basket2, $basket3 ] }), 2, "Returned two delete attempts" );
|
|
is( $builder->schema->resultset('Aqbasket')->search({ basketno => $id2 })->count, 0, 'Basket2 is no longer found' );
|
|
|
|
|
|
# Test delete in table without primary key (..)
|
|
is( $schema->source('TmpHoldsqueue')->primary_columns, 0,
|
|
'Table without primary key detected' );
|
|
my $bibno = 123; # just a number
|
|
my $cnt1 = $schema->resultset('TmpHoldsqueue')->count;
|
|
# Insert a new record in TmpHoldsqueue with that biblionumber
|
|
my $val = { biblionumber => $bibno };
|
|
my $rec = $builder->build({ source => 'TmpHoldsqueue', value => $val });
|
|
my $cnt2 = $schema->resultset('TmpHoldsqueue')->count;
|
|
is( defined($rec) && $cnt2 == $cnt1 + 1 , 1, 'Created a record' );
|
|
is( $builder->delete({ source => 'TmpHoldsqueue', records => $rec }),
|
|
undef, 'delete returns undef' );
|
|
is( $rec->{biblionumber}, $bibno, 'Hash value untouched' );
|
|
is( $schema->resultset('TmpHoldsqueue')->count, $cnt2,
|
|
"Method did not delete record in table without PK" );
|
|
|
|
# Test delete with NULL values
|
|
$val = { branchcode => undef };
|
|
is( $builder->delete({ source => 'Branch', records => $val }), 0,
|
|
'delete returns zero for an undef search with one key' );
|
|
$val = { module_bit => 1, #catalogue
|
|
code => undef };
|
|
is( $builder->delete({ source => 'Permission', records => $val }), 0,
|
|
'delete returns zero for an undef search with a composite PK' );
|
|
};
|
|
|
|
|
|
subtest 'Auto-increment values tests' => sub {
|
|
plan tests => 3;
|
|
|
|
# Pick a table with AI PK
|
|
my $source = 'Biblio'; # table
|
|
my $column = 'biblionumber'; # ai column
|
|
|
|
my $col_info = $schema->source( $source )->column_info( $column );
|
|
is( $col_info->{is_auto_increment}, 1, "biblio.biblionumber is detected as autoincrement");
|
|
|
|
# Create a biblio
|
|
my $biblio_1 = $builder->build({ source => $source });
|
|
# Get the AI value
|
|
my $ai_value = $biblio_1->{ biblionumber };
|
|
# Create a biblio
|
|
my $biblio_2 = $builder->build({ source => $source });
|
|
# Get the next AI value
|
|
my $next_ai_value = $biblio_2->{ biblionumber };
|
|
is( $ai_value + 1, $next_ai_value, "AI values are consecutive");
|
|
|
|
# respect autoincr column
|
|
warning_like { $builder->build({
|
|
source => $source,
|
|
value => { biblionumber => 123 },
|
|
}) } qr/^Value not allowed for auto_incr/,
|
|
'Build should not overwrite an auto_incr column';
|
|
};
|
|
|
|
$schema->storage->txn_rollback;
|
|
|
|
1;
|