From b56121db026837e3d6d6e7e7f3800d7a5b92923c Mon Sep 17 00:00:00 2001 From: Zach Sim Date: Wed, 19 Jan 2011 12:07:25 +1300 Subject: [PATCH] Added unit tests to test all of get_amazon_tld in Amazon.pm. Signed-off-by: Chris Cormack --- t/Amazon.t | 37 ++++++++++++++++++++++++++++++++++++- 1 file changed, 36 insertions(+), 1 deletion(-) diff --git a/t/Amazon.t b/t/Amazon.t index a0ca21bfc8..f8352c8ecb 100755 --- a/t/Amazon.t +++ b/t/Amazon.t @@ -6,9 +6,44 @@ use strict; use warnings; -use Test::More tests => 1; +use Test::More tests => 8; +use C4::Context; BEGIN { use_ok('C4::External::Amazon'); } +my $context = C4::Context->new(); + +my $locale = $context->preference('AmazonLocale'); + +$context->set_preference('AmazonLocale','CA'); +$context->clear_syspref_cache(); +is(get_amazon_tld,'.ca','Changes locale to CA and tests get_amazon_tld'); + +$context->set_preference('AmazonLocale','DE'); +$context->clear_syspref_cache(); +is(get_amazon_tld,'.de','Changes locale to DE and tests get_amazon_tld'); + +$context->set_preference('AmazonLocale','FR'); +$context->clear_syspref_cache(); +is(get_amazon_tld,'.fr','Changes locale to FR and tests get_amazon_tld'); + +$context->set_preference('AmazonLocale','JP'); +$context->clear_syspref_cache(); +is(get_amazon_tld,'.jp','Changes locale to JP and tests get_amazon_tld'); + +$context->set_preference('AmazonLocale','UK'); +$context->clear_syspref_cache(); +is(get_amazon_tld,'.co.uk','Changes locale to UK and tests get_amazon_tld'); + +$context->set_preference('AmazonLocale','US'); +$context->clear_syspref_cache(); +is(get_amazon_tld,'.com','Changes locale to US and tests get_amazon_tld'); + +$context->set_preference('AmazonLocale','NZ'); +$context->clear_syspref_cache(); +is(get_amazon_tld,'.com','Changes locale to one not in the array and tests get_amazon_tld'); + +$context->set_preference('AmazonLocale',$locale); +$context->clear_syspref_cache(); -- 2.39.2