You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2002/02/21 04:28:52 UTC
cvs commit: xml-xerces/perl/t Grammar.t
jasons 02/02/20 19:28:52
Added: perl/t Grammar.t
Log:
* t/Grammar.t (Repository):
new test for support of grammars
Revision Changes Path
1.1 xml-xerces/perl/t/Grammar.t
Index: Grammar.t
===================================================================
# Before `make install' is performed this script should be runnable
# with `make test'. After `make install' it should work as `perl
# DOM_Attr.t'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1; print "1..2\n"; }
END {print "not ok 1\n" unless $loaded;}
use Carp;
# use blib;
use XML::Xerces;
use lib 't';
use TestUtils qw(result $DOM $PERSONAL_FILE_NAME);
use vars qw($i $loaded);
use strict;
$loaded = 1;
$i = 1;
result($loaded);
######################### End of black magic.
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
$DOM->parse($PERSONAL_FILE_NAME);
# test that we can fetch the grammar
my $grammar = $DOM->getValidator->getGrammar->getGrammarType();
result($grammar == $XML::Xerces::Grammar::DTDGrammarType);
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org