1################################################################################
2#
3#            !!!!!   Do NOT edit this file directly!   !!!!!
4#
5#            Edit mktests.PL and/or parts/inc/newRV instead.
6#
7################################################################################
8
9BEGIN {
10  if ($ENV{'PERL_CORE'}) {
11    chdir 't' if -d 't';
12    @INC = ('../lib', '../ext/Devel/PPPort/t') if -d '../lib' && -d '../ext';
13    require Config; import Config;
14    use vars '%Config';
15    if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
16      print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
17      exit 0;
18    }
19  }
20  else {
21    unshift @INC, 't';
22  }
23
24  eval "use Test";
25  if ($@) {
26    require 'testutil.pl';
27    print "1..2\n";
28  }
29  else {
30    plan(tests => 2);
31  }
32}
33
34use Devel::PPPort;
35use strict;
36$^W = 1;
37
38ok(&Devel::PPPort::newRV_inc_REFCNT, 1);
39ok(&Devel::PPPort::newRV_noinc_REFCNT, 1);
40
41