===================================================================
RCS file: /cvs/todotxt/Text-Todo/t/special_tags.t,v
retrieving revision 1.1
retrieving revision 1.5
diff -u -r1.1 -r1.5
--- todotxt/Text-Todo/t/special_tags.t	2010/01/10 01:03:02	1.1
+++ todotxt/Text-Todo/t/special_tags.t	2010/01/15 19:50:15	1.5
@@ -7,7 +7,7 @@
 #       AUTHOR:  Andrew Fresh (AAF), andrew@cpan.org
 #      COMPANY:  Red River Communications
 #      CREATED:  01/09//10 17:43
-#     REVISION:  $RedRiver$
+#     REVISION:  $AFresh1: special_tags.t,v 1.4 2010/01/15 19:44:32 andrew Exp $
 #===============================================================================
 
 use strict;
@@ -15,10 +15,12 @@
 
 use Test::More tests => 7;
 
-my $class = 'Text::Todo::Entry';
+my $class;
+BEGIN { 
+	$class = 'Text::Todo::Entry';
+	use_ok( $class, "use $class" ) 
+}
 
-BEGIN: { use_ok( $class, "use $class" ) }
-
 diag("Testing special tags in $class $Text::Todo::Entry::VERSION");
 
 my %sample = (
@@ -39,4 +41,4 @@
 
 is_deeply( [ $e->due_dates ], $sample{due_dates}, 'check due_dates');
 
-done_testing();
+#done_testing();