From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 26 Mar 2009 20:13:52 +0000 (+0000)
Subject: more cases tested
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=ed966c936a0a4fd9491fea08bdfa5ec44b1efae6

more cases tested
---

diff --git a/Equinox-Migration/t/01-SimpleTagList.t b/Equinox-Migration/t/01-SimpleTagList.t
index d8de315..b1dc3bd 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 => 45;
+use Test::More tests => 49;
 #use Test::More qw(no_plan);
 
 use Equinox::Migration::SimpleTagList;
@@ -59,6 +59,8 @@ is ($stl->has(12), 1);
 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);
@@ -67,9 +69,11 @@ 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(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);