summaryrefslogtreecommitdiff
path: root/cpan/Getopt-Long
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2011-07-03 12:22:37 +0200
committerFlorian Ragwitz <rafl@debian.org>2011-07-03 18:09:39 +0200
commit8cc871bd82ee24f31b8b9cf2c8458ced9d3dfd42 (patch)
tree4fa791cfabdc6fcdc543cc9c707178871625b589 /cpan/Getopt-Long
parente846f1dc86643f46748f814adf2948a5787a2ccf (diff)
downloadperl-8cc871bd82ee24f31b8b9cf2c8458ced9d3dfd42.tar.gz
Remove deprecated Perl 4 core libraries
Diffstat (limited to 'cpan/Getopt-Long')
-rw-r--r--cpan/Getopt-Long/t/gol-compat.t39
1 files changed, 0 insertions, 39 deletions
diff --git a/cpan/Getopt-Long/t/gol-compat.t b/cpan/Getopt-Long/t/gol-compat.t
deleted file mode 100644
index 610474f10f..0000000000
--- a/cpan/Getopt-Long/t/gol-compat.t
+++ /dev/null
@@ -1,39 +0,0 @@
-#!./perl -w
-
-no strict;
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- @INC = '../lib';
- chdir 't';
- }
-}
-
-{
- # Silence the deprecation warnings from newgetopt.pl for the purpose
- # of testing. These tests will be removed along with newgetopt.pl in
- # the next major release of perl.
- local $SIG{__WARN__} = sub {
- if ($_[0] !~ /will be removed from the Perl core distribution/) {
- print(STDERR @_);
- }
- };
- require "newgetopt.pl";
-}
-
-print "1..9\n";
-
-@ARGV = qw(-Foo -baR --foo bar);
-$newgetopt::ignorecase = 0;
-$newgetopt::ignorecase = 0;
-undef $opt_baR;
-undef $opt_bar;
-print "ok 1\n" if NGetOpt ("foo", "Foo=s");
-print ((defined $opt_foo) ? "" : "not ", "ok 2\n");
-print (($opt_foo == 1) ? "" : "not ", "ok 3\n");
-print ((defined $opt_Foo) ? "" : "not ", "ok 4\n");
-print (($opt_Foo eq "-baR") ? "" : "not ", "ok 5\n");
-print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
-print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
-print (!(defined $opt_baR) ? "" : "not ", "ok 8\n");
-print (!(defined $opt_bar) ? "" : "not ", "ok 9\n");