test: Use GetOpt::Long for argument parsing

Simplify argument parsing by using a core perl library for parsing
arguments.
This commit is contained in:
Jaeden Amero
2018-11-02 17:30:24 +00:00
parent 5758d8cb9c
commit 4c880e45af
+2 -6
View File
@@ -24,14 +24,10 @@ use strict;
use utf8;
use open qw(:std utf8);
use constant FALSE => 0;
use constant TRUE => 1;
use Getopt::Long;
my $verbose;
my $switch = shift;
if ( defined($switch) && ( $switch eq "-v" || $switch eq "--verbose" ) ) {
$verbose = TRUE;
}
GetOptions( "verbose|v" => \$verbose );
# All test suites = executable files, excluding source files, debug
# and profiling information, etc. We can't just grep {! /\./} because