LP1802593: Correct formatting of language code in Angularjs, KPAC
[Evergreen.git] / Open-ILS / src / perlmods / t / 15-OpenILS-WWW.t
1 #!perl -T
2
3 use Test::More tests => 11;
4
5 use_ok( 'OpenILS::WWW::BadDebt' );
6 use_ok( 'OpenILS::WWW::EGWeb' );
7 use_ok( 'OpenILS::WWW::Exporter' );
8 use_ok( 'OpenILS::WWW::IDL2js' );
9 use_ok( 'OpenILS::WWW::Proxy' );
10 use_ok( 'OpenILS::WWW::Redirect' );
11 use_ok( 'OpenILS::WWW::TemplateBatchBibUpdate' );
12 use_ok( 'OpenILS::WWW::Vandelay' );
13 use_ok( 'OpenILS::WWW::XMLRPCGateway' );
14
15 is( OpenILS::WWW::EGWeb::parse_eg_locale('hy_am'), 'hy-AM', 'correctly formatted Armenian language code' );
16 is( OpenILS::WWW::EGWeb::parse_eg_locale(), 'en-US', 'correctly formatted default language code' );