jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix argcargv.i in Perl5, Tcl, PHP

Browse source 
Add missing type map for type check.
Add testing of argcargv.i for Perl5, Tcl, PHP and Ruby.

Signed-off-by: Erez Geva <ErezGeva2@gmail.com>
This commit is contained in:
Erez Geva 2022-05-11 01:10:12 +02:00
commit b88fe498ca
7 changed files with 123 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Examples/test-suite/perl5/argcargvtest_runme.pl Normal file
View file

@ -0,0 +1,20 @@
use strict;
use warnings;
use Test::More tests => 8;
BEGIN { use_ok('argcargvtest') }
require_ok('argcargvtest');
my $largs = ["hi", "hola", "hello"];
is(argcargvtest::mainc($largs), 3, "test main typemap 1");
my $targs = ["hi", "hola"];
is(argcargvtest::mainv($targs, 1), "hola", "test main typemap 2");
my $errorVal = 0;
my $ret = eval qq(argcargvtest::mainv("hello", 1); \$errorVal = 1;);
is($ret, undef, "test main typemap 3");
is($errorVal, 0, "test main typemap 4");
is(argcargvtest::initializeApp($largs), undef, "test main typemap 5");
ok(1, "done");