42 lines
1.1 KiB
Perl
42 lines
1.1 KiB
Perl
package KohaTest::ImportBatch::GetZ3950BatchId;
|
|
use base qw( KohaTest::ImportBatch );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use C4::ImportBatch;
|
|
use C4::Matcher;
|
|
use C4::Biblio;
|
|
|
|
|
|
=head3 batch_does_not_exist
|
|
|
|
=cut
|
|
|
|
sub batch_does_not_exist : Test( 5 ) {
|
|
my $self = shift;
|
|
|
|
my $file_name = 'testing batch';
|
|
|
|
# lets make sure it doesn't exist first
|
|
my $sth = C4::Context->dbh->prepare('SELECT import_batch_id FROM import_batches
|
|
WHERE batch_type = ?
|
|
AND file_name = ?');
|
|
ok( $sth->execute( 'z3950', $file_name, ), 'execute' );
|
|
my $rowref = $sth->fetchrow_arrayref();
|
|
ok( !defined( $rowref ), 'this batch does not exist' );
|
|
|
|
# now let GetZ3950BatchId create one
|
|
my $new_batch_id = GetZ3950BatchId( $file_name );
|
|
ok( $new_batch_id, "got a new batch ID: $new_batch_id" );
|
|
|
|
# now search for the one that was just created
|
|
my $second_batch_id = GetZ3950BatchId( $file_name );
|
|
ok( $second_batch_id, "got a second batch ID: $second_batch_id" );
|
|
is( $second_batch_id, $new_batch_id, 'we got the same batch both times.' );
|
|
}
|
|
|
|
|
|
1;
|