1#! perl 2 3# Verify that loading Getopt::Long::Parser also loads Getopt::Long. 4 5BEGIN { 6 if( $ENV{PERL_CORE} ) { 7 chdir 't'; 8 @INC = ('../lib', 'lib'); 9 } 10 else { 11 unshift @INC, 't/lib'; 12 } 13} 14 15use strict; 16use warnings; 17use Test::More tests => 3; 18 19use_ok("Getopt::Long::Parser"); 20 21# Getopt::Long should have been loaded as well. 22ok( defined $Getopt::Long::VERSION, 23 "Getopt::Long::Parser loads Getopt::Long" ); 24 25# Verify version match. 26is( $Getopt::Long::VERSION, $Getopt::Long::Parser::VERSION, 27 "Parser version matches" ); 28