diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-01-02 21:38:46 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-01-02 21:38:46 +0000 |
| commit | 152fc563c642a6e32dcef13753cc3762dea710f1 (patch) | |
| tree | d2a9edcdb5fadc5b6339ab3bb08a6e4dfb3f57c2 /challenge-076/james-smith/perl | |
| parent | 233b172f74dd306cbc79129f40399c259ec1fa20 (diff) | |
| download | perlweeklychallenge-club-152fc563c642a6e32dcef13753cc3762dea710f1.tar.gz perlweeklychallenge-club-152fc563c642a6e32dcef13753cc3762dea710f1.tar.bz2 perlweeklychallenge-club-152fc563c642a6e32dcef13753cc3762dea710f1.zip | |
added files
Diffstat (limited to 'challenge-076/james-smith/perl')
| -rw-r--r-- | challenge-076/james-smith/perl/ch-1.pl | 22 | ||||
| -rw-r--r-- | challenge-076/james-smith/perl/ch-2.pl | 22 |
2 files changed, 44 insertions, 0 deletions
diff --git a/challenge-076/james-smith/perl/ch-1.pl b/challenge-076/james-smith/perl/ch-1.pl new file mode 100644 index 0000000000..2348c8b946 --- /dev/null +++ b/challenge-076/james-smith/perl/ch-1.pl @@ -0,0 +1,22 @@ +#!/usr/local/bin/perl + +use strict; + +use warnings; +use feature qw(say); +use Test::More; +use Benchmark qw(cmpthese timethis); +use Data::Dumper qw(Dumper); + +my @TESTS = ( + [ 0, 1 ], +); + +is( my_function($_->[0]), $_->[1] ) foreach @TESTS; + +done_testing(); + +sub my_function { + return 1; +} + diff --git a/challenge-076/james-smith/perl/ch-2.pl b/challenge-076/james-smith/perl/ch-2.pl new file mode 100644 index 0000000000..2348c8b946 --- /dev/null +++ b/challenge-076/james-smith/perl/ch-2.pl @@ -0,0 +1,22 @@ +#!/usr/local/bin/perl + +use strict; + +use warnings; +use feature qw(say); +use Test::More; +use Benchmark qw(cmpthese timethis); +use Data::Dumper qw(Dumper); + +my @TESTS = ( + [ 0, 1 ], +); + +is( my_function($_->[0]), $_->[1] ) foreach @TESTS; + +done_testing(); + +sub my_function { + return 1; +} + |