From 1326660cc755c7a7e5b7c542280e421082bd47ae Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Fri, 6 Jul 2001 09:29:36 +0000
Subject: Added leading zero to file modes passed to [testchmod] to work around
 fault in HPUX strtol() which ignores the base parameter [Bug #438808]

---
 ChangeLog        |  6 ++++++
 tests/cmdAH.test | 12 ++++++------
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 438325c..da16a27 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-07-06  Donal K. Fellows  <fellowsd@cs.man.ac.uk>
+
+	* tests/cmdAH.test: Added leading zero to file modes to work
+	around fault in HPUX strtol() which ignores the base parameter
+	[Bug #438808]
+
 2001-07-05  Mo DeJong  <mdejong@redhat.com>
 
 	* win/Makefile.in: Subst DEPARG directly instead
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 03e76eb..156e1fd 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: cmdAH.test,v 1.12 2000/10/06 21:10:51 hobbs Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.13 2001/07/06 09:29:36 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -1010,11 +1010,11 @@ makeDirectory dir.file
 test cmdAH-16.1 {Tcl_FileObjCmd: readable} {
     list [catch {file readable a b} msg] $msg
 } {1 {wrong # args: should be "file readable name"}}
-testchmod 444 gorp.file
+testchmod 0444 gorp.file
 test cmdAH-16.2 {Tcl_FileObjCmd: readable} {
     file readable gorp.file
 } 1
-testchmod 333 gorp.file
+testchmod 0333 gorp.file
 test cmdAH-16.3 {Tcl_FileObjCmd: readable} {unixOnly notRoot} {
     file reada gorp.file
 } 0
@@ -1024,11 +1024,11 @@ test cmdAH-16.3 {Tcl_FileObjCmd: readable} {unixOnly notRoot} {
 test cmdAH-17.1 {Tcl_FileObjCmd: writable} {
     list [catch {file writable a b} msg] $msg
 } {1 {wrong # args: should be "file writable name"}}
-testchmod 555 gorp.file
+testchmod 0555 gorp.file
 test cmdAH-17.2 {Tcl_FileObjCmd: writable} {notRoot} {
     file writable gorp.file
 } 0
-testchmod 222 gorp.file
+testchmod 0222 gorp.file
 test cmdAH-17.3 {Tcl_FileObjCmd: writable} {
     file writable gorp.file
 } 1
@@ -1049,7 +1049,7 @@ test cmdAH-18.3 {Tcl_FileObjCmd: executable} {unixOnly} {
     # Only on unix will setting the execute bit on a regular file
     # cause that file to be executable.   
     
-    testchmod 775 gorp.file
+    testchmod 0775 gorp.file
     file exe gorp.file
 } 1
 
-- 
cgit v0.12