- 

#!/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;