[Templates-cvs] cvs commit: TT3/t/parser assign.t

[cvs@template-toolkit.org]

cvs         04/12/03 13:44:45

  Modified:    t/parser assign.t
  Log:
  * fixed up some error messages that have changed
  
  Revision  Changes    Path
  1.2       +12 -9     TT3/t/parser/assign.t
  
  Index: assign.t
  ===================================================================
  RCS file: /template-toolkit/TT3/t/parser/assign.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- assign.t	2004/12/02 18:25:32	1.1
  +++ assign.t	2004/12/03 13:44:45	1.2
  @@ -10,7 +10,7 @@
   # This is free software; you can redistribute it and/or modify it
   # under the same terms as Perl itself.
   #
  -# $Id: assign.t,v 1.1 2004/12/02 18:25:32 abw Exp $
  +# $Id: assign.t,v 1.2 2004/12/03 13:44:45 abw Exp $
   #
   #========================================================================
   
  @@ -25,6 +25,7 @@
   our $DEBUG = 
   $Template::Parser::DEBUG =
   grep(/^--?d(ebug)?/, @ARGV);
  +my $STEP = grep(/^--?s(tep)?/, @ARGV);
   
   my $ppkg = 'Template::Parser';
   my $gpkg = 'Template::Generator::Debug';
  @@ -42,7 +43,9 @@
   
   test_expect({
       handler => \&parse, 
  -    ok      => \&ok 
  +    ok      => \&ok,
  +    step    => $STEP,
  +        
   });
   
   sub parse {
  @@ -119,7 +122,7 @@
   -- test missing expression --
   =
   -- expect --
  -<ERROR:missing expression after '='>
  +<ERROR:missing expression after '=' (end of statement)>
   
   -- test bad expression --
   = &
  @@ -147,7 +150,7 @@
   -- test missing expression after ident --
   bar=
   -- expect --
  -<ERROR:missing expression after '='>
  +<ERROR:missing expression after '=' (end of statement)>
   
   -- test strings not allowed as idents --
   'foo' = 200
  @@ -163,7 +166,7 @@
   -- required --
   bar
   -- expect --
  -<ERROR:missing assignment after identifier 'bar'>
  +<ERROR:missing assignment after identifier 'bar' (end of statement)>
   
   -- test dotted variables are not allowed as idents req --
   foo.bar = 205
  @@ -217,7 +220,7 @@
   -- test missing expression after key --
   bar=
   -- expect --
  -<ERROR:missing expression after '='>
  +<ERROR:missing expression after '=' (end of statement)>
   
   -- test dotted variables are not allowed as keys req --
   -- required --
  @@ -228,17 +231,17 @@
   -- test required assignment after key --
   bar
   -- expect --
  -<ERROR:missing assignment after key 'bar'>
  +<ERROR:missing assignment after key 'bar' (end of statement)>
   
   -- test required assignment after single quoted key --
   'bar'
   -- expect --
  -<ERROR:missing assignment after key 'bar'>
  +<ERROR:missing assignment after key 'bar' (end of statement)>
   
   -- test required assignment after double quoted key --
   "bar$baz"
   -- expect --
  -<ERROR:missing assignment after key "bar$baz">
  +<ERROR:missing assignment after key "bar$baz" (end of statement)>