From fa9d7d5527b5ceee775c3ee7e50163781faa7039 Mon Sep 17 00:00:00 2001 From: Abigail Date: Wed, 11 Nov 2020 18:57:09 +0100 Subject: Ability to not run all the tests. The repeatable new --language (or --lang) option sets the language(s) we want to test. If no languages are given, we test with all of them. Additional arguments restrict which challenges are being tested. --- challenge-086/abigail/test.pl | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'challenge-086') diff --git a/challenge-086/abigail/test.pl b/challenge-086/abigail/test.pl index 924c50714d..930fc7938e 100755 --- a/challenge-086/abigail/test.pl +++ b/challenge-086/abigail/test.pl @@ -20,7 +20,8 @@ use DBI; use Getopt::Long; -GetOptions 'slow' => \my $run_slow_tests, +GetOptions 'slow' => \my $run_slow_tests, + 'lang|language=s' => \my @languages, ; @@ -56,12 +57,15 @@ my %languages = ( my $perl_exe = $languages {Perl} {exe}; -foreach my $challenge (1, 2) { +@languages = sort keys %languages if !@languages; +my @challenges = @ARGV ? @ARGV : (1, 2); + +foreach my $challenge (@challenges) { my ($dbh, $query, $tables_info); # Only for SQL tests. my @inputs = or next; subtest "Challenge $challenge" => sub { - foreach my $language (sort keys %languages) { + foreach my $language (@languages) { my $info = $languages {$language}; my $exe = $$info {exe}; my $ext = $$info {ext}; -- cgit