diff options
Diffstat (limited to 'dist/Devel-PPPort/t/gv.t')
-rw-r--r-- | dist/Devel-PPPort/t/gv.t | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/dist/Devel-PPPort/t/gv.t b/dist/Devel-PPPort/t/gv.t deleted file mode 100644 index f892fd19f4..0000000000 --- a/dist/Devel-PPPort/t/gv.t +++ /dev/null @@ -1,67 +0,0 @@ -################################################################################ -# -# !!!!! Do NOT edit this file directly! !!!!! -# -# Edit mktests.PL and/or parts/inc/gv 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. -# -################################################################################ - -use FindBin (); - -BEGIN { - if ($ENV{'PERL_CORE'}) { - chdir 't' if -d 't'; - unshift @INC, '../lib' if -d '../lib' && -d '../ext'; - require Config; Config->import; - use vars '%Config'; - if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) { - print "1..0 # Skip -- Perl configured without Devel::PPPort module\n"; - exit 0; - } - } - - use lib "$FindBin::Bin"; - use lib "$FindBin::Bin/../parts/inc"; - - die qq[Cannot find "$FindBin::Bin/../parts/inc"] unless -d "$FindBin::Bin/../parts/inc"; - - sub load { - require 'testutil.pl'; - require 'inctools'; - } - - if (7) { - load(); - plan(tests => 7); - } -} - -use Devel::PPPort; -use strict; -BEGIN { $^W = 1; } - -package Devel::PPPort; -use vars '@ISA'; -require DynaLoader; -@ISA = qw(DynaLoader); -Devel::PPPort->bootstrap; - -package main; - -is(Devel::PPPort::GvSVn(), 1); - -is(Devel::PPPort::isGV_with_GP(), 2); - -is(Devel::PPPort::get_cvn_flags(), 3); - -is(Devel::PPPort::gv_fetchpvn_flags(), \*Devel::PPPort::VERSION); - -is(Devel::PPPort::gv_fetchsv("Devel::PPPort::VERSION"), \*Devel::PPPort::VERSION); - -is(Devel::PPPort::gv_init_type("sanity_check", 0, 0), "*main::sanity_check"); -ok($::{sanity_check}); - |