ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/mktest
(Generate patch)

Comparing AnyEvent/mktest (file contents):
Revision 1.3 by root, Wed Apr 4 02:18:30 2012 UTC vs.
Revision 1.5 by root, Thu Aug 28 15:17:57 2014 UTC

… …
1365_event AnyEvent::Impl::Event 1365_event AnyEvent::Impl::Event
1466_ioasync AnyEvent::Impl::IOAsync 1466_ioasync AnyEvent::Impl::IOAsync
1567_tk AnyEvent::Impl::Tk 1567_tk AnyEvent::Impl::Tk
1668_poe AnyEvent::Impl::POE $^W = 0; 1668_poe AnyEvent::Impl::POE $^W = 0;
1769_ev AnyEvent::Impl::EV 1769_ev AnyEvent::Impl::EV
1870_uv AnyEvent::Impl::UV
18EOF 19EOF
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
31done 33done
32 34
33( 35if false; then
36 (
34 grep -v ^t/6._ MANIFEST 37 grep -v ^t/6._ MANIFEST
35 for t in t/6?_*; do 38 for t in t/6?_*; do
36 echo $t 39 echo $t
37 done 40 done
38) >MANIFEST~ && mv MANIFEST~ MANIFEST 41 ) >MANIFEST~ && mv MANIFEST~ MANIFEST
42fi

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines