Bug 18420: Fix Budgets.t when no patron category 'S' exists

No need to create Staff users here.

Test plan:
  prove t/db_dependent/Budgets.t
should return green, even if no categories.categorycode 'S' exists

Signed-off-by: Marc Véron <veron@veron.ch>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

diff --git a/t/db_dependent/Budgets.t b/t/db_dependent/Budgets.t
index 0611389..d19dedf 100755 (executable)
--- a/t/db_dependent/Budgets.t
+++ b/t/db_dependent/Budgets.t
@@ -580,13 +580,13 @@ for my $new_budget ( @new_budgets ) {
 
 # Test SetOwnerToFundHierarchy
 
-my $categorycode = 'S';
+my $patron_category = $builder->build({ source => 'Category' });
 my $branchcode = $library->{branchcode};
 my $john_doe = C4::Members::AddMember(
     cardnumber   => '123456',
     firstname    => 'John',
     surname      => 'Doe',
-    categorycode => $categorycode,
+    categorycode => $patron_category->{categorycode},
     branchcode   => $branchcode,
     dateofbirth  => '',
     dateexpiry   => '9999-12-31',
@@ -611,7 +611,7 @@ my $jane_doe = C4::Members::AddMember(
     cardnumber   => '789012',
     firstname    => 'Jane',
     surname      => 'Doe',
-    categorycode => $categorycode,
+    categorycode => $patron_category->{categorycode},
     branchcode   => $branchcode,
     dateofbirth  => '',
     dateexpiry   => '9999-12-31',