Lines 83-88
subtest 'constraints' => sub {
Link Here
|
83 |
plan tests => 11; |
83 |
plan tests => 11; |
84 |
$schema->storage->txn_begin; |
84 |
$schema->storage->txn_begin; |
85 |
|
85 |
|
|
|
86 |
my $print_error = $schema->storage->dbh->{PrintError}; |
87 |
$schema->storage->dbh->{PrintError} = 0; |
88 |
|
86 |
my $patron = $builder->build_object( { class => "Koha::Patrons" } ); |
89 |
my $patron = $builder->build_object( { class => "Koha::Patrons" } ); |
87 |
my $biblio = $builder->build_sample_biblio(); |
90 |
my $biblio = $builder->build_sample_biblio(); |
88 |
my $branch = $builder->build_object( { class => "Koha::Libraries" } ); |
91 |
my $branch = $builder->build_object( { class => "Koha::Libraries" } ); |
Lines 164-168
subtest 'constraints' => sub {
Link Here
|
164 |
is( $suggestion->budgetid, undef, |
167 |
is( $suggestion->budgetid, undef, |
165 |
"The suggestion is not deleted when the related budget is deleted" ); |
168 |
"The suggestion is not deleted when the related budget is deleted" ); |
166 |
|
169 |
|
|
|
170 |
$schema->storage->dbh->{PrintError} = $print_error; |
167 |
$schema->storage->txn_rollback; |
171 |
$schema->storage->txn_rollback; |
168 |
}; |
172 |
}; |
169 |
- |
|
|