################################################################################

#

#            !!!!!   Do NOT edit this file directly!   !!!!!

#

#            Edit mktests.PL and/or parts/inc/newSVpv 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 (15) {

    load();

    plan(tests => 15);

  }

}

use Devel::PPPort;

use strict;

$^W = 1;

package Devel::PPPort;

use vars '@ISA';

require DynaLoader;

@ISA = qw(DynaLoader);

bootstrap Devel::PPPort;

package main;

my @s = &Devel::PPPort::newSVpvn();

ok(@s == 5);

ok($s[0], "test");

ok($s[1], "te");

ok($s[2], "");

ok(!defined($s[3]));

ok(!defined($s[4]));

@s = &Devel::PPPort::newSVpvn_flags();

ok(@s == 5);

ok($s[0], "test");

ok($s[1], "te");

ok($s[2], "");

ok(!defined($s[3]));

ok(!defined($s[4]));

@s = &Devel::PPPort::newSVpvn_utf8();

ok(@s == 1);

ok($s[0], "test");

if ($] >= 5.008001) {

  require utf8;

  ok(utf8::is_utf8($s[0]));

}

else {

  skip("skip: no is_utf8()", 0);

}