ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/mktest
Revision: 1.2
Committed: Fri Aug 26 18:08:07 2011 UTC (13 years, 2 months ago) by root
Branch: MAIN
CVS Tags: rel-6_1, rel-6_14, rel-6_11, rel-6_12, rel-6_13, rel-6_02
Changes since 1.1: +1 -1 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 #!/bin/sh
2
3 # this creates duplicate tests for each event loop, and then deletes those
4 # that fail due to bugs in them.
5 # also patches MANIFEST.
6
7 (
8 cat <<EOF
9 61_fltk AnyEvent::Impl::FLTK
10 62_cocoa AnyEvent::Impl::Cocoa
11 63_eventlib AnyEvent::Impl::EventLib
12 64_glib AnyEvent::Impl::Glib
13 65_event AnyEvent::Impl::Event
14 66_ioasync AnyEvent::Impl::IOAsync
15 67_tk AnyEvent::Impl::Tk
16 68_poe AnyEvent::Impl::POE $^W = 0;
17 69_ev AnyEvent::Impl::EV
18 EOF
19 ) | while read base module extra; do
20 for test in 01 02 03 04 05 07 09; do
21 set -- t/"$test"_*.t
22 t=${1#t/}
23 <t/"$t" \
24 sed -e "s/.*require AnyEvent::Impl::Perl.*/\\
25 BEGIN { \$ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\\\\n}), exit 0) }\\
26 BEGIN { eval q{use $module;1} or ((print qq{1..0 # SKIP $module not loadable\\\\n}), exit 0) }\\
27 $extra\\
28 /" \
29 >t/"$base"_$t
30 done
31 done
32
33 rm -f t/63_eventlib_02_signals.t
34 rm -f t/63_eventlib_03_child.t
35 rm -f t/63_eventlib_07_io.t
36 rm -f t/63_eventlib_09_multi.t
37
38 (
39 grep -v ^t/6._ MANIFEST
40 for t in t/6?_*; do
41 echo $t
42 done
43 ) >MANIFEST~ && mv MANIFEST~ MANIFEST