Fix test cases to always use intp wrappers. This is required because of changes
to the default handling of pointer and references to basic types. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7451 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
a513db7bf4
commit
9b48816f68
1 changed files with 9 additions and 9 deletions
|
|
@ -9,17 +9,17 @@ $ip=copy_intp(42);
|
|||
check::equal(42,incp($ip),"42==incp($ip)");
|
||||
check::equal(43,intp_value($ip),"43=$ip");
|
||||
|
||||
$p=2;
|
||||
check::equal(2,incp(&$p),"2==incp($p)");
|
||||
check::equal(3,$p,"3==$p");
|
||||
$p=copy_intp(2);
|
||||
check::equal(2,incp($p),"2==incp($p)");
|
||||
check::equal(3,intp_value($p),"3==$p");
|
||||
|
||||
$r=7;
|
||||
check::equal(7,incr(&$r),"7==incr($r)");
|
||||
check::equal(8,$r,"8==$r");
|
||||
$r=copy_intp(7);
|
||||
check::equal(7,incr($r),"7==incr($r)");
|
||||
check::equal(8,intp_value($r),"8==$r");
|
||||
|
||||
$tr=4;
|
||||
check::equal(4,inctr(&$tr),"4==incr($tr)");
|
||||
check::equal(5,$tr,"5==$tr");
|
||||
$tr=copy_intp(4);
|
||||
check::equal(4,inctr($tr),"4==incr($tr)");
|
||||
check::equal(5,intp_value($tr),"5==$tr");
|
||||
|
||||
# Check the voidhandle call, first with null
|
||||
unset($handle);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue