|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 41; |
22 |
use Test::More tests => 9; |
|
|
23 |
use Test::Warn; |
| 24 |
use Data::Dumper qw(Dumper); |
| 23 |
|
25 |
|
| 24 |
use Koha::Database; |
26 |
use Koha::Database; |
| 25 |
|
27 |
|
|
Lines 27-260
BEGIN {
Link Here
|
| 27 |
use_ok('t::lib::TestBuilder'); |
29 |
use_ok('t::lib::TestBuilder'); |
| 28 |
} |
30 |
} |
| 29 |
|
31 |
|
| 30 |
my $schema = Koha::Database->new->schema; |
32 |
my $schema = Koha::Database->new->schema; |
| 31 |
$schema->storage->txn_begin; |
33 |
$schema->storage->txn_begin; |
|
|
34 |
my $builder; |
| 32 |
|
35 |
|
| 33 |
my $builder = t::lib::TestBuilder->new(); |
|
|
| 34 |
|
36 |
|
| 35 |
is( $builder->build(), undef, 'build without arguments returns undef' ); |
37 |
subtest 'Start with some trivial tests' => sub { |
|
|
38 |
plan tests => 6; |
| 36 |
|
39 |
|
| 37 |
my @sources = $builder->schema->sources; |
40 |
$builder = t::lib::TestBuilder->new; |
| 38 |
my @source_in_failure; |
41 |
isnt( $builder, undef, 'We got a builder' ); |
| 39 |
for my $source (@sources) { |
42 |
|
| 40 |
eval { $builder->build( { source => $source } ); }; |
43 |
is( $builder->build, undef, 'build without arguments returns undef' ); |
| 41 |
push @source_in_failure, $source if $@; |
44 |
is( ref( $builder->schema ), 'Koha::Schema', 'check schema' ); |
| 42 |
} |
45 |
is( ref( $builder->can('delete') ), 'CODE', 'found delete method' ); |
| 43 |
is( @source_in_failure, 0, 'TestBuilder should be able to create an object for every sources' ); |
|
|
| 44 |
if ( @source_in_failure ) { |
| 45 |
diag ("The following sources have not been generated correctly: " . join ', ', @source_in_failure) |
| 46 |
} |
| 47 |
|
46 |
|
| 48 |
my $my_overduerules_transport_type = { |
47 |
# invalid argument |
| 49 |
message_transport_type => { |
48 |
warning_like { $builder->build({ |
| 50 |
message_transport_type => 'my msg_t_t', |
49 |
source => 'Borrower', |
| 51 |
}, |
50 |
value => { surname => { invalid_hash => 1 } }, |
| 52 |
overduerules_id => { |
51 |
}) } qr/^Hash not allowed for surname/, |
| 53 |
branchcode => 'codeB', |
52 |
'Build should not accept a hash for this column'; |
| 54 |
categorycode => 'codeC', |
53 |
|
| 55 |
}, |
54 |
# return undef if a record exists |
| 56 |
categorycode => undef, |
55 |
my $param = { source => 'Branch', value => { branchcode => 'MPL' } }; |
|
|
56 |
$builder->build( $param ); # at least it should exist now |
| 57 |
is( $builder->build( $param ), undef, 'Return undef when exists' ); |
| 57 |
}; |
58 |
}; |
| 58 |
$my_overduerules_transport_type->{categorycode} = $my_overduerules_transport_type->{branchcode}; |
|
|
| 59 |
my $overduerules_transport_type = $builder->build({ |
| 60 |
source => 'OverduerulesTransportType', |
| 61 |
value => $my_overduerules_transport_type, |
| 62 |
}); |
| 63 |
is( |
| 64 |
$overduerules_transport_type->{message_transport_type}, |
| 65 |
$my_overduerules_transport_type->{message_transport_type}->{message_transport_type}, |
| 66 |
'build stores the message_transport_type correctly' |
| 67 |
); |
| 68 |
is( |
| 69 |
$overduerules_transport_type->{branchcode}, |
| 70 |
$my_overduerules_transport_type->{branchcode}->{branchcode}, |
| 71 |
'build stores the branchcode correctly' |
| 72 |
); |
| 73 |
is( |
| 74 |
$overduerules_transport_type->{categorycode}, |
| 75 |
$my_overduerules_transport_type->{categorycode}->{categorycode}, |
| 76 |
'build stores the categorycode correctly' |
| 77 |
); |
| 78 |
is( |
| 79 |
$overduerules_transport_type->{_fk}->{message_transport_type}->{message_transport_type}, |
| 80 |
$my_overduerules_transport_type->{message_transport_type}->{message_transport_type}, |
| 81 |
'build stores the foreign key message_transport_type correctly' |
| 82 |
); |
| 83 |
is( |
| 84 |
$overduerules_transport_type->{_fk}->{branchcode}->{branchcode}, |
| 85 |
$my_overduerules_transport_type->{branchcode}->{branchcode}, |
| 86 |
'build stores the foreign key branchcode correctly' |
| 87 |
); |
| 88 |
is( |
| 89 |
$overduerules_transport_type->{_fk}->{categorycode}->{categorycode}, |
| 90 |
$my_overduerules_transport_type->{categorycode}->{categorycode}, |
| 91 |
'build stores the foreign key categorycode correctly' |
| 92 |
); |
| 93 |
is_deeply( |
| 94 |
$overduerules_transport_type->{_fk}->{branchcode}, |
| 95 |
$overduerules_transport_type->{_fk}->{categorycode}, |
| 96 |
'build links the branchcode and the categorycode correctly' |
| 97 |
); |
| 98 |
isnt( |
| 99 |
$overduerules_transport_type->{_fk}->{overduerules_id}->{letter2}, |
| 100 |
undef, |
| 101 |
'build generates values if they are not given' |
| 102 |
); |
| 103 |
|
| 104 |
my $my_user_permission = $t::lib::TestBuilder::default_value->{UserPermission}; |
| 105 |
my $user_permission = $builder->build({ |
| 106 |
source => 'UserPermission', |
| 107 |
}); |
| 108 |
isnt( |
| 109 |
$user_permission->{borrowernumber}, |
| 110 |
undef, |
| 111 |
'build generates a borrowernumber correctly' |
| 112 |
); |
| 113 |
is( |
| 114 |
$user_permission->{module_bit}, |
| 115 |
$my_user_permission->{module_bit}->{module_bit}->{bit}, |
| 116 |
'build stores the default value correctly' |
| 117 |
); |
| 118 |
is( |
| 119 |
$user_permission->{code}, |
| 120 |
$my_user_permission->{module_bit}->{code}, |
| 121 |
'build stores the default value correctly' |
| 122 |
); |
| 123 |
is( |
| 124 |
$user_permission->{borrowernumber}, |
| 125 |
$user_permission->{_fk}->{borrowernumber}->{borrowernumber}, |
| 126 |
'build links the foreign key correctly' |
| 127 |
); |
| 128 |
is( |
| 129 |
$user_permission->{_fk}->{borrowernumber}->{surname}, |
| 130 |
$my_user_permission->{borrowernumber}->{surname}, |
| 131 |
'build stores the foreign key value correctly' |
| 132 |
); |
| 133 |
is( |
| 134 |
$user_permission->{_fk}->{borrowernumber}->{address}, |
| 135 |
$my_user_permission->{borrowernumber}->{address}, |
| 136 |
'build stores the foreign key value correctly' |
| 137 |
); |
| 138 |
is( |
| 139 |
$user_permission->{_fk}->{borrowernumber}->{city}, |
| 140 |
$my_user_permission->{borrowernumber}->{city}, |
| 141 |
'build stores the foreign key value correctly' |
| 142 |
); |
| 143 |
is( |
| 144 |
$user_permission->{_fk}->{borrowernumber}->{_fk}->{branchcode}->{branchcode}, |
| 145 |
$my_user_permission->{borrowernumber}->{branchcode}->{branchcode}, |
| 146 |
'build stores the foreign key value correctly' |
| 147 |
); |
| 148 |
is( |
| 149 |
$user_permission->{_fk}->{borrowernumber}->{_fk}->{branchcode}->{branchname}, |
| 150 |
$my_user_permission->{borrowernumber}->{branchcode}->{branchname}, |
| 151 |
'build stores the foreign key value correctly' |
| 152 |
); |
| 153 |
is( |
| 154 |
$user_permission->{_fk}->{borrowernumber}->{_fk}->{categorycode}->{categorycode}, |
| 155 |
$my_user_permission->{borrowernumber}->{categorycode}->{categorycode}, |
| 156 |
'build stores the foreign key value correctly' |
| 157 |
); |
| 158 |
is( |
| 159 |
$user_permission->{_fk}->{borrowernumber}->{_fk}->{categorycode}->{hidelostitems}, |
| 160 |
$my_user_permission->{borrowernumber}->{categorycode}->{hidelostitems}, |
| 161 |
'build stores the foreign key value correctly' |
| 162 |
); |
| 163 |
is( |
| 164 |
$user_permission->{_fk}->{borrowernumber}->{_fk}->{categorycode}->{category_type}, |
| 165 |
$my_user_permission->{borrowernumber}->{categorycode}->{category_type}, |
| 166 |
'build stores the foreign key value correctly' |
| 167 |
); |
| 168 |
is( |
| 169 |
$user_permission->{_fk}->{borrowernumber}->{_fk}->{categorycode}->{defaultprivacy}, |
| 170 |
$my_user_permission->{borrowernumber}->{categorycode}->{defaultprivacy}, |
| 171 |
'build stores the foreign key value correctly' |
| 172 |
); |
| 173 |
is( |
| 174 |
$user_permission->{_fk}->{borrowernumber}->{privacy}, |
| 175 |
$my_user_permission->{borrowernumber}->{privacy}, |
| 176 |
'build stores the foreign key value correctly' |
| 177 |
); |
| 178 |
is( |
| 179 |
$user_permission->{_fk}->{module_bit}->{_fk}->{module_bit}->{bit}, |
| 180 |
$my_user_permission->{module_bit}->{module_bit}->{bit}, |
| 181 |
'build stores the foreign key value correctly' |
| 182 |
); |
| 183 |
is( |
| 184 |
$user_permission->{_fk}->{module_bit}->{code}, |
| 185 |
$my_user_permission->{module_bit}->{code}, |
| 186 |
'build stores the foreign key value correctly' |
| 187 |
); |
| 188 |
is_deeply( |
| 189 |
$user_permission->{_fk}->{module_bit}, |
| 190 |
$user_permission->{_fk}->{code}, |
| 191 |
'build links the codes correctly' |
| 192 |
); |
| 193 |
isnt( |
| 194 |
$user_permission->{_fk}->{borrowernumber}->{cardnumber}, |
| 195 |
undef, |
| 196 |
'build generates values if they are not given' |
| 197 |
); |
| 198 |
isnt( |
| 199 |
$user_permission->{_fk}->{borrowernumber}->{_fk}->{branchcode}->{branchaddress1}, |
| 200 |
undef, |
| 201 |
'build generates values if they are not given' |
| 202 |
); |
| 203 |
isnt( |
| 204 |
$user_permission->{_fk}->{borrowernumber}->{_fk}->{categorycode}->{description}, |
| 205 |
undef, |
| 206 |
'build generates values if they are not given' |
| 207 |
); |
| 208 |
isnt( |
| 209 |
$user_permission->{_fk}->{module_bit}->{description}, |
| 210 |
undef, |
| 211 |
'build generates values if they are not given' |
| 212 |
); |
| 213 |
isnt( |
| 214 |
$user_permission->{_fk}->{module_bit}->{_fk}->{module_bit}->{flag}, |
| 215 |
undef, |
| 216 |
'build generates values if they are not given' |
| 217 |
); |
| 218 |
|
| 219 |
|
| 220 |
my $nb_basket = $builder->schema->resultset('Aqbasket')->search(); |
| 221 |
isnt( $nb_basket, 0, 'add stores the generated entries correctly' ); |
| 222 |
$builder->clear( { source => 'Aqbasket' } ); |
| 223 |
$nb_basket = $builder->schema->resultset('Aqbasket')->search(); |
| 224 |
is( $nb_basket, 0, 'clear removes all the entries correctly' ); |
| 225 |
|
| 226 |
|
| 227 |
my $rs_aqbookseller = $builder->schema->resultset('Aqbookseller'); |
| 228 |
my $bookseller = $builder->build({ |
| 229 |
source => 'Aqbookseller', |
| 230 |
only_fk => 1, |
| 231 |
}); |
| 232 |
delete $bookseller->{_fk}; |
| 233 |
my $bookseller_from_db = $rs_aqbookseller->find($bookseller); |
| 234 |
is( $bookseller_from_db, undef, 'build with only_fk = 1 does not store the entry' ); |
| 235 |
my $bookseller_result = $rs_aqbookseller->create($bookseller); |
| 236 |
is( $bookseller_result->in_storage, 1, 'build with only_fk = 1 creates the foreign keys correctly' ); |
| 237 |
|
| 238 |
$bookseller = $builder->build({ |
| 239 |
source => 'Aqbookseller', |
| 240 |
}); |
| 241 |
ok( length( $bookseller->{phone} ) <= 30, 'The length for a generated string should not be longer than the size of the DB field' ); |
| 242 |
delete $bookseller->{_fk}; |
| 243 |
$bookseller_from_db = $rs_aqbookseller->find($bookseller); |
| 244 |
is( $bookseller_from_db->in_storage, 1, 'build without the parameter only_sk stores the entry correctly' ); |
| 245 |
|
| 246 |
$bookseller = $builder->build({ |
| 247 |
source => 'Aqbookseller', |
| 248 |
only_fk => 0, |
| 249 |
}); |
| 250 |
delete $bookseller->{_fk}; |
| 251 |
$bookseller_from_db = $rs_aqbookseller->find($bookseller); |
| 252 |
is( $bookseller_from_db->in_storage, 1, 'build with only_fk = 0 stores the entry correctly' ); |
| 253 |
|
59 |
|
| 254 |
subtest 'Auto-increment values tests' => sub { |
|
|
| 255 |
|
60 |
|
|
|
61 |
subtest 'Build all sources' => sub { |
| 62 |
plan tests => 1; |
| 63 |
|
| 64 |
my @sources = $builder->schema->sources; |
| 65 |
my @source_in_failure; |
| 66 |
for my $source ( @sources ) { |
| 67 |
my $res; |
| 68 |
eval { $res = $builder->build( { source => $source } ); }; |
| 69 |
push @source_in_failure, $source if $@ || !defined( $res ); |
| 70 |
} |
| 71 |
is( @source_in_failure, 0, |
| 72 |
'TestBuilder should be able to create an object for every source' ); |
| 73 |
if ( @source_in_failure ) { |
| 74 |
diag( "The following sources have not been generated correctly: " . |
| 75 |
join ', ', @source_in_failure ); |
| 76 |
} |
| 77 |
}; |
| 78 |
|
| 79 |
|
| 80 |
subtest 'Test length of some generated fields' => sub { |
| 256 |
plan tests => 2; |
81 |
plan tests => 2; |
| 257 |
|
82 |
|
|
|
83 |
# Test the length of a returned character field |
| 84 |
my $bookseller = $builder->build({ source => 'Aqbookseller' }); |
| 85 |
my $max = $schema->source('Aqbookseller')->column_info('phone')->{size}; |
| 86 |
is( length( $bookseller->{phone} ) > 0, 1, |
| 87 |
'The length for a generated string (phone) should not be zero' ); |
| 88 |
is( length( $bookseller->{phone} ) <= $max, 1, |
| 89 |
'Check maximum length for a generated string (phone)' ); |
| 90 |
}; |
| 91 |
|
| 92 |
|
| 93 |
subtest 'Test FKs in overduerules_transport_type' => sub { |
| 94 |
plan tests => 5; |
| 95 |
|
| 96 |
my $my_overduerules_transport_type = { |
| 97 |
message_transport_type => { |
| 98 |
message_transport_type => 'my msg_t_t', |
| 99 |
}, |
| 100 |
overduerules_id => { |
| 101 |
branchcode => 'codeB', |
| 102 |
categorycode => 'codeC', |
| 103 |
}, |
| 104 |
}; |
| 105 |
|
| 106 |
my $overduerules_transport_type = $builder->build({ |
| 107 |
source => 'OverduerulesTransportType', |
| 108 |
value => $my_overduerules_transport_type, |
| 109 |
}); |
| 110 |
is( |
| 111 |
$overduerules_transport_type->{message_transport_type}, |
| 112 |
$my_overduerules_transport_type->{message_transport_type}->{message_transport_type}, |
| 113 |
'build stores the message_transport_type correctly' |
| 114 |
); |
| 115 |
is( |
| 116 |
$schema->resultset('Overduerule')->find( $overduerules_transport_type->{overduerules_id} )->branchcode, |
| 117 |
$my_overduerules_transport_type->{overduerules_id}->{branchcode}, |
| 118 |
'build stores the branchcode correctly' |
| 119 |
); |
| 120 |
is( |
| 121 |
$schema->resultset('Overduerule')->find( $overduerules_transport_type->{overduerules_id} )->categorycode, |
| 122 |
$my_overduerules_transport_type->{overduerules_id}->{categorycode}, |
| 123 |
'build stores the categorycode correctly' |
| 124 |
); |
| 125 |
is( |
| 126 |
$schema->resultset('MessageTransportType')->find( $overduerules_transport_type->{message_transport_type} )->message_transport_type, |
| 127 |
$overduerules_transport_type->{message_transport_type}, |
| 128 |
'build stores the foreign key message_transport_type correctly' |
| 129 |
); |
| 130 |
isnt( |
| 131 |
$schema->resultset('Overduerule')->find( $my_overduerules_transport_type->{overduerules_id} )->letter2, |
| 132 |
undef, |
| 133 |
'build generates values if they are not given' |
| 134 |
); |
| 135 |
}; |
| 136 |
|
| 137 |
|
| 138 |
subtest 'Tests with composite FK in userpermission' => sub { |
| 139 |
plan tests => 9; |
| 140 |
|
| 141 |
my $my_user_permission = default_userpermission(); |
| 142 |
my $user_permission = $builder->build({ |
| 143 |
source => 'UserPermission', |
| 144 |
value => $my_user_permission, |
| 145 |
}); |
| 146 |
|
| 147 |
# Checks on top level of userpermission |
| 148 |
isnt( |
| 149 |
$user_permission->{borrowernumber}, |
| 150 |
undef, |
| 151 |
'build generates a borrowernumber correctly' |
| 152 |
); |
| 153 |
is( |
| 154 |
$user_permission->{code}, |
| 155 |
$my_user_permission->{code}->{code}, |
| 156 |
'build stores code correctly' |
| 157 |
); |
| 158 |
|
| 159 |
# Checks one level deeper userpermission -> borrower |
| 160 |
my $patron = $schema->resultset('Borrower')->find({ borrowernumber => $user_permission->{borrowernumber} }); |
| 161 |
is( |
| 162 |
$patron->surname, |
| 163 |
$my_user_permission->{borrowernumber}->{surname}, |
| 164 |
'build stores surname correctly' |
| 165 |
); |
| 166 |
isnt( |
| 167 |
$patron->cardnumber, |
| 168 |
undef, |
| 169 |
'build generated cardnumber' |
| 170 |
); |
| 171 |
|
| 172 |
# Checks two levels deeper userpermission -> borrower -> branch |
| 173 |
my $branch = $schema->resultset('Branch')->find({ branchcode => $patron->branchcode->branchcode }); |
| 174 |
is( |
| 175 |
$branch->branchname, |
| 176 |
$my_user_permission->{borrowernumber}->{branchcode}->{branchname}, |
| 177 |
'build stores branchname correctly' |
| 178 |
); |
| 179 |
isnt( |
| 180 |
$branch->branchaddress1, |
| 181 |
undef, |
| 182 |
'build generated branch address' |
| 183 |
); |
| 184 |
|
| 185 |
# Checks with composite FK: userpermission -> permission |
| 186 |
my $perm = $schema->resultset('Permission')->find({ module_bit => $user_permission->{module_bit}, code => $my_user_permission->{code}->{code} }); |
| 187 |
isnt( $perm, undef, 'build generated record for composite FK' ); |
| 188 |
is( |
| 189 |
$perm->code, |
| 190 |
$my_user_permission->{code}->{code}, |
| 191 |
'build stored code correctly' |
| 192 |
); |
| 193 |
is( |
| 194 |
$perm->description, |
| 195 |
$my_user_permission->{code}->{description}, |
| 196 |
'build stored description correctly' |
| 197 |
); |
| 198 |
}; |
| 199 |
|
| 200 |
sub default_userpermission { |
| 201 |
return { |
| 202 |
borrowernumber => { |
| 203 |
surname => 'my surname', |
| 204 |
address => 'my adress', |
| 205 |
city => 'my city', |
| 206 |
branchcode => { |
| 207 |
branchname => 'my branchname', |
| 208 |
}, |
| 209 |
categorycode => { |
| 210 |
hidelostitems => 0, |
| 211 |
category_type => 'A', |
| 212 |
default_privacy => 'default', |
| 213 |
}, |
| 214 |
privacy => 1, |
| 215 |
}, |
| 216 |
module_bit => { |
| 217 |
flag => 'my flag', |
| 218 |
}, |
| 219 |
code => { |
| 220 |
code => 'my code', |
| 221 |
description => 'my desc', |
| 222 |
}, |
| 223 |
}; |
| 224 |
} |
| 225 |
|
| 226 |
|
| 227 |
subtest 'Test build with NULL values' => sub { |
| 228 |
plan tests => 3; |
| 229 |
|
| 230 |
# PK should not be null |
| 231 |
my $params = { source => 'Branch', value => { branchcode => undef }}; |
| 232 |
is( $builder->build( $params ), undef, 'PK should not be null' ); |
| 233 |
# Nullable column |
| 234 |
my $info = $schema->source( 'Item' )->column_info( 'barcode' ); |
| 235 |
$params = { source => 'Item', value => { barcode => undef }}; |
| 236 |
my $item = $builder->build( $params ); |
| 237 |
is( $info->{is_nullable} && $item && !defined( $item->{barcode} ), 1, |
| 238 |
'Barcode can be NULL' ); |
| 239 |
# Nullable FK |
| 240 |
$params = { source => 'Reserve', value => { itemnumber => undef }}; |
| 241 |
my $reserve = $builder->build( $params ); |
| 242 |
$info = $schema->source( 'Reserve' )->column_info( 'itemnumber' ); |
| 243 |
is( $reserve && $info->{is_nullable} && $info->{is_foreign_key} && |
| 244 |
!defined( $reserve->{itemnumber} ), 1, 'Nullable FK' ); |
| 245 |
}; |
| 246 |
|
| 247 |
|
| 248 |
subtest 'Tests for delete method' => sub { |
| 249 |
plan tests => 12; |
| 250 |
|
| 251 |
# Test delete with single and multiple records |
| 252 |
my $basket1 = $builder->build({ source => 'Aqbasket' }); |
| 253 |
my $basket2 = $builder->build({ source => 'Aqbasket' }); |
| 254 |
my $basket3 = $builder->build({ source => 'Aqbasket' }); |
| 255 |
my ( $id1, $id2 ) = ( $basket1->{basketno}, $basket2->{basketno} ); |
| 256 |
$builder->delete({ source => 'Aqbasket', records => $basket1 }); |
| 257 |
isnt( exists $basket1->{basketno}, 1, 'Delete cleared PK hash value' ); |
| 258 |
|
| 259 |
is( $builder->schema->resultset('Aqbasket')->search({ basketno => $id1 })->count, 0, 'Basket1 is no longer found' ); |
| 260 |
is( $builder->schema->resultset('Aqbasket')->search({ basketno => $id2 })->count, 1, 'Basket2 is still found' ); |
| 261 |
is( $builder->delete({ source => 'Aqbasket', records => [ $basket2, $basket3 ] }), 2, "Returned two delete attempts" ); |
| 262 |
is( $builder->schema->resultset('Aqbasket')->search({ basketno => $id2 })->count, 0, 'Basket2 is no longer found' ); |
| 263 |
|
| 264 |
|
| 265 |
# Test delete in table without primary key (..) |
| 266 |
is( $schema->source('TmpHoldsqueue')->primary_columns, 0, |
| 267 |
'Table without primary key detected' ); |
| 268 |
my $bibno = 123; # just a number |
| 269 |
my $cnt1 = $schema->resultset('TmpHoldsqueue')->count; |
| 270 |
# Insert a new record in TmpHoldsqueue with that biblionumber |
| 271 |
my $val = { biblionumber => $bibno }; |
| 272 |
my $rec = $builder->build({ source => 'TmpHoldsqueue', value => $val }); |
| 273 |
my $cnt2 = $schema->resultset('TmpHoldsqueue')->count; |
| 274 |
is( defined($rec) && $cnt2 == $cnt1 + 1 , 1, 'Created a record' ); |
| 275 |
is( $builder->delete({ source => 'TmpHoldsqueue', records => $rec }), |
| 276 |
undef, 'delete returns undef' ); |
| 277 |
is( $rec->{biblionumber}, $bibno, 'Hash value untouched' ); |
| 278 |
is( $schema->resultset('TmpHoldsqueue')->count, $cnt2, |
| 279 |
"Method did not delete record in table without PK" ); |
| 280 |
|
| 281 |
# Test delete with NULL values |
| 282 |
$val = { branchcode => undef }; |
| 283 |
is( $builder->delete({ source => 'Branch', records => $val }), 0, |
| 284 |
'delete returns zero for an undef search with one key' ); |
| 285 |
$val = { module_bit => 1, #catalogue |
| 286 |
code => undef }; |
| 287 |
is( $builder->delete({ source => 'Permission', records => $val }), 0, |
| 288 |
'delete returns zero for an undef search with a composite PK' ); |
| 289 |
}; |
| 290 |
|
| 291 |
|
| 292 |
subtest 'Auto-increment values tests' => sub { |
| 293 |
plan tests => 3; |
| 294 |
|
| 258 |
# Pick a table with AI PK |
295 |
# Pick a table with AI PK |
| 259 |
my $source = 'Biblio'; # table |
296 |
my $source = 'Biblio'; # table |
| 260 |
my $column = 'biblionumber'; # ai column |
297 |
my $column = 'biblionumber'; # ai column |
|
Lines 272-277
subtest 'Auto-increment values tests' => sub {
Link Here
|
| 272 |
my $next_ai_value = $biblio_2->{ biblionumber }; |
309 |
my $next_ai_value = $biblio_2->{ biblionumber }; |
| 273 |
is( $ai_value + 1, $next_ai_value, "AI values are consecutive"); |
310 |
is( $ai_value + 1, $next_ai_value, "AI values are consecutive"); |
| 274 |
|
311 |
|
|
|
312 |
# respect autoincr column |
| 313 |
warning_like { $builder->build({ |
| 314 |
source => $source, |
| 315 |
value => { biblionumber => 123 }, |
| 316 |
}) } qr/^Value not allowed for auto_incr/, |
| 317 |
'Build should not overwrite an auto_incr column'; |
| 275 |
}; |
318 |
}; |
| 276 |
|
319 |
|
| 277 |
$schema->storage->txn_rollback; |
320 |
$schema->storage->txn_rollback; |
| 278 |
- |
|
|