1################################################################################
2#
3#            !!!!!   Do NOT edit this file directly!   !!!!!
4#
5#            Edit mktests.PL and/or parts/inc/cop 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
38my $package;
39{
40  package MyPackage;
41  $package = &Devel::PPPort::CopSTASHPV();
42}
43print "# $package\n";
44ok($package, "MyPackage");
45
46my $file = &Devel::PPPort::CopFILE();
47print "# $file\n";
48ok($file =~ /cop/i);
49
50