show the rejected value

mojolicious · Jan 27, 2018 · 702d049 · 702d049
1 parent 6441450
commit 702d049
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/SQL/Abstract/Pg.pm b/lib/SQL/Abstract/Pg.pm
@@ -87,7 +87,7 @@ sub _pg_parse {
     $self->_SWITCH_refkind(
       $for => {
         SCALAR => sub {
-          SQL::Abstract::puke('only the SCALAR value "update" is allowed')
+          SQL::Abstract::puke(qq{SCALAR value "$for" not allowed})
             unless $for eq 'update';
           $for_sql = $self->_sqlcase('UPDATE');
         },

diff --git a/t/sql.t b/t/sql.t
@@ -80,7 +80,7 @@ is_deeply \@sql, ['SELECT * FROM "foo" FOR update skip locked'], 'right query';
 
 # FOR (unsupported value)
 eval { $abstract->select('foo', '*', undef, {for => 'update skip locked'}) };
-like $@, qr/only the SCALAR value "update" is allowed/, 'right error';
+like $@, qr/SCALAR value "update skip locked" not allowed/, 'right error';
 eval { $abstract->select('foo', '*', undef, {for => []}) };
 like $@, qr/ARRAYREF/, 'right error';