Permalink
Browse files

Fix the pointy block test

  • Loading branch information...
1 parent 849e6a8 commit 21df97c64e5767af0dea4e990047f411fa21e011 @leto committed Jul 31, 2010
Showing with 3 additions and 3 deletions.
  1. +3 −3 t/sql/plperl6.sql
View
@@ -15,7 +15,7 @@ BEGIN;
\i plparrot.sql
-- Plan the tests.
-SELECT plan(9);
+SELECT plan(10);
CREATE OR REPLACE FUNCTION test_void_plperl6(integer) RETURNS void LANGUAGE plperl6 AS $$
Nil
@@ -44,8 +44,8 @@ $$;
CREATE OR REPLACE FUNCTION test_named_pointy(integer, integer, integer) RETURNS int LANGUAGE plperl6 AS $$
-> $a, $b, $c {
- return [*], $a, $b, $c;
-};
+ return $a * $b * $c;
+}(|@_);
$$;
CREATE OR REPLACE FUNCTION test_float_plperl6(integer) RETURNS float AS $$ 5.0 $$ LANGUAGE plperl6;

0 comments on commit 21df97c

Please sign in to comment.