lib/Getopt/Std.t: Why does it include tests for Getopt::Long?

Getopt::Std is maintained by Perl 5 Porters; in Porting/Maintainers.pl, 
"upstream" is "blead".

Getopt::Long is maintained on CPAN by Johan Vromans; "upstream" is "cpan".

I would therefore expect *not* to find tests for Getopt::Long inside a 
file whose objective is testing Getopt::Std.  However, lib/Getopt/Std.t 
does, in fact, have a 3-unit-test section devoted to testing Getopt::Long.

#####
  55 # Then try the Getopt::Long module
  56
  57 use Getopt::Long;
  58
  59 @ARGV = qw(--help --file foo --foo --nobar --num=5 -- file);
  60
  61 our ($HELP, $FILE, $FOO, $BAR, $NO);
  62
  63 ok( GetOptions(
  64     'help'   => \$HELP,
  65     'file:s' => \$FILE,
  66     'foo!'   => \$FOO,
  67     'bar!'   => \$BAR,
  68     'num:i'  => \$NO,
  69     ),
  70     'Getopt::Long::GetOptions succeeded'
  71 );
  72 is( "@ARGV", 'file', 'options removed from @ARGV (5)' );
  73 ok( $HELP && $FOO && !$BAR && $FILE eq 'foo' && $NO == 5, 'options 
set' );
#####

Assuming that this part of Getopt::Long's functionality is tested in its 
own test suite, can we/should we remove this part of lib/Getopt/Std.t?

Modest benefit:  enabling us to see more clearly what part of 
lib/Getopt/Std.pm's code is covered by lib/Getopt/Std.t.

Thank you very much.
Jim Keenan

• lib/Getopt/Std.t: Why does it include tests for Getopt::Long? by James E Keenan
• Re: lib/Getopt/Std.t: Why does it include tests for Getopt::Long? by Dave Mitchell