diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2023-08-06 21:22:29 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-08-06 21:22:29 +0100 |
| commit | d011b6dacc0cac0e8ada2bed06aedd2802068462 (patch) | |
| tree | 97e6494606ecf57a4a5246b76bdd56b1a8c2e272 /challenge-228 | |
| parent | e4a1c05ab874de96dcb460e566027820cfa989ff (diff) | |
| parent | 5cc335bba88e3f04edbe6ffda232dfb5aea3d769 (diff) | |
| download | perlweeklychallenge-club-d011b6dacc0cac0e8ada2bed06aedd2802068462.tar.gz perlweeklychallenge-club-d011b6dacc0cac0e8ada2bed06aedd2802068462.tar.bz2 perlweeklychallenge-club-d011b6dacc0cac0e8ada2bed06aedd2802068462.zip | |
Merge pull request #8512 from MatthiasMuth/muthm-228
Challenge 228 small update: Switch perl/ch-2.pl from running benchmarks to running tests.
Diffstat (limited to 'challenge-228')
| -rw-r--r-- | challenge-228/matthias-muth/perl/ch-2.pl | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/challenge-228/matthias-muth/perl/ch-2.pl b/challenge-228/matthias-muth/perl/ch-2.pl index eb22430032..78f0cfa0fc 100644 --- a/challenge-228/matthias-muth/perl/ch-2.pl +++ b/challenge-228/matthias-muth/perl/ch-2.pl @@ -173,18 +173,11 @@ sub empty_array_5( @int ) { } sub empty_array( @int ) { - # $verbose = 1; - my @results = empty_array_1( @int ); - is [ empty_array_2( @int ) ], \@results, "empty_array_2 results are the same"; - is [ empty_array_3a( @int ) ], \@results, "empty_array_3a results are the same"; - is [ empty_array_3b( @int ) ], \@results, "empty_array_3b results are the same"; - is [ empty_array_4( @int ) ], \@results, "empty_array_4 results are the same"; - is [ empty_array_5( @int ) ], \@results, "empty_array_5 results are the same"; - return @results; + return empty_array_5( @int ); } -# run_tests; -# exit 0; +run_tests; +exit 0; use Benchmark qw( :all :hireswallclock ); |