diff options
| author | Matthias Muth <matthias.muth@gmx.de> | 2023-08-06 21:59:46 +0200 |
|---|---|---|
| committer | Matthias Muth <matthias.muth@gmx.de> | 2023-08-06 21:59:46 +0200 |
| commit | 5cc335bba88e3f04edbe6ffda232dfb5aea3d769 (patch) | |
| tree | c3ff6af63c2ec9e48e339e8203b54fd726be7404 | |
| parent | e2133368f6dcc0c49565fd4919148e5c1995c23e (diff) | |
| download | perlweeklychallenge-club-5cc335bba88e3f04edbe6ffda232dfb5aea3d769.tar.gz perlweeklychallenge-club-5cc335bba88e3f04edbe6ffda232dfb5aea3d769.tar.bz2 perlweeklychallenge-club-5cc335bba88e3f04edbe6ffda232dfb5aea3d769.zip | |
perl/ch-2.pl: Switch from running benchmarks to running tests.
| -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 ); |