1 ################################################################################
3 # !!!!! Do NOT edit this file directly! !!!!!
5 # Edit mktests.PL and/or parts/inc/SvPV instead.
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.
11 ################################################################################
14 if ($ENV{'PERL_CORE'}) {
16 @INC = ('../lib', '../ext/Devel/PPPort/t') if -d '../lib' && -d '../ext';
17 require Config; import Config;
19 if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
20 print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
30 require 'testutil.pl' if $@;
43 package Devel::PPPort;
46 @ISA = qw(DynaLoader);
47 bootstrap Devel::PPPort;
53 ok(&Devel::PPPort::SvPVbyte($mhx), 3);
57 ok(&Devel::PPPort::SvPV_nolen($mhx), $i++);
58 ok(&Devel::PPPort::SvPV_const($mhx), $i++);
59 ok(&Devel::PPPort::SvPV_mutable($mhx), $i++);
60 ok(&Devel::PPPort::SvPV_flags($mhx), $i++);
61 ok(&Devel::PPPort::SvPV_flags_const($mhx), $i++);
63 ok(&Devel::PPPort::SvPV_flags_const_nolen($mhx), $i++);
64 ok(&Devel::PPPort::SvPV_flags_mutable($mhx), $i++);
65 ok(&Devel::PPPort::SvPV_force($mhx), $i++);
66 ok(&Devel::PPPort::SvPV_force_nolen($mhx), $i++);
67 ok(&Devel::PPPort::SvPV_force_mutable($mhx), $i++);
69 ok(&Devel::PPPort::SvPV_force_nomg($mhx), $i++);
70 ok(&Devel::PPPort::SvPV_force_nomg_nolen($mhx), $i++);
71 ok(&Devel::PPPort::SvPV_force_flags($mhx), $i++);
72 ok(&Devel::PPPort::SvPV_force_flags_nolen($mhx), $i++);
73 ok(&Devel::PPPort::SvPV_force_flags_mutable($mhx), $i++);
75 ok(&Devel::PPPort::SvPV_nolen_const($mhx), $i++);
76 ok(&Devel::PPPort::SvPV_nomg($mhx), $i++);
77 ok(&Devel::PPPort::SvPV_nomg_const($mhx), $i++);
78 ok(&Devel::PPPort::SvPV_nomg_const_nolen($mhx), $i++);
80 $mhx = 42; ok(&Devel::PPPort::SvPV_nolen($mhx), 0);
81 $mhx = 42; ok(&Devel::PPPort::SvPV_const($mhx), 2);
82 $mhx = 42; ok(&Devel::PPPort::SvPV_mutable($mhx), 2);
83 $mhx = 42; ok(&Devel::PPPort::SvPV_flags($mhx), 2);
84 $mhx = 42; ok(&Devel::PPPort::SvPV_flags_const($mhx), 2);
86 $mhx = 42; ok(&Devel::PPPort::SvPV_flags_const_nolen($mhx), 0);
87 $mhx = 42; ok(&Devel::PPPort::SvPV_flags_mutable($mhx), 2);
88 $mhx = 42; ok(&Devel::PPPort::SvPV_force($mhx), 2);
89 $mhx = 42; ok(&Devel::PPPort::SvPV_force_nolen($mhx), 0);
90 $mhx = 42; ok(&Devel::PPPort::SvPV_force_mutable($mhx), 2);
92 $mhx = 42; ok(&Devel::PPPort::SvPV_force_nomg($mhx), 2);
93 $mhx = 42; ok(&Devel::PPPort::SvPV_force_nomg_nolen($mhx), 0);
94 $mhx = 42; ok(&Devel::PPPort::SvPV_force_flags($mhx), 2);
95 $mhx = 42; ok(&Devel::PPPort::SvPV_force_flags_nolen($mhx), 0);
96 $mhx = 42; ok(&Devel::PPPort::SvPV_force_flags_mutable($mhx), 2);
98 $mhx = 42; ok(&Devel::PPPort::SvPV_nolen_const($mhx), 0);
99 $mhx = 42; ok(&Devel::PPPort::SvPV_nomg($mhx), 2);
100 $mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const($mhx), 2);
101 $mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const_nolen($mhx), 0);
104 my($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 81, "x"x80);
111 ($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 41, "x"x40);