ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/mktest
Revision: 1.4
Committed: Tue Jul 30 23:14:32 2013 UTC (11 years, 4 months ago) by root
Branch: MAIN
CVS Tags: rel-7_05, rel-7_07
Changes since 1.3: +9 -6 lines
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 root 1.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 root 1.2 61_fltk AnyEvent::Impl::FLTK
10 root 1.1 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 root 1.4 BEGIN { $^W = 0 }\\
26 root 1.1 BEGIN { \$ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\\\\n}), exit 0) }\\
27     BEGIN { eval q{use $module;1} or ((print qq{1..0 # SKIP $module not loadable\\\\n}), exit 0) }\\
28     $extra\\
29     /" \
30     >t/"$base"_$t
31     done
32     done
33    
34 root 1.4 if false; then
35     (
36     grep -v ^t/6._ MANIFEST
37     for t in t/6?_*; do
38     echo $t
39     done
40     ) >MANIFEST~ && mv MANIFEST~ MANIFEST
41     fi