#!perl

use strict;
use warnings;
use Test::More;
plan tests => 8;

ok( !defined encoding::source->name );
use encoding::source 'latin1';
is( encoding::source->name, 'iso-8859-1' );
use encoding::source 'utf8';
is( encoding::source->name, 'utf8' );
no encoding::source;
ok( !defined encoding::source->name );
{
    use encoding::source 'latin1';
    is( encoding::source->name, 'iso-8859-1' );
    {
	use encoding::source 'utf8';
	is( encoding::source->name, 'utf8' );
    }
    is( encoding::source->name, 'iso-8859-1' );
}
ok( !defined encoding::source->name );