Parent Directory | Revision Log
r1433@llin: dpavlin | 2007-10-31 22:48:02 +0100 HUGE swiping changes to implement new testing architecture based on all new WebPAC::Test module which makes test writing a joy
1 | dpavlin | 949 | package WebPAC::Test; |
2 | use Exporter 'import'; | ||
3 | @EXPORT = qw/ | ||
4 | $debug | ||
5 | $abs_path | ||
6 | %LOG | ||
7 | |||
8 | dump | ||
9 | abs_path | ||
10 | read_file write_file | ||
11 | |||
12 | dies_ok throws_ok | ||
13 | /; | ||
14 | |||
15 | sub BEGIN { | ||
16 | |||
17 | use Cwd qw/abs_path/; | ||
18 | use File::Slurp; | ||
19 | use Getopt::Long; | ||
20 | use Data::Dump qw/dump/; | ||
21 | use Test::Exception; | ||
22 | |||
23 | use lib 'lib'; | ||
24 | use blib; | ||
25 | |||
26 | our $debug = 0; | ||
27 | |||
28 | GetOptions( | ||
29 | "debug+", \$debug | ||
30 | ); | ||
31 | |||
32 | warn '# BEGIN' if $debug; | ||
33 | |||
34 | our $abs_path = abs_path($0); | ||
35 | $abs_path =~ s#/[^/]*$#/#; #vim | ||
36 | warn "# abs_path: $abs_path" if $debug; | ||
37 | |||
38 | our %LOG = ( | ||
39 | debug => $debug, | ||
40 | no_log => $debug ? 0 : 1, | ||
41 | ); | ||
42 | } | ||
43 | |||
44 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |