Prev

Next

Index-> contents reference index search external

Up-> cppad_swig swig_xam.i check_swig_xam.pl

cppad_swig-> testing swig_xam.i library whats_new_2018

swig_xam.i-> swig_xam.hpp check_swig_xam.py check_swig_xam.m check_swig_xam.pl

check_swig_xam.pl

Headings-> Add Current Directory To Search Path Load the Module Initialize Error Count factorial_by_value message_of_void int_class int_array_ptr int_array_class vector_double raise_exception normal_class double_class Set Exit Code

use lib "$ENV{PWD}";

use pl_swig_xam;

$error_count = 0;

if( pl_swig_xam::factorial_by_value(4) == 24 )
{    print "pl_swig_xam::factorial_by_value: OK\n"; }
else
{    print "pl_swig_xam::factorial_by_value: Error\n";
     $error_count = $error_count + 1;
}

if( pl_swig_xam::message_of_void() == "OK" )
{    print "pl_swig_xam::message_of_void: OK\n"; }
else
{    print "pl_swig_xam::message_of_void: Error\n";
     $error_count = $error_count + 1;
}

$obj = new pl_swig_xam::int_class();
pl_swig_xam::add_by_ptr(3, 4, $obj);
if( $obj->value() == 7 )
{    print "pl_swig_xam::add_by_ptr: OK\n"; }
else
{    print "pl_swig_xam::add_by_ptr: Error\n";
     $error_count = $error_count + 1;
}

$n = 10;
$array_ptr = pl_swig_xam::new_int_array_ptr($n);
for($i = 0; $i < $n; $i++)
{    pl_swig_xam::int_array_ptr_setitem($array_ptr, $i, 2 * $i); }

if( pl_swig_xam::max_array_by_ptr($n, $array_ptr) == 18 )
{    print "pl_swig_xam::max_array_by_ptr: pointer: OK\n"; }
else
{    print "pl_swig_xam::max_array_by_ptr: pointer: Error\n";
     $error_count = $error_count + 1;
}
pl_swig_xam::delete_int_array_ptr($array_ptr);

$n         = 10;
$array_obj = new pl_swig_xam::int_array_class($n);
for($i = 0; $i < $n; $i++)
{    pl_swig_xam::int_array_ptr_setitem($array_obj, $i, 2 * $i); }
if( pl_swig_xam::max_array_by_ptr($n, $array_obj) == 18 )
{    print "pl_swig_xam::max_array_by_ptr: class: OK\n"; }
else
{    print "pl_swig_xam::max_array_by_ptr: class: Error\n";
     $error_count = $error_count + 1;
}

$n   = 10;
$vec = new pl_swig_xam::vector_double($n);
for($i = 0; $i < $n; $i++)
{    $vec->set($i, 2.0 * $i); }

if( pl_swig_xam::max_std_vector_double($vec) == 18.0 )
{    print "pl_swig_xam::max_std_vector_double: class: OK\n"; }
else
{    print "pl_swig_xam::max_std_vector_double: class: Error\n";
     $error_count = $error_count + 1;
}

$message = "";
eval { # acts like 'try {' in other languages
     pl_swig_xam::raise_exception("test message\n");
}
; if( $@ ) { # acts like 'catch {' in other languages
     $message = pl_swig_xam::raise_exception("");
}
if( $message == "test message" )
{    print "pl_swig_xam::raise_exception: OK\n"; }
else
{    print "pl_swig_xam::raise_exception: Error\n";
     $error_count = $error_count + 1;
}

$two   = new pl_swig_xam::normal_class(2);
$three = new pl_swig_xam::normal_class(3);
$five  = $two + $three;
$check = new pl_swig_xam::normal_class(5);
$ok    = $five == $check;
$ok    = $ok and 4 < $five->value()  and $five->value() < 6;
if( ok )
{    print "pl_swig_xam::normal_class: OK\n"; }
else
{    print "pl_swig_xam::normal_class: Error\n";
     $error_count = $error_count + 1;
}

$two   = new pl_swig_xam::double_class(2.0);
$three = new pl_swig_xam::double_class(3.0);
$five  = $two + $three;
$check = new pl_swig_xam::double_class(5.0);
$ok    = $five == $check;
$ok    = $ok and 4.5 < $five->value()  and $five->value() < 5.5;
if( ok )
{    print "pl_swig_xam::double_class: OK\n"; }
else
{    print "pl_swig_xam::double_class: Error\n";
     $error_count = $error_count + 1;
}

if( $error_count == 0 )
{    exit 0; }
exit 1;