#!perl -T
-use Test::More tests => 45;
+use Test::More tests => 51;
#use Test::More qw(no_plan);
use Equinox::Migration::SimpleTagList;
# baseline object creation
eval { my $stl = Equinox::Migration::SimpleTagList->new( file => "thefileisalie.txt" ) };
-is ($@ =~ /^Can't open tags file:/, 1, 'cannot open that');
+is ($@ =~ /^Can't open tags file 'thefileisalie\.txt':/, 1, 'cannot open that');
my $stl = Equinox::Migration::SimpleTagList->new();
is(ref $stl, "Equinox::Migration::SimpleTagList", "self is self");
is ($stl->has('012'), 1);
is ($stl->has(241), 1);
is ($stl->has(359), 1);
+is ($stl->has(400), 1);
+is ($stl->has(416), 1);
is ($stl->has(652), 1);
is ($stl->has(654), 1);
is ($stl->has(656), 1);
is ($stl->has(658), 1);
+is ($stl->has(797), 1, 'exception is inline commented out');
is ($stl->has(872), 1);
is ($stl->has(900), 1);
is ($stl->has(999), 1);
is ($stl->has(988), 1);
+is ($stl->has(411), 0, 'exception');
+is ($stl->has(500), 0, 'inclusion commented out');
is ($stl->has(655), 0, 'exception');
+is ($stl->has(915), 0, 'exception');
is ($stl->has(987), 0, 'exception');
-is ($stl->has(400), 0, 'not in input set');
+is ($stl->has(500), 0, 'not in input set');
$stl = Equinox::Migration::SimpleTagList->new( file => "./t/corpus/stl-1.txt");
is ($stl->has(258), 1);
# file with bad token
$. = 0;
$stl = Equinox::Migration::SimpleTagList->new;
-$stl->{conf}{file} = "./t/corpus/stl-2.txt";
-eval {$stl->generate};
+eval {$stl->generate("./t/corpus/stl-2.txt")};
is ($@, "Unknown chunk fnord in tags file (line 1)\n");
# file with except in wrong place
$. = 0;
$stl = Equinox::Migration::SimpleTagList->new;
-$stl->{conf}{file} = "./t/corpus/stl-3.txt";
-eval {$stl->generate};
+eval {$stl->generate("./t/corpus/stl-3.txt")};
is ($@, "Keyword 'except' can only follow a range (line 1)\n");