lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From nwelln...@apache.org
Subject [lucy-commits] [3/4] git commit: refs/heads/cfc-pod - Fix Clownfish::CFC::Model::ParamList constructor
Date Sat, 20 Jul 2013 16:06:02 GMT
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 <wellnhofer@aevum.de>
Authored: Sat Jul 20 17:29:06 2013 +0200
Committer: Nick Wellnhofer <wellnhofer@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";


Mime
View raw message