--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/_test/Test/DOM/Schema.pm	Fri Sep 11 16:30:39 2009 +0400
@@ -0,0 +1,24 @@
+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;