challenge-004/abigail/t/Check_Program_Size.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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__