view release on metacpan or  search on metacpan

t/PYX-XMLSchema-List/08-stats.t  view on Meta::CPAN

use strict;
use warnings;

use File::Object;
use PYX::XMLSchema::List;
use Test::More 'tests' => 3;
use Test::NoWarnings;
use Test::Output;

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

# Test.
my $obj = PYX::XMLSchema::List->new;
my $right_ret = <<'END';
[ bar ] (E: 0000, A: 0001) http://bar.foo
[ fo  ] (E: 0001, A: 0001) http://foo.bar
[ xml ] (E: 0000, A: 0001)
END
open my $pyx_handler, '<', $data_dir->file('ex2.pyx')->s;
stdout_is(
	sub {
		$obj->parse_handler($pyx_handler);
		return;
	},
	$right_ret,
	'Parse ex2.pyx file handler.',
);
my $ret = $obj->stats;
is_deeply(
	$ret,
	{
		'fo' => ['http://foo.bar', {
			'attr' => 1,
			'element' => 1,
		}],
		'bar' => ['http://bar.foo', {
			'attr' => 1,
			'element' => 0,
		}],
		'xml' => ['', {
			'attr' => 1,
			'element' => 0,
		}],
	},
	'Get statistics for ex2.pyx file.',
);
$obj->reset;