[Patches] [PATCH] Bug 5327: Unit tests for C4/Exteral/BakerTaylor.pm
koha-patchbot at kohaaloha.com
koha-patchbot at kohaaloha.com
Sun Dec 4 19:55:03 NZDT 2011
From: Chris Hall <chrish at catalyst.net.nz>
Date: Tue, 22 Nov 2011 12:19:55 +1300
Subject: [PATCH] Bug 5327: Unit tests for C4/Exteral/BakerTaylor.pm
Signed-off-by: Chris Cormack <chrisc at catalyst.net.nz>
---
t/Boolean.t | 2 +-
t/db_dependent/External_BakerTaylor.t | 28 ++++++++++++++++++++++++----
2 files changed, 25 insertions(+), 5 deletions(-)
diff --git a/t/Boolean.t b/t/Boolean.t
index af5c8b7..0f04913 100755
--- a/t/Boolean.t
+++ b/t/Boolean.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 12;
+use Test::More tests => 13;
BEGIN { use_ok( 'C4::Boolean', qw( true_p ) ); }
diff --git a/t/db_dependent/External_BakerTaylor.t b/t/db_dependent/External_BakerTaylor.t
index fdccaee..e6e6118 100755
--- a/t/db_dependent/External_BakerTaylor.t
+++ b/t/db_dependent/External_BakerTaylor.t
@@ -1,14 +1,34 @@
#!/usr/bin/perl
-#
-# This Koha test module is a stub!
-# Add more tests here!!!
+
+# some simple tests of the elements of C4::External::BakerTaylor that do not require a valid username and password
use strict;
use warnings;
-use Test::More tests => 1;
+use Test::More tests => 9;
BEGIN {
use_ok('C4::External::BakerTaylor');
}
+# for testing, to avoid using C4::Context
+my $username="testing_username";
+my $password="testing_password";
+
+# taken from C4::External::BakerTaylor::initialize
+my $image_url = "http://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=$username&Password=$password&Options=Y&Return=T&Type=S&Value=";
+
+# test without initializing
+is( C4::External::BakerTaylor::image_url(), undef, "testing image url pre initilization");
+is( C4::External::BakerTaylor::link_url(), undef, "testing link url pre initilization");
+is( C4::External::BakerTaylor::content_cafe_url(""), undef, "testing content cafe url pre initilization");
+is( C4::External::BakerTaylor::http_jacket_link(""), undef, "testing http jacket link pre initilization");
+is( C4::External::BakerTaylor::availability(""), undef, "testing availability pre initilization");
+
+# intitialize
+C4::External::BakerTaylor::initialize($username, $password, "link_url");
+
+# testing basic results
+is( C4::External::BakerTaylor::image_url("aa"), $image_url."aa", "testing image url construction");
+is( C4::External::BakerTaylor::link_url("bb"), "link_urlbb", "testing link url construction");
+is( C4::External::BakerTaylor::content_cafe_url("cc"), "http://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$username&Password=$password&Options=Y&ItemKey=cc", "testing content cafe url construction");
--
1.7.5.4
More information about the Patches
mailing list