View | Details | Raw Unified | Return to bug 20678
Collapse All | Expand All

(-)a/t/db_dependent/ImportBatch.t (-2 / +6 lines)
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
- 

Return to bug 20678