1use strict; 2use warnings; 3 4use Test::More; 5 6eval "use Test::Output"; 7if ($@) { 8 plan skip_all => 'These tests require Test::Output.'; 9} 10 11plan tests => 1; 12 13{ 14 15 package DateTime::Locale::fake; 16 17 use strict; 18 use warnings; 19 20 use DateTime::Locale; 21 22 use base 'DateTime::Locale::root'; 23 24 sub cldr_version {'0.1'} 25 26 sub _default_date_format_length {'medium'} 27 28 sub _default_time_format_length {'medium'} 29 30 DateTime::Locale->register( 31 id => 'fake', 32 en_language => 'Fake', 33 ); 34} 35 36{ 37 stderr_like( 38 sub { DateTime::Locale->load('fake') }, 39 qr/\Qfrom an older version (0.1)/, 40 'loading timezone where olson version is older than current' 41 ); 42} 43 44