Revision: | 1.2 |
Committed: | Thu May 29 18:05:53 2008 UTC (16 years ago) by root |
Content type: | application/x-troff |
Branch: | MAIN |
CVS Tags: | rel-4_74 |
Changes since 1.1: | +1 -3 lines |
Log Message: | 4.74 |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.2 | BEGIN { $| = 1; print "1..16\n"; } |
2 | root | 1.1 | |
3 | my $idx; | ||
4 | |||
5 | for my $module (qw( | ||
6 | Coro | ||
7 | Coro::State | ||
8 | Coro::Signal | ||
9 | Coro::Semaphore | ||
10 | Coro::SemaphoreSet | ||
11 | Coro::Channel | ||
12 | Coro::Specific | ||
13 | Coro::RWLock | ||
14 | Coro::MakeMaker | ||
15 | Coro::Debug | ||
16 | Coro::Util | ||
17 | Coro::Handle | ||
18 | Coro::Socket | ||
19 | Coro::Timer | ||
20 | Coro::Storable | ||
21 | Coro::AnyEvent | ||
22 | )) { | ||
23 | eval "use $module"; | ||
24 | print $@ ? "not " : "", "ok ", ++$idx, " # $module ($@)\n"; | ||
25 | } | ||
26 |