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:
parent
464d548d71
commit
b88fe498ca
7 changed files with 123 additions and 0 deletions
28
Examples/test-suite/tcl/argcargvtest_runme.tcl
Normal file
28
Examples/test-suite/tcl/argcargvtest_runme.tcl
Normal 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
|
||||
Loading…
Add table
Add a link
Reference in a new issue