Revision: | 1.1 |
Committed: | Sun May 25 05:00:03 2008 UTC (16 years, 2 months ago) by root |
Content type: | application/x-troff |
Branch: | MAIN |
CVS Tags: | rel-4_73 |
Log Message: | *** empty log message *** |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.1 | BEGIN { $| = 1; print "1..18\n"; } |
2 | |||
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::LWP | ||
18 | Coro::Select | ||
19 | Coro::Handle | ||
20 | Coro::Socket | ||
21 | Coro::Timer | ||
22 | Coro::Storable | ||
23 | Coro::AnyEvent | ||
24 | )) { | ||
25 | eval "use $module"; | ||
26 | print $@ ? "not " : "", "ok ", ++$idx, " # $module ($@)\n"; | ||
27 | } | ||
28 |