#!/usr/bin/perl6
# xml.pl
# use:
# cd rakudo
# cd t/
# mkdir -p lib/XML
# cp Grammar.pm lib/XML/
# wget http://www.w3.org/XML/Test/xmlts20080827.tar.gz
# tar xvzf xmlts20080827.tar.gz
# cd ..
# parrot/parrot perl6.pbc t/xml.pl
# use v6;
BEGIN { @*INC.push: 't/lib' };
use XML::Grammar;
my @tests = (
[1, '', 'inline'],
[1, '', 'inline'],
[0, '< a/>', 'inline'],
[1, '', 'inline'],
[1, ' ', 'inline'],
[0, '< a>', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[0, '', 'inline'],
[0, '< /a>', 'inline'],
[0, '', 'inline'],
[0, '', 'inline'],
[0, '', 'inline'],
[0, '<', 'inline'],
[0, 'b', 'inline'],
[0, 'bb', 'inline'],
[0, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, 'b', 'inline'],
[0, 'b', 'inline'],
[1, '<_ab>foo', 'inline'],
[1, 'foo ', 'inline'],
[0, '<2ab>foo', 'inline'],
[1, 'foo', 'inline'],
[1, '<_ab>foo', 'inline'],
[1, '<:ab>foo', 'inline'],
[1, 'foo', 'inline'],
[1, 'foo', 'inline'],
[0, '..foo ', 'inline'],
[0, '..foo dd', 'inline'],
[0, 'foo dd', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[0, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[0, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[0, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[1, 'c', 'inline'],
[0, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[0, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, ' a a ?>', 'inline'],
[1, '>????a> a a ?>', 'inline'],
[0, ' a a ?>', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[0, '', 'inline'],
[0, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[0, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '&jhk;huawk%jj%%&\$><]]>', 'inline'],
[0, '&jhk;huawk%jj%%&\$><]]>', 'inline'],
[1, '&jhk;huawk%j]>$>j%%&\$><]]>', 'inline'],
[1, '&jhk;huawk%j]]>j%%&\$><]]>', 'inline'],
[0, '&jhk;huawk%j]]>$>j%%&\$><]]>', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, '', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'ab<-- bla---bla -->c', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[0, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[0, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, 'bla ?> ]>abc', 'inline'],
[1, '?bla bla ?> ]>abc', 'inline'],
[0, ' bla ?> ]>abc', 'inline'],
[0, ' ]>abc', 'inline'],
[0, ' ]>abc', 'inline'],
[0, ' ]>abc', 'inline'],
[0, ' ]>abc', 'inline'],
[0, ' ]>abc', 'inline'],
[0, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, 'abc', 'inline'],
[1, ' %bli; ]>abc', 'inline'],
[0, ' %bli; ]>abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[0, ' ]>abc', 'inline'],
[0, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, 'bli %blabla; bli &bla; bli & bli 2 bli"> ]>abc', 'inline'],
[1, ' ] >abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[0, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ] >abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
# [1, ' ]>abc', 'inline'], #rakudo bug
# [1, ' ]>abc', 'inline'], #rakudo bug
# [1, ' ]>abc', 'inline' ], #rakudo bug
[1, ' ]>abc', 'inline'],
# [1, ' ]>abc', 'inline'], #rakudo bug
[1, ' ]>abc', 'inline'], #rakudo bug
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
# [1, ' ]>abc', 'inline'], #rakudo bug
[1, ' ]>abc', 'inline'],
[1, ' ]>abc', 'inline'],
[1, 'ab&blabla;c', 'inline'],
[1, 'ab"c', 'inline'],
[1, 'ab&x123;c', 'inline'],
[0, 'ab&123;c', 'inline'],
[0, 'ab&1x23;c', 'inline'],
[1, 'ab{c', 'inline'],
[1, 'abģc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[0, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[0, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 'abc', 'inline'],
[1, 't/xmlconf/ibm/valid/P10/ibm10v01.xml', 'file'],
[1, 't/xmlconf/ibm/valid/P10/ibm10v02.xml', 'file'],
[1, 't/xmlconf/ibm/valid/P10/ibm10v03.xml', 'file'],
[1, 't/xmlconf/ibm/valid/P10/ibm10v04.xml', 'file'],
[1, 't/xmlconf/ibm/valid/P10/ibm10v05.xml', 'file'],
[1, 't/xmlconf/ibm/valid/P10/ibm10v06.xml', 'file'],
[1, 't/xmlconf/ibm/valid/P10/ibm10v07.xml', 'file'],
[1, 't/xmlconf/ibm/valid/P10/ibm10v08.xml', 'file'],
[1, 't/xmlconf/ibm/valid/P13/ibm13v01.xml', 'file'],
);
my $count = 1;
for @tests -> $t {
my $s = $t[2] eq 'inline' ?? $t[1] !! slurp $t[1];
# my $M := $s ~~ //;
my $M = XML::Grammar.parse($s);
if !($M xor $t[0]) {
say "ok $count - '$s'";
} else {
say "not ok $count - '$s'";
}
#$M.perl.say if $M;
#$M.perl.say if $M;
$M.ast.say if $M;
$count++;
}