- 

#!/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}, "basket group is open");

ok(!defined($basketgroup->{closeddate}), "basket group closed date is empty");

CloseBasketgroup($basketgroupid);

$basketgroup = GetBasketgroup($basketgroupid);

ok($basketgroup->{closed}, "basket group is closed");

ok(defined($basketgroup->{closeddate}), "basket group closed date is not empty");

my ($day, $month, $year) = (localtime)[3,4,5];

ok($basketgroup->{closeddate} eq sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day), "basket group closed date is correct");

ReOpenBasketgroup($basketgroupid);

$basketgroup = GetBasketgroup($basketgroupid);

ok(!$basketgroup->{closed}, "basket group is open");

ok(!defined($basketgroup->{closeddate}), "basket group closed date is empty");

$basketgroup->{closed} = 1;

ModBasketgroup($basketgroup);

$basketgroup = GetBasketgroup($basketgroupid);

ok($basketgroup->{closed}, "basket group is closed");

ok(defined($basketgroup->{closeddate}), "basket group closed date is not empty");

ok($basketgroup->{closeddate} eq sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day), "basket group closed date is correct");

$basketgroupid = NewBasketgroup({

    booksellerid => $booksellerid,

    name => "Basketgroup test 1",

    closed => 1,

});

$basketgroup = GetBasketgroup($basketgroupid);

ok($basketgroup->{closed}, "basket group is closed");

ok(defined($basketgroup->{closeddate}), "basket group closed date is not empty");

ok($basketgroup->{closeddate} eq sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day), "basket group closed date is correct");

$dbh->rollback;