Commit | Line | Data |
505f3f16 |
1 | # Before `make install' is performed this script should be runnable with |
2 | # `make test'. After `make install' it should work as `perl test.t' |
3 | |
4 | ######################### We start with some black magic to print on failure. |
5 | |
a2a978ac |
6 | BEGIN { |
49afa5f6 |
7 | unless (eval "require Socket") { |
8 | print "1..0 \# Skip: no Socket\n"; |
9 | exit; |
10 | } |
a2a978ac |
11 | } |
12 | |
505f3f16 |
13 | use Test; |
14 | BEGIN { plan tests => 1; $loaded = 0} |
15 | END { ok $loaded;} |
16 | |
17 | # Just make sure everything compiles |
18 | use Net::Ping; |
19 | |
20 | $loaded = 1; |
21 | |
22 | ######################### End of black magic. |
23 | |
24 | # Insert your test code below (better if it prints "ok 13" |
25 | # (correspondingly "not ok 13") depending on the success of chunk 13 |
26 | # of the test code): |