From 42d5cf4eb4ec81916e5d4645aba04158169177e7 Mon Sep 17 00:00:00 2001 From: Chris Nighswonger Date: Wed, 9 May 2012 10:35:06 -0400 Subject: [PATCH] Fixing sub refs; C4::Koha does not export all functions by default Content-Type: text/plain; charset="utf-8" --- t/db_dependent/Koha.t | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/t/db_dependent/Koha.t b/t/db_dependent/Koha.t index 6f16c87..e6ada29 100644 --- a/t/db_dependent/Koha.t +++ b/t/db_dependent/Koha.t @@ -13,7 +13,7 @@ use DateTime::Format::MySQL; eval {use Test::Deep;}; BEGIN { - use_ok('C4::Koha'); + use_ok('C4::Koha', qw( GetAuthorisedValueByCode GetKohaImageurlFromAuthorisedValues GetDailyQuote )); use_ok('C4::Members'); } @@ -83,13 +83,13 @@ SKIP: # test quote retrieval based on id - my $quote = C4::Koha->GetDailyQuote('id'=>3); + my $quote = GetDailyQuote('id'=>3); cmp_deeply ($quote, $expected_quote, "Got a quote based on id.") or diag('Be sure to run this test on a clean install of sample data.'); # test random quote retrieval - $quote = C4::Koha->GetDailyQuote('random'=>1); + $quote = GetDailyQuote('random'=>1); ok ($quote, "Got a random quote."); # test quote retrieval based on today's date @@ -103,7 +103,7 @@ SKIP: # $expected_quote->{'timestamp'} = DateTime::Format::MySQL->format_datetime(DateTime->now); # update the timestamp of expected quote data - $quote = C4::Koha->GetDailyQuote(); # this is the "default" mode of selection + $quote = GetDailyQuote(); # this is the "default" mode of selection cmp_deeply ($quote, $expected_quote, "Got a quote based on today's date.") or diag('Be sure to run this test on a clean install of sample data.'); } -- 1.7.0.4