use strict; use warnings; use Test::More tests => 14; BEGIN { use_ok('primitive_ref') } require_ok('primitive_ref'); is(primitive_ref::ref_int(3), 3, "ref_int"); is(primitive_ref::ref_uint(3), 3, "ref_uint"); is(primitive_ref::ref_short(3), 3, "ref_short"); is(primitive_ref::ref_ushort(3), 3, "ref_ushort"); is(primitive_ref::ref_long(3), 3, "ref_long"); is(primitive_ref::ref_ulong(3), 3, "ref_ulong"); is(primitive_ref::ref_schar(3), 3, "ref_schar"); is(primitive_ref::ref_uchar(3), 3, "ref_uchar"); is(primitive_ref::ref_bool(1), 1, "ref_bool"); is(primitive_ref::ref_float(3.5), 3.5, "ref_float"); is(primitive_ref::ref_double(3.5), 3.5, "ref_double"); is(primitive_ref::ref_char('x'), 'x', "ref_char");