From d081052e872468d228d55c8fc4eb6cffa527da3b Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 6 Aug 2013 22:00:15 +0000 Subject: [PATCH] LP#1188195: add tests for setting default client locale Signed-off-by: Galen Charlton --- src/perl/t/02-AppSession.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/perl/t/02-AppSession.t b/src/perl/t/02-AppSession.t index 1ac6673..01cce39 100644 --- a/src/perl/t/02-AppSession.t +++ b/src/perl/t/02-AppSession.t @@ -1,7 +1,14 @@ #!perl -T -use Test::More tests => 1; +use strict; +use warnings; +use Test::More tests => 3; BEGIN { use_ok( 'OpenSRF::AppSession' ); } + +my $locale = OpenSRF::AppSession->default_locale('fr-CA'); +is($locale, 'fr-CA', 'got back the default locale we set'); +$locale = OpenSRF::AppSession->reset_locale(); +is($locale, 'en-US', 'got back en-US after reset of default locale'); -- 2.43.2