diff options
| author | Abigail <abigail@abigail.be> | 2021-02-01 22:52:26 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-03-04 18:57:16 +0100 |
| commit | 04aec5adde93ec92d8f6ce17b849648864a5284a (patch) | |
| tree | 6b1b50908447de3fdfb4017e12032fe96f969214 | |
| parent | 17d17263bfcdfc85ca719911a0141bc5fecae050 (diff) | |
| download | perlweeklychallenge-club-04aec5adde93ec92d8f6ce17b849648864a5284a.tar.gz perlweeklychallenge-club-04aec5adde93ec92d8f6ce17b849648864a5284a.tar.bz2 perlweeklychallenge-club-04aec5adde93ec92d8f6ce17b849648864a5284a.zip | |
Test to compare the size of the program with the size of the (expected) output.
| -rwxr-xr-x | challenge-004/abigail/t/Check_Program_Size.pm | 23 | ||||
| -rw-r--r-- | challenge-004/abigail/t/ctest.ini | 5 |
2 files changed, 27 insertions, 1 deletions
diff --git a/challenge-004/abigail/t/Check_Program_Size.pm b/challenge-004/abigail/t/Check_Program_Size.pm new file mode 100755 index 0000000000..30369444d6 --- /dev/null +++ b/challenge-004/abigail/t/Check_Program_Size.pm @@ -0,0 +1,23 @@ +package Check_Program_Size; + +use 5.032; + +use strict; +use warnings; +no warnings 'syntax'; + +use experimental 'signatures'; +use experimental 'lexical_subs'; + +use Test::More; + +my $output = "t/output-1-1.exp"; + +sub test ($self, %args) { + my $source = $args {source}; + is -s $source, (-s $output) - 1, "Program size"; +} + +1; + +__END__ diff --git a/challenge-004/abigail/t/ctest.ini b/challenge-004/abigail/t/ctest.ini index 110f4abcc4..738fce6d3f 100644 --- a/challenge-004/abigail/t/ctest.ini +++ b/challenge-004/abigail/t/ctest.ini @@ -1,5 +1,5 @@ [names]
-1-1 = Pi, 1485 digits
+1-1 = Pi, 3242 digits
1-2 = Pi, 1978 digits
@@ -12,3 +12,6 @@ skip = Program size is different [1-2/perl]
skip = Program size is different
+
+[challenges/1]
+extra_tests = Check_Program_Size
|