Fix argcargv.i in Perl5, Tcl, PHP

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

View file

@ -0,0 +1,32 @@
#!/usr/bin/env ruby
require 'swig_assert'
require 'argcargvtest'
include Argcargvtest
$largs = ["hi", "hola", "hello"]
if mainc($largs) != 3
raise RuntimeError, "bad main typemap"
end
$targs = ["hi", "hola"]
if mainv($targs, 1) != "hola"
raise RuntimeError, "bad main typemap"
end
$error = 0
$ret = 0
begin
mainv("hello", 1)
$error = 1
rescue => e
$ret = 1
end
if $error == 1 or $ret != 1
raise RuntimeError, "bad main typemap"
end
initializeApp($largs)