X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftop.t;h=3ac76d154051627a77582b795902fb6e8d3f1f53;hb=f5c8badf9cff80771975450c60d32c987c7f6af9;hp=49d3b722663a90645eccceef407a9221b187bdc9;hpb=e374d8da73279ac3fbba8d938f287281a6ae924f;p=urisagit%2FTemplate-Simple.git

diff --git a/t/top.t b/t/top.t
index 49d3b72..3ac76d1 100644
--- a/t/top.t
+++ b/t/top.t
@@ -6,7 +6,7 @@ use common ;
 my $tests = [
 
 	{
-		name	=> 'top level - scalar data',
+		name	=> 'scalar data',
 		data	=> 'bar',
 		template => <<TEMPLATE,
 junk
@@ -14,7 +14,7 @@ TEMPLATE
 		expected => 'bar',
 	},
 	{
-		name	=> 'top level - array data',
+		name	=> 'array data',
 		data	=> [
 			"foo\n",
 			"bar\n",
@@ -28,7 +28,7 @@ bar
 EXPECTED
 	},
 	{
-		name	=> 'top level - blessed array data',
+		name	=> 'blessed array data',
 		data	=> bless( [
 			"foo\n",
 			"bar\n",
@@ -42,7 +42,8 @@ bar
 EXPECTED
 	},
 	{
-		name	=> 'top level - code data',
+		name	=> 'code data',
+		compile_skip	=> 1,
 		data	=> sub { \uc ${$_[0]} },
 		template => <<TEMPLATE,
 junk