nicholas clark suqhccl4org fri nov 16 2007 114726am 0600 andy lester wrote nov 16 2007 1146 nicholas clark wrote 2 fix isnt released th 264 distribution cpan 3 stable release perl dont want shipping something isnt approved version dual life module ideally would released version dual life module ok lets diff whats 265 blead ill release 266 ship 266 think appended seems already vms fixes question changes developer release testharness pod testharnessstraps pod refactoring remove parentheses believe would give result bdeparse testharnessutil two changes all_in 1 skip files logic optimised 2 new parameter visited_files tfailuret adds c tproveswitchest adds lot skipped perl core prove adds 4 flags strap w w x believe nicholas clark homenickp4perlperllibtestharnesspm sat oct 7 022636 2006 testharness265_02libtestharnesspm sun aug 26 055216 2007 3411 3411 testharness run perl standard test head1 version version 264 version 265_02 cut version 264 version 265_02 backwards compatibility exportable variable names verbose verbose 2829 2829 information written curre filehandle usually c filehandle given c parameter optional returns list two values ctotal cfailed describing results ctotal hash ref summary tests run keys values returns list three values ctotal cfailed ctodo describing results ctotal hash ref summary tests run keys values bonus number individual todo tests unexpectedly passed max number individual tests ran 3017 3017 keys values c totalbad 0 c totalmax 0 youve got successful test cfailed hash ref test scripts failed key cfailed hashref test scripts failed key name test script value another hash representing script failed keys 3146 3148 script failed keys th cfailed empty everything passed ctodo hashref todo tests passed anyway cut sub execute_tests 11577 11597 current maintainer andy lester c andy lester c homenickp4perlperllibtestharness changes diff rpu homenickp4perlperllibtestharnessresultspm testharness265_02libtestharnessresultspm homenickp4perlperllibtestharnessresultspm wed feb 21 015429 2007 testharness265_02libtestharnessresultspm sun aug 26 055930 2007 1188 1188 sub ok return selfok 0 sub set_exit self shift sub set_exit self shift eq vms eval use vmsish qstatus diff rpu homenickp4perlperllibtestharnessstrapspm testharness265_02libtestharnessstrapspm homenickp4perlperllibtestharnessstrapspm thu aug 30 141924 2007 testharness265_02libtestharnessstrapspm sun aug 26 062831 2007 37 37 package testharnessstraps use strict use vars qwversion version 026_01 version 026 use config use testharnessassert 446 449 testharnessstraps detailed analysi b interface subject change incompatible ways otherwise stable work underway testharness 30 away straps entirely testharness limited printing results makes analysis test results difficult anything human make easier programs work test results provide 3558 3589 sub _command self shift return envharness_perl defined envharness_perl return qqx self_is_win32 x w return qqx x x quote interpreter spaces filename isnt quoted return qqx x x return x 4796 4837 sub _filtered_inc local envperl5lib inc perl le print join qqn inc chomp inc return inc return cacheperl diff rpu homenickp4perlperllibtestharnessutilpm testharness265_02libtestharnessutilpm homenickp4perlperllibtestharnessutilpm sat oct 7 022631 2006 testharness265_02libtestharnessutilpm sun aug 26 052905 2007 126 1211 use vars qw isa export export_ok export export_ok qw all_in shuffle blibdirs use vars qw skip_files begin skip_files map _1 filespecupdir filespeccurdir svn cvs head1 name testharnessutil utility functions testharness 426 4712 starting point search defaults flag say whether recurse default true item visited_files hashref tracking files visited useful b parm true recursing directories containing circular symlinks back cut 5717 6821 sub all_in hits start parmsstart parmsvisited_files local dh opendir dh start files sort readdir dh closedir dh file files next file eq filespecupdir file eq filespeccurdir next file eq svn next file eq cvs next skip_filesfile currfile filespeccatfile start file currfile dev ino lstat currfile next dev parmsvisited_filesdev ino _ push hits all_in parms start currfile parmsrecurse else 987 1137 sub shuffle head2 blibdir head2 blibdirs finds blib directories stolen directly blibpm homenickp4perlperllibtestharness bin homenickp4perlperllibtestharness diff rpu homenickp4perlperllibtestharnesstfailuret testharness265_02tfailuret homenickp4perlperllibtestharnesstfailuret tue jul 18 033114 2006 testharness265_02tfailuret sun aug 26 061410 2007 86 87 begin else unshift inc tlib delete envharness_verbose use strict testharness265_02t lib testharness265_02t podt diff rpu homenickp4perlperllibtestharnesstproveswitchest testharness265_02tproveswitchest homenickp4perlperllibtestharnesstproveswitchest wed aug 15 105557 2007 testharness265_02tproveswitchest thu may 17 060000 2007 1161 11126 begin use strict use filespec use testmore plan skip_all adapted perl core envperl_core plan skip_all installing prove e tskipprove plan skip_all adapted perl core envperl_core plan skip_all installing prove e tskipprove plan tests 8 blib filespeccatfile filespeccurdir blib blib_lib filespeccatfile blib lib blib_arch filespeccatfile blib arch prove filespeccatfile blib script prove work around cygwin bug remove perl bug 30952 ever gets fixed httprtperlorgrt3ticketdisplayhtmlid30952 plan skip_all skipping cygwin bug cygwini plan tests 11 blib filespeccatfile filespeccurdir blib blib_lib filespeccatfile blib lib blib_arch filespeccatfile blib arch prove filespeccatfile blib script prove prove x prove capital_taint local envprove_switches actual qxprove ifirst second ithird tvdb expected testharnessswitches iblib_arch iblib_lib ifirst isecond ithirdn is_deeply actual expected capital taint flags ok output_matches qxprove ifirst second ithird tvdb testharnessswitches w iblib_arch iblib_lib ifirst isecond ithird capital taint flags ok lowercase_taint local envprove_switches actual qxprove dd ifirst second ithird vb expected testharnessswitches iblib_arch iblib_lib ifirst isecond ithirdn is_deeply actual expected lowercase taint ok output_matches qxprove dd ifirst second ithird vb testharnessswitches w iblib_arch iblib_lib ifirst isecond ithird lowercase taint ok prove_switches local envprove_switches dvb fark actual qxprove ibork dd expected testharnessswitches iblib_arch iblib_lib ifark iborkn is_deeply actual expected prove_switches ok output_matches qxprove ibork dd testharnessswitches w iblib_arch iblib_lib ifark ibork prove_switches ok prove_switches_l actual qxprove l ibongo dd expected testharnessswitches ilib ibongon is_deeply actual expected prove_switches ok output_matches qxprove l ibongo dd testharnessswitches w ilib ibongo l ok prove_switches_lb actual qxprove lb dd expected testharnessswitches ilib iblib_arch iblib_libn is_deeply actual expected prove_switches ok output_matches qxprove lb dd testharnessswitches w ilib iblib_arch iblib_lib l b ok prove_version also checks prove version sync testharnesss version local undef use_ok testharness thv testharnessversion actual qxprove version scalar actual 1 1 line returned like actual0 qqqprove vthv using testharness vthv perl v5e pv sprintf vd v output_matches qxprove version prove vthv using testharness vthv perl vpv version ok prove_switches_none output_matches qxprove dd testharnessswitches w ok wno switches prove_switches_warn output_matches qxprove w dd testharnessswitches w prove w ok prove_switches_really_warn output_matches qxprove w dd testharnessswitches w w prove w ok prove_switches_no_warn output_matches qxprove x dd testharnessswitches w x prove x ok sub output_matches actual shift expected shift msg shift chomp actual chomp expected local testbuilderlevel testbuilderlevel 1 return is_deeply actual expected msg testharness265_02t sampletests diff rpu homenickp4perlperllibtestharnessttestharnesst testharness265_02ttestharnesst homenickp4perlperllibtestharnessttestharnesst sat oct 7 022811 2006 testharness265_02ttestharnesst sun aug 26 061410 2007 86 87 begin else unshift inc tlib delete envharness_verbose use strict 277 287 isvms eq vms vms uses native posix exit codes macperls exit codes broken die_estat isvms 44 die_estat isvms 44 ismacperl 0 1 diff rpu homenickp4perlperllibtestharnessbinprove testharness265_02binprove homenickp4perlperllibtestharnessbinprove sat oct 7 022614 2006 testharness265_02binprove sun aug 26 053333 2007 107 107 use podusage 112 use filespec use vars qw version version 264 version 265_02 shuffle 0 dry 0 187 187 blib 0 lib 0 recurse 0 includes switches switches w allow cuddling paths argv map 12 _ argv 4014 4015 getoptions perls envharness_perl rrecurse recurse sshuffle shuffle straps envharness_strap_class sub unshift switches always want front sub unshift switches always want front w sub push switches w w sub push switches w straps envharness_strap_class timer testharnesstimer vverbose testharnessverbose vversion sub print_version exit w sub default w sub push switches w x sub push switches x exit 1 envtest_verbose 1 testharnessverbose 1326 1339 prove options filesdirectories timer print elapsed time test file v verbose display standard output test scripts running v version display version info w enable many useful warnings default w enable warnings x disable warnings singlecharacter options may stacked default options may set specifying prove_switches environment variable 2309 2347 descends subdirectories dire sometimes tests accidentally dependent tests run switch shuffle tests run prior running thus ensuring hidden dependencies test order likely revealed author hopes run algorithm preceding sentence see produce something slightly less awkward order likely revealed head2 strap 2606 26221 test_verbose case tests rely display version info head2 w runs tests warnings turned using perls cw switch default behavior head2 w enables warnings regardless c using w flag see l details head2 x disables warnings regardless c using x flag see l details head1 bugs please use cpan bug ticketing system l 2827 2997 andy lester c head1 copyright copyright 20042006 andy lester c copyright 20042007 andy lester c program free software redistribute andor modify terms perl fri 08 aug 2008 084606 0000 testharnessstraps 510 code freeze duallife modules