Change 17659: Update test script
[email protected] (Chris Nandor) Mon, 29 Jul 2002 15:55:29 -0400
| Newsgroups | perl.perl5.changes.mac |
|---|---|
| Message-ID | <p05111b13b96b4e242ee8@[10.0.1.177]> |
Change 17659 by pudge@pudge-mobile on 2002/07/29 18:19:00 Update test script Affected files ... .... //depot/maint-5.6/macperl/macos/MacPerlTests.cmd#7 edit Differences ... ==== //depot/maint-5.6/macperl/macos/MacPerlTests.cmd#7 (text) ==== Index: macperl/macos/MacPerlTests.cmd --- macperl/macos/MacPerlTests.cmd#6~12575~ Mon Oct 22 11:56:34 2001 +++ macperl/macos/MacPerlTests.cmd Mon Jul 29 11:19:00 2002 @@ -1,18 +1,21 @@ +# Test suite for MacPerl +# [email protected] + echo "# `Date -t` ----- Begin MacPerl tests." echo "" + perl -le 'symlink "::macos:perl", ":perl" unless -e ":perl"' -# :perl -I::lib -e 'for(<:*:*.t>){open my $fh,"<$_";$t=<$fh>=~/(T)/?"-T":" ";$s="$^X -I::lib $t $_"; print qq[echo "$s"\n$s\n]}' + +# weird bug in GUSI for opening file instead of directory +perl -e 'chmod 0666, "TEST"; `rename TEST TEST-OLD`' +# set up environment set -e MACPERL "" set -e PERL5LIB "" -perl -e '`set -e MACPERL_OLD "{{MACPERL}}"` if `echo {{MACPERL}}`' -perl -e '`set -e PERL5LIB_OLD "{{PERL5LIB}}"` if `echo {{PERL5LIB}}`' -perl -e '`set -e MACPERL ""`' -perl -e '`set -e PERL5LIB ""`' -echo "# When finished, execute these lines to restore your ToolServer environment:" -echo "perl -e '`set -e MACPERL "{{MACPERL_OLD}}"` if `echo {{MACPERL_OLD}}`'" -echo "perl -e '`set -e PERL5LIB "{{PERL5LIB_OLD}}"` if `echo {{PERL5LIB_OLD}}`'" -echo "" +set -e PERL_CORE 1 + +# :perl -I::lib -e 'for(<:*:*.t>){open my $fh,"<$_";$t=<$fh>=~/(T)/?"-T":" ";$s="$^X -I::lib $t $_"; print qq[echo "$s"\n$s\n]}' +# create/open file for dumping tests to perl -e 'open F, ">::macos:MacPerlTests.out"' open ::macos:MacPerlTests.out @@ -32,8 +35,12 @@ :perl -I::lib :cmd:elsif.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :cmd:for.t" >> ::macos:MacPerlTests.out :perl -I::lib :cmd:for.t >> ::macos:MacPerlTests.out + +perl -e 'chmod 0666, "TEST-OLD"; `rename TEST-OLD TEST`' echo ":perl -I::lib :cmd:mod.t" >> ::macos:MacPerlTests.out :perl -I::lib :cmd:mod.t >> ::macos:MacPerlTests.out +perl -e 'chmod 0666, "TEST"; `rename TEST TEST-OLD`' + echo ":perl -I::lib :cmd:subval.t" >> ::macos:MacPerlTests.out :perl -I::lib :cmd:subval.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :cmd:switch.t" >> ::macos:MacPerlTests.out @@ -170,8 +177,12 @@ :perl -I::lib :lib:filefind.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :lib:filefunc.t" >> ::macos:MacPerlTests.out :perl -I::lib :lib:filefunc.t >> ::macos:MacPerlTests.out + +perl -e 'chmod 0666, "TEST-OLD"; `rename TEST-OLD TEST`' echo ":perl -I::lib :lib:filehand.t" >> ::macos:MacPerlTests.out :perl -I::lib :lib:filehand.t >> ::macos:MacPerlTests.out +perl -e 'chmod 0666, "TEST"; `rename TEST TEST-OLD`' + echo ":perl -I::lib :lib:filepath.t" >> ::macos:MacPerlTests.out :perl -I::lib :lib:filepath.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :lib:filespec.t" >> ::macos:MacPerlTests.out @@ -190,8 +201,12 @@ :perl -I::lib :lib:gdbm.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :lib:getopt.t" >> ::macos:MacPerlTests.out :perl -I::lib :lib:getopt.t >> ::macos:MacPerlTests.out + +perl -e 'chmod 0666, "TEST-OLD"; `rename TEST-OLD TEST`' echo ":perl -I::lib :lib:glob-basic.t" >> ::macos:MacPerlTests.out :perl -I::lib :lib:glob-basic.t >> ::macos:MacPerlTests.out +perl -e 'chmod 0666, "TEST"; `rename TEST TEST-OLD`' + echo ":perl -I::lib :lib:glob-case.t" >> ::macos:MacPerlTests.out :perl -I::lib :lib:glob-case.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :lib:glob-global.t" >> ::macos:MacPerlTests.out @@ -218,6 +233,8 @@ :perl -I::lib :lib:io_dup.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :lib:io_linenum.t" >> ::macos:MacPerlTests.out :perl -I::lib :lib:io_linenum.t >> ::macos:MacPerlTests.out + +perl -e 'chmod 0666, "TEST-OLD"; `rename TEST-OLD TEST`' echo ":perl -I::lib :lib:io_multihomed.t" >> ::macos:MacPerlTests.out :perl -I::lib :lib:io_multihomed.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :lib:io_pipe.t" >> ::macos:MacPerlTests.out @@ -418,6 +435,8 @@ :perl -I::lib :op:mkdir.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :op:my.t" >> ::macos:MacPerlTests.out :perl -I::lib :op:my.t >> ::macos:MacPerlTests.out + +perl -e 'chmod 0666, "TEST"; `rename TEST TEST-OLD`' echo ":perl -I::lib :op:my_stash.t" >> ::macos:MacPerlTests.out :perl -I::lib :op:my_stash.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :op:nothr5005.t" >> ::macos:MacPerlTests.out @@ -488,8 +507,12 @@ :perl -I::lib :op:substr.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :op:sysio.t" >> ::macos:MacPerlTests.out :perl -I::lib :op:sysio.t >> ::macos:MacPerlTests.out + +perl -e 'chmod 0666, "TEST-OLD"; `rename TEST-OLD TEST`' echo ":perl -I::lib -T :op:taint.t" >> ::macos:MacPerlTests.out :perl -I::lib -T :op:taint.t >> ::macos:MacPerlTests.out +perl -e 'chmod 0666, "TEST"; `rename TEST TEST-OLD`' + echo ":perl -I::lib :op:tie.t" >> ::macos:MacPerlTests.out :perl -I::lib :op:tie.t >> ::macos:MacPerlTests.out echo ":perl -I::lib :op:tiearray.t" >> ::macos:MacPerlTests.out @@ -567,8 +590,11 @@ echo ":perl -I::lib :run:runenv.t" >> ::macos:MacPerlTests.out :perl -I::lib :run:runenv.t >> ::macos:MacPerlTests.out -:perl -I::lib ::macos:MacPerlTests.plx ::macos:MacPerlTests.out >> ::macos:MacPerlTests.out +echo "" +echo "# `Date -t` ----- End MacPerl tests." +echo "" +# we know some things will fail echo "The following tests mostly work, but fail because of known" echo "IO problems. Feel free to run them, and note the failures." echo "These tests are known to fail. Run if you want to, but beware" @@ -590,3 +616,7 @@ echo ":perl -I::lib :pragma:warnings.t >> ::macos:MacPerlTests.out" echo "" echo "# `Date -t` ----- End MacPerl tests." + +# see how we did +:perl -I::lib ::macos:MacPerlTests.plx ::macos:MacPerlTests.out >> ::macos:MacPerlTests.out +save ::macos:MacPerlTests.out End of Patch. -- Chris Nandor [email protected] http://pudge.net/ Open Source Development Network [email protected] http://osdn.com/