view release on metacpan or  search on metacpan

t/App-MARC-List/04-run.t  view on Meta::CPAN

);
eval {
	App::MARC::List->new->run;
};
is($EVAL_ERROR, "Bad field definition. Must be a 'leader' or numeric value of the field.\n",
	'Run filter for MARC XML file with bad arguments (bad).');
clean();

# Test.
@ARGV = (
	'file_not_exists',
	'015',
	'a',
);
eval {
	App::MARC::List->new->run;
};
is($EVAL_ERROR, "File 'file_not_exists' doesn't exist.\n",
	"File 'file_not_exists' doesn't exist.");
clean();

# Test.
@ARGV = (
	$data_dir->file('ex1.xml')->s,
	'015',
);
eval {
	App::MARC::List->new->run;
};