/tags/rel-1-3-26/SWIG/Examples/test-suite/perl5/primitive_ref_runme.pl
Perl | 38 lines | 37 code | 1 blank | 0 comment | 24 complexity | 11138125c10bf0f0962ee58acb085a3d MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- use primitive_ref;
- if (primitive_ref::ref_int(3) != 3) {
- die "ref_int failed!\n";
- }
- if (primitive_ref::ref_uint(3) != 3) {
- die "ref_uint failed!\n";
- }
- if (primitive_ref::ref_short(3) != 3) {
- die "ref_short failed!\n";
- }
- if (primitive_ref::ref_ushort(3) != 3) {
- die "ref_ushort failed!\n";
- }
- if (primitive_ref::ref_long(3) != 3) {
- die "ref_long failed!\n";
- }
- if (primitive_ref::ref_ulong(3) != 3) {
- die "ref_ulong failed!\n";
- }
- if (primitive_ref::ref_schar(3) != 3) {
- die "ref_schar failed!\n";
- }
- if (primitive_ref::ref_uchar(3) != 3) {
- die "ref_uchar failed!\n";
- }
- if (primitive_ref::ref_bool(1) != 1) {
- die "ref_bool failed!\n";
- }
- if (primitive_ref::ref_float(3.5) != 3.5) {
- die "ref_float failed!\n";
- }
- if (primitive_ref::ref_double(3.5) != 3.5) {
- die "ref_double failed!\n";
- }
- if (primitive_ref::ref_char('x') != 'x') {
- die "ref_char failed!\n";
- }