use t::TestYAML tests => 6;

use YAML;

my $y1 = YAML->new();

is $y1->loader_class, 'YAML::Loader',
    'Default Loader class is correct';
is $y1->dumper_class, 'YAML::Dumper',
    'Default Dumper class is correct';

my $y2 = YAML->new(
    loader_class => 'YAML::Loader::Foo',
    dumper_class => 'YAML::Dumper::Foo',
);

is $y2->loader_class, 'YAML::Loader::Foo',
    'Override Loader class is correct';
is $y2->dumper_class, 'YAML::Dumper::Foo',
    'Override Dumper class is correct';

$YAML::LoaderClass = 'YAML::Loader::Bar';
$YAML::DumperClass = 'YAML::Dumper::Bar';

my $y3 = YAML->new();

is $y3->loader_class, 'YAML::Loader::Bar',
    'Global override Loader class is correct';
is $y3->dumper_class, 'YAML::Dumper::Bar',
    'Global override Dumper class is correct';