@@ -, +, @@ --- t/db_dependent/Acquisition/Basketgroups.t | 57 +++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100755 t/db_dependent/Acquisition/Basketgroups.t --- a/t/db_dependent/Acquisition/Basketgroups.t +++ a/t/db_dependent/Acquisition/Basketgroups.t @@ -0,0 +1,57 @@ +#!/usr/bin/perl + +use Modern::Perl; + +use C4::Context; +use C4::Acquisition; +use C4::Bookseller qw/ AddBookseller /; + +use Test::More tests => 13; + +my $dbh = C4::Context->dbh; +$dbh->{AutoCommit} = 0; +$dbh->{RaiseError} = 1; + +my $booksellerid = AddBookseller({ + name => "Bookseller test 1", + currency => '', +}); +my $basketgroupid = NewBasketgroup({ + booksellerid => $booksellerid, + name => "Basketgroup test 1", +}); + +my $basketgroup = GetBasketgroup($basketgroupid); +ok(!$basketgroup->{closed}); +ok(!defined($basketgroup->{closeddate})); + +CloseBasketgroup($basketgroupid); +$basketgroup = GetBasketgroup($basketgroupid); +ok($basketgroup->{closed}); +ok(defined($basketgroup->{closeddate})); +my ($day, $month, $year) = (localtime)[3,4,5]; +ok($basketgroup->{closeddate} eq sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day)); + +ReOpenBasketgroup($basketgroupid); +$basketgroup = GetBasketgroup($basketgroupid); +ok(!$basketgroup->{closed}); +ok(!defined($basketgroup->{closeddate})); + +$basketgroup->{closed} = 1; +ModBasketgroup($basketgroup); +$basketgroup = GetBasketgroup($basketgroupid); +ok($basketgroup->{closed}); +ok(defined($basketgroup->{closeddate})); +ok($basketgroup->{closeddate} eq sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day)); + +$basketgroupid = NewBasketgroup({ + booksellerid => $booksellerid, + name => "Basketgroup test 1", + closed => 1, +}); +$basketgroup = GetBasketgroup($basketgroupid); +ok($basketgroup->{closed}); +ok(defined($basketgroup->{closeddate})); +ok($basketgroup->{closeddate} eq sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day)); + +$dbh->rollback; --