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 | 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 |