From d3f4a39b1678f6eafd177a44d4817c92de833e59 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Fri, 7 Feb 2014 11:29:58 +0100
Subject: [PATCH] Bug 11708: Unit tests for aqbasketgroups.closeddate

---
 t/db_dependent/Acquisition/Basketgroups.t |   57 +++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100755 t/db_dependent/Acquisition/Basketgroups.t

diff --git a/t/db_dependent/Acquisition/Basketgroups.t b/t/db_dependent/Acquisition/Basketgroups.t
new file mode 100755
index 0000000..28196c6
--- /dev/null
+++ b/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;
-- 
1.7.10.4