Permalink
Browse files

Fix some tests where the signature of the PG procedure did not match …

…the signature of the Perl 6 code
  • Loading branch information...
1 parent d1c5346 commit aa265eb11be8a50418333c03028a9e85b05b9d3a @leto committed Aug 17, 2010
Showing with 6 additions and 6 deletions.
  1. +6 −6 t/sql/plperl6.sql
View
@@ -17,11 +17,11 @@ BEGIN;
-- Plan the tests.
SELECT plan(13);
-CREATE OR REPLACE FUNCTION test_void_plperl6(integer) RETURNS void LANGUAGE plperl6 AS $$
+CREATE OR REPLACE FUNCTION test_void_plperl6() RETURNS void LANGUAGE plperl6 AS $$
Nil
$$;
-CREATE OR REPLACE FUNCTION test_int_plperl6(integer) RETURNS int LANGUAGE plperl6 AS $$
+CREATE OR REPLACE FUNCTION test_int_plperl6() RETURNS int LANGUAGE plperl6 AS $$
42
$$;
@@ -58,15 +58,15 @@ CREATE OR REPLACE FUNCTION test_named_pointy(integer, integer, integer) RETURNS
}(|@_);
$$;
-CREATE OR REPLACE FUNCTION test_float_plperl6(integer) RETURNS float AS $$ 5.0 $$ LANGUAGE plperl6;
+CREATE OR REPLACE FUNCTION test_float_plperl6() RETURNS float AS $$ 5.0 $$ LANGUAGE plperl6;
CREATE OR REPLACE FUNCTION test_string_plperl6() RETURNS varchar AS $$ "rakudo" $$ LANGUAGE plperl6;
CREATE OR REPLACE FUNCTION test_singlequote_plperl6() RETURNS varchar AS $$ 'rakudo*' $$ LANGUAGE plperl6;
-select is(test_int_plperl6(89),42,'Return an integer from PL/Perl6');
-select is(test_void_plperl6(42)::text,''::text,'Return nothing from PL/Perl6');
-select is(test_float_plperl6(2), 5.0::float,'Return a float from PL/Perl6');
+select is(test_int_plperl6(),42,'Return an integer from PL/Perl6');
+select is(test_void_plperl6()::text,''::text,'Return nothing from PL/Perl6');
+select is(test_float_plperl6(), 5.0::float,'Return a float from PL/Perl6');
select is(test_string_plperl6(), 'rakudo','Return a varchar from PL/Perl6');
select is(test_singlequote_plperl6(), 'rakudo*','Use a single quote in a PL/Perl6 procedure');

0 comments on commit aa265eb

Please sign in to comment.