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