1################################################################################
2#
3#            !!!!!   Do NOT edit this file directly!   !!!!!
4#
5#            Edit mktests.PL and/or parts/inc/newCONSTSUB 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..3\n";
28  }
29  else {
30    plan(tests => 3);
31  }
32}
33
34use Devel::PPPort;
35use strict;
36$^W = 1;
37
38&Devel::PPPort::call_newCONSTSUB_1();
39ok(&Devel::PPPort::test_value_1(), 1);
40
41&Devel::PPPort::call_newCONSTSUB_2();
42ok(&Devel::PPPort::test_value_2(), 2);
43
44&Devel::PPPort::call_newCONSTSUB_3();
45ok(&Devel::PPPort::test_value_3(), 3);
46
47