… | |
… | |
20 | for test in 01 02 03 04 05 07 09; do |
20 | for test in 01 02 03 04 05 07 09; do |
21 | set -- t/"$test"_*.t |
21 | set -- t/"$test"_*.t |
22 | t=${1#t/} |
22 | t=${1#t/} |
23 | <t/"$t" \ |
23 | <t/"$t" \ |
24 | sed -e "s/.*require AnyEvent::Impl::Perl.*/\\ |
24 | sed -e "s/.*require AnyEvent::Impl::Perl.*/\\ |
|
|
25 | 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) }\\ |
26 | 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 | BEGIN { eval q{use $module;1} or ((print qq{1..0 # SKIP $module not loadable\\\\n}), exit 0) }\\ |
27 | $extra\\ |
28 | $extra\\ |
28 | /" \ |
29 | /" \ |
29 | >t/"$base"_$t |
30 | >t/"$base"_$t |
30 | done |
31 | done |
31 | done |
32 | done |
32 | |
33 | |
33 | ( |
34 | if false; then |
|
|
35 | ( |
34 | grep -v ^t/6._ MANIFEST |
36 | grep -v ^t/6._ MANIFEST |
35 | for t in t/6?_*; do |
37 | for t in t/6?_*; do |
36 | echo $t |
38 | echo $t |
37 | done |
39 | done |
38 | ) >MANIFEST~ && mv MANIFEST~ MANIFEST |
40 | ) >MANIFEST~ && mv MANIFEST~ MANIFEST |
|
|
41 | fi |