diff --git a/cpanfile b/cpanfile index adc980659..1a0b29114 100644 --- a/cpanfile +++ b/cpanfile @@ -1 +1,3 @@ +requires 'Cpanel::JSON::XS'; requires 'Locale::PO'; +requires 'Test::Fatal'; diff --git a/t/01-meta.t b/t/01-meta.t new file mode 100644 index 000000000..73d1b1d27 --- /dev/null +++ b/t/01-meta.t @@ -0,0 +1,34 @@ +use strict; +use warnings; + +use Test::More; +use File::Basename; +use Cpanel::JSON::XS qw/ decode_json /; +use Scalar::Util qw/ reftype /; +use Test::Fatal qw/ lives_ok /; + +chdir dirname(__FILE__) . "/.."; + +my $locales; +my $file = 'locales.json'; + +lives_ok { + $locales = decode_json( do { + local $/ = undef; + open my $fh, '<', $file or die "could not open $file: $!"; + <$fh>; + } ) +} 'locales.json parsed OK'; + +is( reftype $locales, 'HASH', 'locales data appears to exist' ); +my @locale_codes = keys %{ $locales }; +ok( @locale_codes > 0, 'locales data appears to be populated' ); + +for my $locale_code ( @locale_codes ) { + for my $key ( qw/ locale name_in_english name_in_local rtl / ) { + ok( defined( $locales->{ $locale_code }->{ $key } ), + "$key defined for $locale_code" ); + } +} + +done_testing; diff --git a/t/01-format.t b/t/02-format.t similarity index 100% rename from t/01-format.t rename to t/02-format.t