|
Packit |
7d6a7d |
################################################################################
|
|
Packit |
7d6a7d |
#
|
|
Packit |
7d6a7d |
# !!!!! Do NOT edit this file directly! !!!!!
|
|
Packit |
7d6a7d |
#
|
|
Packit |
7d6a7d |
# Edit mktests.PL and/or parts/inc/SvPV instead.
|
|
Packit |
7d6a7d |
#
|
|
Packit |
7d6a7d |
# This file was automatically generated from the definition files in the
|
|
Packit |
7d6a7d |
# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
|
|
Packit |
7d6a7d |
# works, please read the F<HACKERS> file that came with this distribution.
|
|
Packit |
7d6a7d |
#
|
|
Packit |
7d6a7d |
################################################################################
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
BEGIN {
|
|
Packit |
7d6a7d |
if ($ENV{'PERL_CORE'}) {
|
|
Packit |
7d6a7d |
chdir 't' if -d 't';
|
|
Packit |
7d6a7d |
@INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
|
|
Packit |
7d6a7d |
require Config; import Config;
|
|
Packit |
7d6a7d |
use vars '%Config';
|
|
Packit |
7d6a7d |
if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
|
|
Packit |
7d6a7d |
print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
|
|
Packit |
7d6a7d |
exit 0;
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
else {
|
|
Packit |
7d6a7d |
unshift @INC, 't';
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
sub load {
|
|
Packit |
7d6a7d |
eval "use Test";
|
|
Packit |
7d6a7d |
require 'testutil.pl' if $@;
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
if (49) {
|
|
Packit |
7d6a7d |
load();
|
|
Packit |
7d6a7d |
plan(tests => 49);
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
}
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
use Devel::PPPort;
|
|
Packit |
7d6a7d |
use strict;
|
|
Packit |
7d6a7d |
$^W = 1;
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
package Devel::PPPort;
|
|
Packit |
7d6a7d |
use vars '@ISA';
|
|
Packit |
7d6a7d |
require DynaLoader;
|
|
Packit |
7d6a7d |
@ISA = qw(DynaLoader);
|
|
Packit |
7d6a7d |
bootstrap Devel::PPPort;
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
package main;
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
my $mhx = "mhx";
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPVbyte($mhx), 3);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
my $i = 42;
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_nolen($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_const($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_mutable($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_flags($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_flags_const($mhx), $i++);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_flags_const_nolen($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_flags_mutable($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_force($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_force_nolen($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_force_mutable($mhx), $i++);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_force_nomg($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_force_nomg_nolen($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_force_flags($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_force_flags_nolen($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_force_flags_mutable($mhx), $i++);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_nolen_const($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_nomg($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_nomg_const($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_nomg_const_nolen($mhx), $i++);
|
|
Packit |
7d6a7d |
ok(&Devel::PPPort::SvPV_nomg_nolen($mhx), $i++);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_nolen($mhx), 0);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_const($mhx), 2);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_mutable($mhx), 2);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_flags($mhx), 2);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_flags_const($mhx), 2);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_flags_const_nolen($mhx), 0);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_flags_mutable($mhx), 2);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_force($mhx), 2);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_force_nolen($mhx), 0);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_force_mutable($mhx), 2);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_force_nomg($mhx), 2);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_force_nomg_nolen($mhx), 0);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_force_flags($mhx), 2);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_force_flags_nolen($mhx), 0);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_force_flags_mutable($mhx), 2);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_nolen_const($mhx), 0);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_nomg($mhx), 2);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const($mhx), 2);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const_nolen($mhx), 0);
|
|
Packit |
7d6a7d |
$mhx = 42; ok(&Devel::PPPort::SvPV_nomg_nolen($mhx), 0);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
my $str = "";
|
|
Packit |
7d6a7d |
&Devel::PPPort::SvPV_force($str);
|
|
Packit |
7d6a7d |
my($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 81, "x"x80);
|
|
Packit |
7d6a7d |
ok($str, "x"x80);
|
|
Packit |
7d6a7d |
ok($s2, "x"x80);
|
|
Packit |
7d6a7d |
ok($before < 81);
|
|
Packit |
7d6a7d |
ok($after, 81);
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
$str = "x"x400;
|
|
Packit |
7d6a7d |
&Devel::PPPort::SvPV_force($str);
|
|
Packit |
7d6a7d |
($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 41, "x"x40);
|
|
Packit |
7d6a7d |
ok($str, "x"x40);
|
|
Packit |
7d6a7d |
ok($s2, "x"x40);
|
|
Packit |
7d6a7d |
ok($before > 41);
|
|
Packit |
7d6a7d |
ok($after, 41);
|
|
Packit |
7d6a7d |
|