The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;

eval "use Test::Output";
if ($@) {
    plan skip_all => 'These tests require Test::Output.';
}

plan tests => 1;

{

    package DateTime::Locale::fake;

    use strict;
    use warnings;

    use DateTime::Locale;

    use base 'DateTime::Locale::root';

    sub cldr_version {'0.1'}

    sub _default_date_format_length {'medium'}

    sub _default_time_format_length {'medium'}

    DateTime::Locale->register(
        id          => 'fake',
        en_language => 'Fake',
    );
}

{
    stderr_like(
        sub { DateTime::Locale->load('fake') },
        qr/\Qfrom an older version (0.1)/,
        'loading timezone where olson version is older than current'
    );
}