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,28 @@
if [ catch { load ./argcargvtest[info sharedlibextension] argcargvtest} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
}
set largs {hi hola hello}
if {[mainc $largs] != 3} {
puts stderr "bad main typemap"
exit 1
}
set targs {hi hola}
if {[mainv $targs 1] != "hola"} {
puts stderr "bad main typemap"
exit 1
}
set targs " hi hola "
if {[mainv $targs 1] != "hola"} {
puts stderr "bad main typemap"
exit 1
}
if { ! [ catch { mainv("hello", 1) } ] } {
puts stderr "bad main typemap"
exit 1
}
initializeApp $largs