#!perl -T
-use Test::More tests => 49;
+use Test::More tests => 51;
#use Test::More qw(no_plan);
use Equinox::Migration::SimpleTagList;
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');