You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by nw...@apache.org on 2013/07/20 18:06:02 UTC
[lucy-commits] [3/4] git commit: refs/heads/cfc-pod - Fix
Clownfish::CFC::Model::ParamList constructor
Fix Clownfish::CFC::Model::ParamList constructor
Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/d9d1ec1d
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/d9d1ec1d
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/d9d1ec1d
Branch: refs/heads/cfc-pod
Commit: d9d1ec1d265446ce2e363d2c060066cdb68af1e4
Parents: 7adad47
Author: Nick Wellnhofer <we...@aevum.de>
Authored: Sat Jul 20 17:29:06 2013 +0200
Committer: Nick Wellnhofer <we...@aevum.de>
Committed: Sat Jul 20 18:05:22 2013 +0200
----------------------------------------------------------------------
clownfish/compiler/perl/lib/Clownfish/CFC.xs | 2 +-
clownfish/compiler/perl/t/301-param_list.t | 4 +++-
2 files changed, 4 insertions(+), 2 deletions(-)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy/blob/d9d1ec1d/clownfish/compiler/perl/lib/Clownfish/CFC.xs
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC.xs b/clownfish/compiler/perl/lib/Clownfish/CFC.xs
index fafe3c3..93c1f97 100644
--- a/clownfish/compiler/perl/lib/Clownfish/CFC.xs
+++ b/clownfish/compiler/perl/lib/Clownfish/CFC.xs
@@ -1029,7 +1029,7 @@ PPCODE:
MODULE = Clownfish::CFC PACKAGE = Clownfish::CFC::Model::ParamList
SV*
-_new(klass, variadic)
+_new(variadic)
int variadic;
CODE:
CFCParamList *self = CFCParamList_new(variadic);
http://git-wip-us.apache.org/repos/asf/lucy/blob/d9d1ec1d/clownfish/compiler/perl/t/301-param_list.t
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/t/301-param_list.t b/clownfish/compiler/perl/t/301-param_list.t
index fb6505b..bec8118 100644
--- a/clownfish/compiler/perl/t/301-param_list.t
+++ b/clownfish/compiler/perl/t/301-param_list.t
@@ -16,10 +16,12 @@
use strict;
use warnings;
-use Test::More tests => 13;
+use Test::More tests => 14;
BEGIN { use_ok('Clownfish::CFC::Model::ParamList') }
+ok( Clownfish::CFC::Model::ParamList->new, 'new' );
+
my $parser = Clownfish::CFC::Parser->new;
$parser->parse('parcel Neato;')
or die "failed to process parcel_definition";