#!perl -T
-use Test::More tests => 33;
+#use Test::More tests => 34;
+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');
+
my $stl = Equinox::Migration::SimpleTagList->new();
is(ref $stl, "Equinox::Migration::SimpleTagList", "self is self");
$stl->remove_tag(904);
is ($stl->has(904), 0, 'can not has tag');
+eval { $stl->add_tag('q') };
+is ($@, "Values must be numeric\n");
+eval { $stl->add_tag(-37) };
+is ($@, "Values must be valid tags (0-999)\n");
+eval { $stl->add_tag(1027) };
+is ($@, "Values must be valid tags (0-999)\n");
+
# range addition, as_hashref, as_listref
$stl->add_range("198..201");
is_deeply ($stl->as_hashref, { 89 => 1, 198 => 1, 199 => 1, 200 => 1, 201 => 1 });
$stl->add_range("008..011");
is_deeply ($stl->as_listref, [ 8, 9, 10, 11, 89, 198, 199, 200, 201 ]);
+$stl->{conf}{except} = 1;
+eval { $stl->add_range("300..311") };
+is ($@, "Exception ranges must be within last addition range (300..311)\n");
+eval { $stl->add_range("10..311") };
+is ($@, "Exception ranges must be within last addition range (10..311)\n");
+eval { $stl->add_range("6..11") };
+is ($@, "Exception ranges must be within last addition range (6..11)\n");
+
+
+
# creation with file
$stl = Equinox::Migration::SimpleTagList->new( file => "./t/corpus/stl-0.txt");
is ($stl->has(11), 1);