Examples/test-suite/perl5/return_const_value_runme.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 4;
   5 BEGIN { use_ok('return_const_value') }
   6 require_ok('return_const_value');
   7
   8 # adapted from ../python/return_const_value_runme.py
   9
  10 is(return_const_value::Foo_ptr::getPtr()->getVal(), 17);
  11
  12 is(return_const_value::Foo_ptr::getConstPtr()->getVal(), 17);
  13