X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=Equinox-Migration%2Ft%2F01-SimpleTagList.t;h=8a6bc7d042a9e02ea3390e0be0285ecdbee2e8c5;hp=0e8c2d985c2d449e1652333fd2bdc9fe451eda72;hb=0a1fe57919524c3f47b28ccbac50fad8ac9cd8df;hpb=2c1a0eff7bc0ae19b91f43fce329298fbe1826f5

diff --git a/Equinox-Migration/t/01-SimpleTagList.t b/Equinox-Migration/t/01-SimpleTagList.t
index 0e8c2d9..8a6bc7d 100644
--- a/Equinox-Migration/t/01-SimpleTagList.t
+++ b/Equinox-Migration/t/01-SimpleTagList.t
@@ -1,6 +1,6 @@
 #!perl -T
 
-use Test::More tests => 25;
+use Test::More tests => 33;
 use Equinox::Migration::SimpleTagList;
 
 # baseline object creation
@@ -42,3 +42,13 @@ is ($stl->has(988), 1);
 is ($stl->has(655), 0, 'exception');
 is ($stl->has(987), 0, 'exception');
 is ($stl->has(400), 0, 'not in input set');
+
+$stl = Equinox::Migration::SimpleTagList->new( file => "./t/corpus/stl-1.txt");
+is ($stl->has(258), 1);
+is ($stl->has(259), 0, 'exception');
+is ($stl->has(274), 1);
+is ($stl->has(275), 0, 'exception');
+is ($stl->has(286), 1);
+is ($stl->has(285), 0, 'exception');
+is ($stl->has(305), 1);
+is ($stl->has(304), 0, 'exception');