| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
# Before `make install' is performed this script should be runnable with |
|
2
|
|
|
|
|
|
|
# `make test'. After `make install' it should work as `perl test.pl' |
|
3
|
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
######################### |
|
5
|
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
# change 'tests => 1' to 'tests => last_test_to_print'; |
|
7
|
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
use Test; |
|
9
|
|
|
|
|
|
|
BEGIN { plan tests => 1 }; |
|
10
|
|
|
|
|
|
|
use DesignPattern::Factory; |
|
11
|
|
|
|
|
|
|
ok(1); # If we made it this far, we're ok. |
|
12
|
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
######################### |
|
14
|
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
# Insert your test code below, the Test module is use()ed here so read |
|
16
|
|
|
|
|
|
|
# its man page ( perldoc Test ) for help writing this test script. |
|
17
|
|
|
|
|
|
|
|