# Pragmas.
use strict;
use warnings;

# Modules.
use File::Object;
use PYX::XMLNorm;
use Perl6::Slurp qw(slurp);
use Test::More 'tests' => 1;
use Test::Output;

# Directories.
my $data_dir = File::Object->new->up->dir('data');

# Test.
my $rules_hr = {
	'*' => ['br', 'hr', 'link', 'meta', 'input'],
	'html' => ['body'],
	'table' => ['td', 'tr'],
	'td' => ['td'],
	'th' => ['th'],
	'tr' => ['td', 'th', 'tr'],
};
my $obj = PYX::XMLNorm->new(
	'rules' => $rules_hr,
);
my $right_ret = <<"END";
(html
(head
(link
)link
(meta
)meta
)head
(body
(input
)input
(br
)br
(hr
)hr
)body
)html
END
my $ex1 = slurp($data_dir->file('ex1.pyx')->s);
stdout_is(
	sub {
		$obj->parse($ex1);
	},
	$right_ret,
	'Simple test for parse() method.',
);

Add test to parse() method.
Add test to parse() method.
