1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/local/bin/perl -w
# Copyright 1999-2019, Paul Johnson (paul@pjcj.net)
# This software is free. It is licensed under the same terms as Perl itself.
# The latest version of this software should be available from my homepage:
# http://www.pjcj.net
# Version 1.22 - 15th November 2019
# This is really just a test of the lifelines testing mechanism, but it
# also serves as a very basic lifelines test.
use strict;
use lib -d "t" ? "t" : "..";
use Lines;
use File::Spec;
my $report = File::Spec->catfile((-d "t" ? ("t/") : ()), "lines", "namefreq");
Lines->test(tests => 84,
report => $report,
lines_report => "$report.l",
report_command => $ENV{lines} ? "$report.l\n" : undef,
generate => $ENV{generate},
perl_program => "$report.plx",
perl_report => "$report.p",
perl_command => "");
|
