use t::TestYAML tests => 16 * 2 - 2;

# These are all of the (Perl version of the) modules that PyYaml defines:
my @modules = (qw'
    YAML
    YAML::Composer
    YAML::Constructor
    YAML::Dumper
    YAML::Emitter
    YAML::Error
    YAML::Events
    YAML::Loader
    YAML::Nodes
    YAML::Parser
    YAML::Reader
    YAML::Representer
    YAML::Resolver
    YAML::Scanner
    YAML::Serializer
    YAML::Tokens
');

for my $module (@modules) {
    use_ok($module);
    next if $module eq 'YAML::Events';
    next if $module eq 'YAML::Nodes';
    eval { $module->new() };
    is("$@", '', "Make a $module object");
}