Attachment 64280 Details for Bug 18756 – Bug 18756 - add Unit Test

[patch] Bug 18756 - add Unit Test

Bug-18756---add-Unit-Test.patch (text/plain), 1.18 KB, created by Fridolin Somers on 2017-06-14 10:39:07 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Fridolin Somers

Created: 2017-06-14 10:39:07 UTC

Size: 1.18 KB

patch

obsolete

>From c3e72ad8c97e8df8dd8d4b920bde28841910e6f5 Mon Sep 17 00:00:00 2001
>From: Fridolin Somers <fridolin.somers@biblibre.com>
>Date: Wed, 14 Jun 2017 12:33:25 +0200
>Subject: [PATCH] Bug 18756 - add Unit Test
>
>---
> t/Acquisition/CanUserManageBasket.t | 10 +++++++++-
> 1 file changed, 9 insertions(+), 1 deletion(-)
>
>diff --git a/t/Acquisition/CanUserManageBasket.t b/t/Acquisition/CanUserManageBasket.t
>index 0733474..5dc540f 100644
>--- a/t/Acquisition/CanUserManageBasket.t
>+++ b/t/Acquisition/CanUserManageBasket.t
>@@ -1,7 +1,7 @@
> #!/usr/bin/perl
> 
> use Modern::Perl;
>-use Test::More tests => 42;
>+use Test::More tests => 43;
> 
> use C4::Acquisition;
> 
>@@ -30,6 +30,11 @@ my $borrower2 = {
>     branchcode => 'B2',
> };
> 
>+my $borrower3 = {
>+    borrowernumber => 3,
>+    branchcode => 'B3',
>+};
>+
> # Baskets
> my $basket1 = {
>     basketno => 1,
>@@ -185,6 +190,9 @@ ok( CanUserManageBasket($borrower2, $basket2, $flags) );
> ok( not CanUserManageBasket($borrower2, $basket3, $flags) );
> ok( CanUserManageBasket($borrower2, $basket4, $flags) );
> 
>+# Test for Bug
>+# basket 4 is not managed by borrower3 but by other borrowers
>+ok( not CanUserManageBasket($borrower3, $basket4, $flags) );
> 
> # Mocked subs
> 
>-- 
>2.7.4

Actions: View | Diff | Splinter Review

Attachments on bug 18756: 64103 | 64179 | 64280 | 64403 | 64588 | 64589