This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence more deprecation warnings in compatibility tests for Getopt::Long
[perl5.git] / lib / Getopt / Long / t / gol-compat.t
1 #!./perl -w
2
3 no strict;
4
5 BEGIN {
6     if ($ENV{PERL_CORE}) {
7         @INC = '../lib';
8         chdir 't';
9     }
10 }
11
12 {
13     # Silence the deprecation warnings from newgetopt.pl for the purpose
14     # of testing. These tests will be removed along with newgetopt.pl in
15     # the next major release of perl.
16     local $SIG{__WARN__} = sub {
17         if ($_[0] !~ /deprecated/) {
18             print(STDERR @_);
19         }
20     };
21     require "newgetopt.pl";
22 }
23
24 print "1..9\n";
25
26 @ARGV = qw(-Foo -baR --foo bar);
27 $newgetopt::ignorecase = 0;
28 $newgetopt::ignorecase = 0;
29 undef $opt_baR;
30 undef $opt_bar;
31 print "ok 1\n" if NGetOpt ("foo", "Foo=s");
32 print ((defined $opt_foo)   ? "" : "not ", "ok 2\n");
33 print (($opt_foo == 1)      ? "" : "not ", "ok 3\n");
34 print ((defined $opt_Foo)   ? "" : "not ", "ok 4\n");
35 print (($opt_Foo eq "-baR") ? "" : "not ", "ok 5\n");
36 print ((@ARGV == 1)         ? "" : "not ", "ok 6\n");
37 print (($ARGV[0] eq "bar")  ? "" : "not ", "ok 7\n");
38 print (!(defined $opt_baR)  ? "" : "not ", "ok 8\n");
39 print (!(defined $opt_bar)  ? "" : "not ", "ok 9\n");