1b8851fccSafresh1# 2b8851fccSafresh1# This test aims to detect (using CPAN Testers) platforms where the locale 3b8851fccSafresh1# encoding detection doesn't work. 4b8851fccSafresh1# 5b8851fccSafresh1 6b8851fccSafresh1use strict; 7b8851fccSafresh1use warnings; 8b8851fccSafresh1 9b8851fccSafresh1use Test::More tests => 3; 10b8851fccSafresh1 11b8851fccSafresh1use encoding (); 12b8851fccSafresh1use Encode qw<find_encoding>; 13b8851fccSafresh1 14b8851fccSafresh1my $locale_encoding = encoding::_get_locale_encoding; 15b8851fccSafresh1 16b8851fccSafresh1SKIP: { 17*5759b3d2Safresh1 defined $locale_encoding or skip 'no locale encoding found', 3; 18*5759b3d2Safresh1 19*5759b3d2Safresh1 is(ref $locale_encoding, '', '_get_locale_encoding returns a scalar value'); 20b8851fccSafresh1 21b8851fccSafresh1 my $enc = find_encoding($locale_encoding); 22b8851fccSafresh1 ok(defined $enc, 'encoding returned is supported') 23b8851fccSafresh1 or diag("Encoding: ", explain($locale_encoding)); 24b8851fccSafresh1 isa_ok($enc, 'Encode::Encoding'); 25*5759b3d2Safresh1 eval { note($locale_encoding, ' => ', $enc->name); }; 26b8851fccSafresh1} 27