[Templates-svn] r1091 - trunk/t

[svn@template-toolkit.org]

Author: abw
Date: 2007-05-30 11:43:42 +0100 (Wed, 30 May 2007)
New Revision: 1091

Modified:
   trunk/t/stash-xs.t
   trunk/t/stash.t
Log:
added tests to both perl/XS stash to check that you can call a list method on a single object

Modified: trunk/t/stash-xs.t
===================================================================
--- trunk/t/stash-xs.t	2007-05-30 10:43:06 UTC (rev 1090)
+++ trunk/t/stash-xs.t	2007-05-30 10:43:42 UTC (rev 1091)
@@ -78,6 +78,7 @@
     obj => bless({
         name => 'an object',
     }, 'AnObject'),
+    bop => sub { return ( bless ({ name => 'an object' }, 'AnObject') ) }, 
     listobj => bless([10, 20, 30], 'ListObject'),
     hashobj => bless({ planet => 'World' }, 'HashObject'),
     clean   => sub {
@@ -274,6 +275,11 @@
 an object
 
 -- test --
+[% bop.first.name %]
+-- expect --
+an object
+
+-- test --
 [% obj.items.first %]
 -- expect --
 name

Modified: trunk/t/stash.t
===================================================================
--- trunk/t/stash.t	2007-05-30 10:43:06 UTC (rev 1090)
+++ trunk/t/stash.t	2007-05-30 10:43:42 UTC (rev 1091)
@@ -66,6 +66,7 @@
     obj => bless({
         name => 'an object',
     }, 'AnObject'),
+    bop => sub { return ( bless ({ name => 'an object' }, 'AnObject') ) }, 
     hashobj => bless({ planet => 'World' }, 'HashObject'),
     listobj => bless([10, 20, 30], 'ListObject'),
     clean   => sub {
@@ -245,6 +246,11 @@
 an object
 
 -- test --
+[% bop.first.name %]
+-- expect --
+an object
+
+-- test --
 [% listobj.0 %] / [% listobj.first %]
 -- expect --
 10 / 10