/tags/rel-1-3-26/SWIG/Examples/test-suite/perl5/primitive_ref_runme.pl

 1use primitive_ref;
 2
 3if (primitive_ref::ref_int(3) != 3) {
 4    die "ref_int failed!\n";
 5}
 6if (primitive_ref::ref_uint(3) != 3) {
 7    die "ref_uint failed!\n";
 8}
 9if (primitive_ref::ref_short(3) != 3) {
10    die "ref_short failed!\n";
11}
12if (primitive_ref::ref_ushort(3) != 3) {
13    die "ref_ushort failed!\n";
14}
15if (primitive_ref::ref_long(3) != 3) {
16    die "ref_long failed!\n";
17}
18if (primitive_ref::ref_ulong(3) != 3) {
19    die "ref_ulong failed!\n";
20}
21if (primitive_ref::ref_schar(3) != 3) {
22    die "ref_schar failed!\n";
23}
24if (primitive_ref::ref_uchar(3) != 3) {
25    die "ref_uchar failed!\n";
26}
27if (primitive_ref::ref_bool(1) != 1) {
28    die "ref_bool failed!\n";
29}
30if (primitive_ref::ref_float(3.5) != 3.5) {
31    die "ref_float failed!\n";
32}
33if (primitive_ref::ref_double(3.5) != 3.5) {
34    die "ref_double failed!\n";
35}
36if (primitive_ref::ref_char('x') != 'x') {
37    die "ref_char failed!\n";
38}