Lines 1-7
Link Here
|
1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
use Test::More tests => 14; |
4 |
use Test::More tests => 15; |
5 |
use Cwd qw(abs_path); |
5 |
use Cwd qw(abs_path); |
6 |
use File::Temp qw/tempfile/; |
6 |
use File::Temp qw/tempfile/; |
7 |
|
7 |
|
Lines 144-149
$dbh->do( "DELETE FROM items WHERE itemnumber=?", undef, $itemno );
Link Here
|
144 |
is( @a, 0, 'No item numbers expected since we deleted the item' ); |
144 |
is( @a, 0, 'No item numbers expected since we deleted the item' ); |
145 |
$dbh->do( $sql, undef, undef, $import_record_id ); # remove link again |
145 |
$dbh->do( $sql, undef, undef, $import_record_id ); # remove link again |
146 |
|
146 |
|
|
|
147 |
#Test DeleteBiblioInBatch |
148 |
my @a = DeleteBiblioInBatch( $import_record_id); #Remove the MARC record from import_biblios and import_records tables |
149 |
my $biblio_in_import_records = $dbh->do('SELECT * FROM import_records WHERE import_batch_id = "$import_record_id"'); |
150 |
is( $biblio_in_import_records, "0E0", 'No biblio expected since we deleted the biblio from the batch' ); |
151 |
|
147 |
# fresh data |
152 |
# fresh data |
148 |
my $sample_import_batch3 = { |
153 |
my $sample_import_batch3 = { |
149 |
matcher_id => 3, |
154 |
matcher_id => 3, |
150 |
- |
|
|