1################################################################################
2#
3#            !!!!!   Do NOT edit this file directly!   !!!!!
4#
5#            Edit mktests.PL and/or parts/inc/pvs instead.
6#
7#  This file was automatically generated from the definition files in the
8#  parts/inc/ subdirectory by mktests.PL. To learn more about how all this
9#  works, please read the F<HACKERS> file that came with this distribution.
10#
11################################################################################
12
13BEGIN {
14  if ($ENV{'PERL_CORE'}) {
15    chdir 't' if -d 't';
16    @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
17    require Config; import Config;
18    use vars '%Config';
19    if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
20      print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
21      exit 0;
22    }
23  }
24  else {
25    unshift @INC, 't';
26  }
27
28  sub load {
29    eval "use Test";
30    require 'testutil.pl' if $@;
31  }
32
33  if (12) {
34    load();
35    plan(tests => 12);
36  }
37}
38
39use Devel::PPPort;
40use strict;
41$^W = 1;
42
43package Devel::PPPort;
44use vars '@ISA';
45require DynaLoader;
46@ISA = qw(DynaLoader);
47bootstrap Devel::PPPort;
48
49package main;
50
51my $x = 'foo';
52
53ok(Devel::PPPort::newSVpvs(), "newSVpvs");
54ok(Devel::PPPort::newSVpvs_flags(), "newSVpvs_flags");
55ok(Devel::PPPort::newSVpvs_share(), 3);
56
57Devel::PPPort::sv_catpvs($x);
58ok($x, "foosv_catpvs");
59
60Devel::PPPort::sv_setpvs($x);
61ok($x, "sv_setpvs");
62
63my %h = ('hv_fetchs' => 42);
64Devel::PPPort::hv_stores(\%h, 4711);
65ok(scalar keys %h, 2);
66ok(exists $h{'hv_stores'});
67ok($h{'hv_stores'}, 4711);
68ok(Devel::PPPort::hv_fetchs(\%h), 42);
69ok(Devel::PPPort::gv_fetchpvs(), \*Devel::PPPort::VERSION);
70ok(Devel::PPPort::gv_stashpvs(), \%Devel::PPPort::);
71
72ok(Devel::PPPort::get_cvs(), 3);
73
74