package Test::DOM::Schema;
use strict;
use warnings;

use base qw(IMPL::Test::Unit);
use IMPL::Test qw(test failed);

__PACKAGE__->PassThroughArgs;

require IMPL::DOM::Schema;

test GetMetaSchema => sub {
    my $metaSchema = IMPL::DOM::Schema->MetaSchema();
};

test AutoverifyMetaSchema => sub {
    my $metaSchema = IMPL::DOM::Schema->MetaSchema();
    
    if (my @errors = $metaSchema->Validate($metaSchema)) {
        failed "Self verification failed", map $_ ? $_->Message : 'unknown', @errors;
    }
};

1;