#!/usr/bin/perl

package Grammar;

use strict;
use warnings;

use base 'Pugs::Grammar::Base';
use Pugs::Compiler::Rule;

Pugs::Compiler::RegexPerl5->install( ucharacter => q(
	(
			[^\000-\037\076\134-\135]
		|	\134 u [0-9A-F]{4}
		|	\134 U [0-9A-F]{8}
		|	\134\134
		|	\134 >
	)
));


Pugs::Compiler::Rule->install( relativeURI => q(
	( <ucharacter>* )
));

package main;

use strict;
use warnings;
use Test::More qw(no_plan);

my $match	= Grammar->relativeURI( 'A' );
is( $match, 'A', 'relativeURI' );

my $match	= Grammar->relativeURI( 'foo' );
is( $match, 'foo', 'relativeURI triple char' );
