110 lines
3.0 KiB
Perl
Executable File
110 lines
3.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
use C4::Circulation qw( AddOfflineOperation GetOfflineOperation GetOfflineOperations DeleteOfflineOperation );
|
|
|
|
use Koha::Database;
|
|
use Koha::DateUtils qw( dt_from_string output_pref );
|
|
use Koha::Library;
|
|
|
|
use Test::NoWarnings;
|
|
use Test::More tests => 8;
|
|
|
|
BEGIN {
|
|
use_ok(
|
|
'C4::Circulation',
|
|
qw( AddOfflineOperation GetOfflineOperation GetOfflineOperations DeleteOfflineOperation )
|
|
);
|
|
}
|
|
can_ok(
|
|
'C4::Circulation',
|
|
qw(
|
|
AddOfflineOperation
|
|
GetOfflineOperation
|
|
GetOfflineOperations
|
|
DeleteOfflineOperation
|
|
)
|
|
);
|
|
|
|
my $schema = Koha::Database->new->schema;
|
|
$schema->storage->txn_begin;
|
|
my $dbh = C4::Context->dbh;
|
|
|
|
$dbh->do(q|DELETE FROM issues|);
|
|
$dbh->do(q|DELETE FROM borrowers|);
|
|
$dbh->do(q|DELETE FROM items|);
|
|
$dbh->do(q|DELETE FROM branches|);
|
|
$dbh->do(q|DELETE FROM pending_offline_operations|);
|
|
|
|
#Add branch
|
|
my $samplebranch1 = {
|
|
branchcode => 'SAB1',
|
|
branchname => 'Sample Branch',
|
|
branchaddress1 => 'sample adr1',
|
|
branchaddress2 => 'sample adr2',
|
|
branchaddress3 => 'sample adr3',
|
|
branchzip => 'sample zip',
|
|
branchcity => 'sample city',
|
|
branchstate => 'sample state',
|
|
branchcountry => 'sample country',
|
|
branchphone => 'sample phone',
|
|
branchfax => 'sample fax',
|
|
branchemail => 'sample email',
|
|
branchurl => 'sample url',
|
|
branchip => 'sample ip',
|
|
};
|
|
Koha::Library->new($samplebranch1)->store;
|
|
|
|
my $now = dt_from_string->truncate( to => 'minute' );
|
|
|
|
#Begin Tests
|
|
#Test AddOfflineOperation
|
|
is(
|
|
AddOfflineOperation(
|
|
'User1', $samplebranch1->{branchcode},
|
|
$now, 'Action1', 'CODE', 'Cardnumber1', 10
|
|
),
|
|
'Added.',
|
|
"OfflineOperation has been added"
|
|
);
|
|
my $offline_id = $dbh->last_insert_id( undef, undef, 'pending_offline_operations', undef );
|
|
|
|
#Test GetOfflineOperations
|
|
is_deeply(
|
|
GetOfflineOperation($offline_id),
|
|
{
|
|
operationid => $offline_id,
|
|
userid => 'User1',
|
|
branchcode => $samplebranch1->{branchcode},
|
|
|
|
# FIXME sounds like we need a 'timestamp' dateformat
|
|
timestamp => output_pref( { dt => $now, dateformat => 'iso', dateonly => 0 } ) . ':00',
|
|
action => 'Action1',
|
|
barcode => 'CODE',
|
|
cardnumber => 'Cardnumber1',
|
|
amount => '10.000000'
|
|
},
|
|
"GetOffline returns offlineoperation's information"
|
|
);
|
|
is(
|
|
GetOfflineOperation(), undef,
|
|
'GetOfflineOperation without parameters returns undef'
|
|
);
|
|
is(
|
|
GetOfflineOperation(-1), undef,
|
|
'GetOfflineOperation with wrong parameters returns undef'
|
|
);
|
|
|
|
#Test GetOfflineOperations
|
|
#TODO later: test GetOfflineOperations
|
|
# Actually we cannot mock C4::Context->userenv in unit tests
|
|
|
|
#Test DeleteOfflineOperation
|
|
is(
|
|
DeleteOfflineOperation($offline_id),
|
|
'Deleted.', 'Offlineoperation has been deleted'
|
|
);
|
|
|
|
#is (DeleteOfflineOperation(), undef, 'DeleteOfflineOperation without id returns undef');
|
|
#is (DeleteOfflineOperation(-1),undef, 'DeleteOfflineOperation with a wrong id returns undef');#FIXME
|