Print an error message and quit if the regression tests are run as root.

Ticket #1153. (CVS 2366)

FossilOrigin-Name: 9b96078763949a2723482328e7b90c939ba8d2d8

manifest

@@ -1,5 +1,5 @@
-C Fix\sthe\sheader\scomment\son\sexperimental.c.\s(CVS\s2365)
-D 2005-03-02T05:18:30
+C Print\san\serror\smessage\sand\squit\sif\sthe\sregression\stests\sare\srun\sas\sroot.\nTicket\s#1153.\s(CVS\s2366)
+D 2005-03-02T05:18:57
 F Makefile.in 76443a83549d1539105e12d13bd0054a05ab2214
 F Makefile.linux-gcc a9e5a0d309fa7c38e7c14d3ecf7690879d3a5457
 F README a01693e454a00cc117967e3f9fdab2d4d52e9bc1
@@ -86,7 +86,7 @@ F tclinstaller.tcl 046e3624671962dc50f0481d7c25b38ef803eb42
 F test/all.test 7f0988442ab811dfa41793b5b550f5828ce316f3
 F test/alter.test 3a20ce14c3989f7e2e75da50797065c2e56f838b
 F test/alter2.test 8536631ea9cd97480dd548894b361795bf33e9cf
-F test/attach.test 5147d531ca5fc5c2539fd20ce3b07a00420e1fbb
+F test/attach.test 3c951c822047854fd6c2f1f6ad7c0ad82c7aa90b
 F test/attach2.test 6f3a3a3a7f5be40388dd4d805e0e0712718dca9d
 F test/attach3.test c05c70b933afbde0901dab9da3e66ee842c09f38
 F test/auth.test b24d12de3a6ba49237216429f8dc672a8a52b342
@@ -274,7 +274,7 @@ F www/tclsqlite.tcl e73f8f8e5f20e8277619433f7970060ab01088fc
 F www/vdbe.tcl 095f106d93875c94b47367384ebc870517431618
 F www/version3.tcl 092a01f5ef430d2c4acc0ae558d74c4bb89638a0
 F www/whentouse.tcl 3e522a06ad41992023c80ca29a048ae2331ca5bd
-P 957333a7b203373e89030766f693e691f049c66a
-R de08cad749f91bf60ab4a93caec44b68
+P 0c4d2b11c922b41d0e03bfbd885dfdf52ce7ccab
+R 6a309e6f1333a571f2b08c8b0dcd5d4b
 U drh
-Z ee857b39a62988f2b11ca55bd4ded201
+Z 03a22f6b6cd85be716988d11a4912ae8

manifest.uuid

@@ -1 +1 @@
-0c4d2b11c922b41d0e03bfbd885dfdf52ce7ccab
+9b96078763949a2723482328e7b90c939ba8d2d8

test/attach.test

@@ -12,7 +12,7 @@
 # focus of this script is testing the ATTACH and DETACH commands
 # and related functionality.
 #
-# $Id: attach.test,v 1.37 2005/01/24 10:26:00 danielk1977 Exp $
+# $Id: attach.test,v 1.38 2005/03/02 05:18:57 drh Exp $
 #
 
 set testdir [file dirname $argv0]
@@ -674,6 +674,11 @@ if {$tcl_platform(platform)=="unix"} {
     dbx eval {CREATE TABLE t1(a,b,c)}
     dbx close
     file attributes cannot-read -permission 0000
+    if {[file writable cannot-read]} {
+      puts "\n**** Tests do not work when run as root ****"
+      file delete -force cannot-read
+      exit 1
+    }
     catchsql {
       ATTACH DATABASE 'cannot-read' AS noread;
     }