Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files

Add another test to PL/Perl6 about argument handling

  • Loading branch information...
1 parent 731c74f commit 690db531948a42b50ec89c3bf55aa6cc3d896145 @leto committed
Showing with 6 additions and 1 deletion.
  1. +6 −1 t/sql/plperl6.sql
7 t/sql/plperl6.sql
@@ -15,7 +15,7 @@ BEGIN;
\i plparrot.sql
-- Plan the tests.
-SELECT plan(8);
+SELECT plan(9);
CREATE FUNCTION test_void_plperl6(integer) RETURNS void LANGUAGE plperl6 AS $$
@@ -29,6 +29,10 @@ CREATE FUNCTION test_arguments_plperl6(integer) RETURNS int LANGUAGE plperl6 AS
+CREATE FUNCTION test_defined_plperl6(integer) RETURNS int LANGUAGE plperl6 AS $$
CREATE FUNCTION test_2arguments_plperl6(integer,integer) RETURNS int LANGUAGE plperl6 AS $$
@@ -51,6 +55,7 @@ select is(test_singlequote_plperl6(), 'rakudo*','Use a single quote in a PL/Perl
select is(test_fibonacci_plperl6(1),232,'Calculate the sum of all Fibonacci numbers <= 100');
select is(test_arguments_plperl6(5),5,'We can return an argument unchanged');
+select is(test_defined_plperl6(100),1,'@_[0] is defined when an argument is passed in');
select is(test_2arguments_plperl6(4,9),2,'PL/Perl sees multiple arguments');

0 comments on commit 690db53

Please sign in to comment.
Something went wrong with that request. Please try again.