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