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