[PATCH] vms/test.com -- skip tty tests when not interactive

This goes in after Dr. Schwern's recent MACROectomy.  It avoids test 
failures when running the test suite in a batch job.

--- vms/test.com;-1     Fri Dec  7 23:20:53 2001
+++ vms/test.com        Fri Dec  7 23:22:58 2001
@@ -53,6 +53,7 @@
 $   testdir = "Directory/NoHead/NoTrail/Column=1"
 $   PerlShr_filespec = f$parse("Sys$Disk:[-]''dbg'PerlShr''exe'")
 $   Define 'dbg'Perlshr 'PerlShr_filespec'
+$   if f$mode() .nes. "INTERACTIVE" then Define PERL_SKIP_TTY_TEST 1
 $   MCR Sys$Disk:[]Perl. "-I[-.lib]" - "''p3'" "''p4'" "''p5'" "''p6'"
 $   Deck/Dollar=$$END-OF-TEST$$
 #

-- 
________________________________________
Craig A. Berry
mailto:craigberry@mac.com

"... getting out of a sonnet is much more
 difficult than getting in."
                 Brad Leithauser

• [PATCH] vms/test.com -- skip tty tests when not interactive by Craig A. Berry