Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
HvNAME.t	1.4 KB	-r--r--r--	2014-12-27 11:48
MY_CXT.t	1.27 KB	-r--r--r--	2014-12-27 11:48
SvPV.t	3.72 KB	-r--r--r--	2014-12-27 11:48
SvREFCNT.t	1.24 KB	-r--r--r--	2014-12-27 11:48
Sv_set.t	1.53 KB	-r--r--r--	2014-12-27 11:48
call.t	3.18 KB	-r--r--r--	2014-12-27 11:48
cop.t	1.38 KB	-r--r--r--	2014-12-27 11:49
exception.t	1.52 KB	-r--r--r--	2014-12-27 11:48
format.t	1.28 KB	-r--r--r--	2014-12-27 11:48
grok.t	1.66 KB	-r--r--r--	2014-12-27 11:48
gv.t	1.42 KB	-r--r--r--	2014-12-27 11:48
limits.t	1.29 KB	-r--r--r--	2014-12-27 11:48
mPUSH.t	1.72 KB	-r--r--r--	2014-12-27 11:48
magic.t	2.22 KB	-r--r--r--	2014-12-27 11:49
memory.t	1.21 KB	-r--r--r--	2014-12-27 11:48
misc.t	3.1 KB	-r--r--r--	2014-12-27 11:49
newCONSTSUB.t	1.41 KB	-r--r--r--	2014-12-27 11:48
newRV.t	1.25 KB	-r--r--r--	2014-12-27 11:48
newSV_type.t	1.21 KB	-r--r--r--	2014-12-27 11:48
newSVpv.t	1.64 KB	-r--r--r--	2014-12-27 11:48
podtest.t	1.77 KB	-r--r--r--	2014-12-27 11:48
ppphtest.t	22.04 KB	-r--r--r--	2014-12-27 11:49
pv_tools.t	1.78 KB	-r--r--r--	2014-12-27 11:48
pvs.t	1.75 KB	-r--r--r--	2014-12-27 11:48
shared_pv.t	1.22 KB	-r--r--r--	2014-12-27 11:48
snprintf.t	1.25 KB	-r--r--r--	2014-12-27 11:48
sprintf.t	1.25 KB	-r--r--r--	2014-12-27 11:48
strlfuncs.t	1.41 KB	-r--r--r--	2014-12-27 11:48
sv_xpvf.t	2.04 KB	-r--r--r--	2014-12-27 11:48
testutil.pl	993 B	-r--r--r--	2014-12-27 11:48
threads.t	1.28 KB	-r--r--r--	2014-12-27 11:48
uv.t	1.6 KB	-r--r--r--	2014-12-27 11:48
variables.t	2.34 KB	-r--r--r--	2014-12-27 11:48
warn.t	1.76 KB	-r--r--r--	2014-12-27 11:48

Rename

################################################################################
#
#            !!!!!   Do NOT edit this file directly!   !!!!!
#
#            Edit mktests.PL and/or parts/inc/variables instead.
#
#  This file was automatically generated from the definition files in the
#  parts/inc/ subdirectory by mktests.PL. To learn more about how all this
#  works, please read the F<HACKERS> file that came with this distribution.
#
################################################################################

BEGIN {
  if ($ENV{'PERL_CORE'}) {
    chdir 't' if -d 't';
    @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
    require Config; import Config;
    use vars '%Config';
    if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
      print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
      exit 0;
    }
  }
  else {
    unshift @INC, 't';
  }

sub load {
    eval "use Test";
    require 'testutil.pl' if $@;
  }

if (52) {
    load();
    plan(tests => 52);
  }
}

use Devel::PPPort;
use strict;
$^W = 1;

package Devel::PPPort;
use vars '@ISA';
require DynaLoader;
@ISA = qw(DynaLoader);
bootstrap Devel::PPPort;

package main;

ok(Devel::PPPort::compare_PL_signals());

ok(!defined(&Devel::PPPort::PL_sv_undef()));
ok(&Devel::PPPort::PL_sv_yes());
ok(!&Devel::PPPort::PL_sv_no());
ok(&Devel::PPPort::PL_na("abcd"), 4);
ok(&Devel::PPPort::PL_Sv(), "mhx");
ok(defined &Devel::PPPort::PL_tokenbuf());
ok($] >= 5.009005 || &Devel::PPPort::PL_parser());
ok(&Devel::PPPort::PL_hexdigit() =~ /^[0-9a-zA-Z]+$/);
ok(defined &Devel::PPPort::PL_hints());
ok(&Devel::PPPort::PL_ppaddr("mhx"), "MHX");

for (&Devel::PPPort::other_variables()) {
  ok($_ != 0);
}

{
  my @w;
  my $fail = 0;
  {
    local $SIG{'__WARN__'} = sub { push @w, @_ };
    ok(&Devel::PPPort::dummy_parser_warning());
  }
  if ($] >= 5.009005) {
    ok(@w >= 0);
    for (@w) {
      print "# $_";
      unless (/^warning: dummy PL_bufptr used in.*module3.*:\d+/i) {
        warn $_;
        $fail++;
      }
    }
  }
  else {
    ok(@w == 0);
  }
  ok($fail, 0);
}

ok(&Devel::PPPort::no_dummy_parser_vars(1) >= ($] < 5.009005 ? 1 : 0));

eval { &Devel::PPPort::no_dummy_parser_vars(0) };

if ($] < 5.009005) {
  ok($@, '');
}
else {
  if ($@) {
    print "# $@";
    ok($@ =~ /^panic: PL_parser == NULL in.*module2.*:\d+/i);
  }
  else {
    ok(1);
  }
}