Added comment about the bug number to the knownBug constraint.scriptics-sc-1-1core-8-2-3

FossilOrigin-Name: da0ebee4058ccfc26ca68ef4d12fd2d7265846b6

2 files changed, 6 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index 8ce394a..87019e3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,7 +5,8 @@
 	values if the user name is 'root' or the uid is 0.
 
 	* tests/fCmd.test: Added knownBug constraints to fCmd-8.1,
-	fCmd-5.5, and fCmd-6.17; these are potentially dangerous tests.
+	fCmd-5.5, and fCmd-6.17; these are potentially dangerous
+	tests. [Bug: 3881]
 
 1999-12-07  Jeff Hobbs  <hobbs@scriptics.com>
 
diff --git a/tests/fCmd.test b/tests/fCmd.test
index ec4c8b6..e586598 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.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: fCmd.test,v 1.6.4.1 1999/12/14 21:36:44 jenn Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.6.4.2 1999/12/14 23:58:35 jenn Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -359,7 +359,7 @@ test fCmd-5.4 {TclFileDeleteCmd: multiple files} {notRoot} {
     file delete tf1 td1 tf2
     lappend x [file exist tf1] [file exist tf2] [file exist tf3]
 } {1 1 1 0 0 0}
-test fCmd-5.5 {TclFileDeleteCmd: stop at first error} {notRoot unixOrPc knownBug} {
+test fCmd-5.5 {TclFileDeleteCmd: stop at first error} {notRoot unixOrPc knownBug3881} {
     cleanup
     createfile tf1
     createfile tf2
@@ -488,7 +488,7 @@ test fCmd-6.16 {CopyRenameOneFile: TclpCopyRenameOneFile fails} {notRoot} {
     list [catch {file rename -force td2 td1} msg] $msg
 } [subst {1 {error renaming "td2" to "[file join td1 td2]": file already exists}}]
 
-test fCmd-6.17 {CopyRenameOneFile: errno == EINVAL} {notRoot knownBug} {
+test fCmd-6.17 {CopyRenameOneFile: errno == EINVAL} {notRoot knownBug3881} {
     cleanup
     list [catch {file rename -force $root tf1} msg] $msg
 } [subst {1 {error renaming "$root" to "tf1": trying to rename a volume or move a directory into itself}}]
@@ -648,7 +648,7 @@ test fCmd-7.5 {FileForceOption: multiple times through loop} {notRoot} {
 } {1 {no files matched glob patterns "-- -force"}}
 
 test fCmd-8.1 {FileBasename: basename of ~user: argc == 1 && *path == ~} \
-	{unixOnly notRoot knownBug} {
+	{unixOnly notRoot knownBug3881} {
     file mkdir td1
     file attr td1 -perm 040000
     set result [list [catch {file rename ~$user td1} msg] $msg]