[Templates-cvs] cvs commit: TT3/t/directive set.t
cvs@template-toolkit.org
cvs@template-toolkit.org
Fri, 03 Dec 2004 08:23:11 +0000
cvs 04/12/03 08:23:11
Modified: t/directive set.t
Log:
* changed expected output for new set sexpr
Revision Changes Path
1.4 +15 -13 TT3/t/directive/set.t
Index: set.t
===================================================================
RCS file: /template-toolkit/TT3/t/directive/set.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- set.t 2004/12/01 11:05:22 1.3
+++ set.t 2004/12/03 08:23:11 1.4
@@ -9,7 +9,7 @@
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
-# $Id: set.t,v 1.3 2004/12/01 11:05:22 abw Exp $
+# $Id: set.t,v 1.4 2004/12/03 08:23:11 abw Exp $
#
#========================================================================
@@ -29,6 +29,7 @@
$Template::Directive::Set::DEBUG =
$Template::Directive::DEBUG =
grep(/^--?d(ebug)?/, @ARGV);
+our $STEP = grep(/^--?s(tep)?/, @ARGV);
my $scanpkg = 'Template::TT3::Scanner';
my $handpkg = 'Template::Handler';
@@ -49,6 +50,7 @@
test_expect({
handler => \&parse,
debug => $DEBUG,
+ step => $STEP,
});
sub parse {
@@ -93,14 +95,14 @@
<template:
<line:1>
<set:
- <assign:
+ [
<variable:
<node:
<ident:x>
>
>
<number:10>
- >
+ ]
>
>
@@ -115,14 +117,14 @@
<template:
<line:1>
<set:
- <assign:
+ [
<variable:
<node:
<ident:x>
>
>
<number:10>
- >
+ ]
>
>
@@ -136,30 +138,30 @@
<template:
<line:1>
<set:
- <assign:
+ [
<variable:
<node:
<ident:x>
>
>
<number:10>
- >
- <assign:
+ ]
+ [
<variable:
<node:
<ident:y>
>
>
<number:20>
- >
- <assign:
+ ]
+ [
<variable:
<node:
<ident:z>
>
>
<number:30>
- >
+ ]
>
>
@@ -170,7 +172,7 @@
<template:
<line:1>
<set:
- <assign:
+ [
<variable:
<node:
<ident:b>
@@ -188,7 +190,7 @@
<ident:a>
>
>
- >
+ ]
>
>