[Bast-commits] r5824 - SQL-Abstract/1.x/trunk/lib/SQL/Abstract

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-03-28 01:16:01 +0000 (Sat, 28 Mar 2009)
New Revision: 5824

Modified:
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Test.pm
Log:
Better test exception diag

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Test.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Test.pm	2009-03-27 12:30:00 UTC (rev 5823)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Test.pm	2009-03-28 01:16:01 UTC (rev 5824)
@@ -331,8 +331,8 @@
     # nested expression in ()
     if ($token eq '(') {
       my $right = _recurse_parse($tokens, PARSE_IN_PARENS);
-      $token = shift @$tokens   or croak "missing ')'";
-      $token eq ')'             or croak "unexpected token : $token";
+      $token = shift @$tokens   or croak "missing closing ')' around block " . unparse ($right);
+      $token eq ')'             or croak "unexpected token '$token' terminating block " . unparse ($right);
       $left = $left ? [@$left, [PAREN => [$right] ]]
                     : [PAREN  => [$right] ];
     }