Re: syscalls test on linux with su

[Sam S. <sd...@gn...>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Reini Urban wrote:
|
| Wrong linux test, latest cvs, linux fc1:
| I logged in as root, and then su - username
|
| finished   4 files:               2 errors out of     445 tests
|   1             i18n/test.tst:    0 errors out of      10 tests
|   2         syscalls/test.tst:    2 errors out of      97 tests
|   3           regexp/test.tst:    0 errors out of     308 tests
|   4         readline/test.tst:    0 errors out of      30 tests
| Bye.
| make: *** [base-mod-check] Error 1
| -bash-2.05b$ less syscalls/test.erg
| Form: (= (GETUID) (USER-INFO-UID (USER-INFO :DEFAULT)))
| CORRECT: T
| CLISP  : NIL
|
|
| Form: (= (GETGID) (USER-INFO-GID (USER-INFO :DEFAULT)))
| CORRECT: T
| CLISP  : NIL
|
| [2]> (GETGID)
| 500
| [3]> (USER-INFO-GID (USER-INFO :DEFAULT))
| 0
| [4]> (GETUID) (USER-INFO-UID (USER-INFO :DEFAULT))
| 500
| [5]>
| 0

does this help?

- --- test.tst.~1.49.~	2008-05-08 15:58:44.000000000 -0400
+++ test.tst	2008-05-13 09:56:10.000167000 -0400
@@ -117,8 +117,8 @@ T
~          (handler-bind ((error (lambda (c) (princ-error c) (use-value
0))))
~            (os:group-info (os:user-info-gid (os:user-info :default)))))) T
~ #+unix (listp (show (os:group-info) :pretty t)) T
- -#+unix (= (os:getuid) (os:user-info-uid (os:user-info :default))) T
- -#+unix (= (os:getgid) (os:user-info-gid (os:user-info :default))) T
+#+unix (= (os:geteuid) (os:user-info-uid (os:user-info :default))) T
+#+unix (= (os:getegid) (os:user-info-gid (os:user-info :default))) T

~ (os:file-stat-p (show (os:file-stat *tmp1*) :pretty t)) T
~ (os:file-stat-p (show (os:file-stat (pathname *tmp1*)) :pretty t)) T
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFIKZ4UPp1Qsf2qnMcRAtrmAKCAE4733q49uMyy8woYzJb3/SnthACeJAh7
LSdH31Uay1nVcMOZHPJ3PV8=
=Avey
-----END PGP SIGNATURE-----