Koha/t/db_dependent/Circulation/OfflineOperation.t
Marcel de Rooy 2ed25b7442
Bug 29144: Remove opac_info from a few tests
Test plan:
Run t/db_dependent/Circulation/GetHardDueDate.t
Run t/db_dependent/Circulation/OfflineOperation.t
Run t/db_dependent/RotatingCollections.t
Run t/db_dependent/api/v1/libraries.t

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Owen Leonard <oleonard@myacpl.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
2022-09-16 09:55:20 -03:00

99 lines
3 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::More tests => 7;
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 informations"
);
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