From 41baeafda9733caa69cd678b3f471976c6b27a7c Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 16 Jul 2013 14:55:09 +0000 Subject: [PATCH] bug 10556: regression test for setting deliverytime when adding vendor Signed-off-by: Galen Charlton --- t/db_dependent/Acquisition.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t index 2835f266e7..c7b3c4a927 100755 --- a/t/db_dependent/Acquisition.t +++ b/t/db_dependent/Acquisition.t @@ -8,7 +8,7 @@ use POSIX qw(strftime); use C4::Bookseller qw( GetBookSellerFromId ); -use Test::More tests => 40; +use Test::More tests => 41; BEGIN { use_ok('C4::Acquisition'); @@ -27,12 +27,15 @@ my $booksellerid = C4::Bookseller::AddBookseller( name => "my vendor", address1 => "bookseller's address", phone => "0123456", - active => 1 + active => 1, + deliverytime => 5, } ); my $booksellerinfo = C4::Bookseller::GetBookSellerFromId( $booksellerid ); +is($booksellerinfo->{deliverytime}, 5, 'set deliverytime when creating vendor (Bug 10556)'); + my ($basket, $basketno); ok($basketno = NewBasket($booksellerid, 1), "NewBasket( $booksellerid , 1 ) returns $basketno"); ok($basket = GetBasket($basketno), "GetBasket($basketno) returns $basket"); -- 2.39.5