steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix user-name in unix.users, add unit test

db4
Doug Coleman 2010-02-04 21:50:33 -06:00
parent 60561dd490
commit c32fcf918b
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/unix/groups/groups.factor
View File

@ -59,7 +59,7 @@ PRIVATE>
[ nip ] [ number>string ] if* ; [ nip ] [ number>string ] if* ;
: group-id ( string -- id/f ) : group-id ( string -- id/f )
group-struct [ gr_gid>> ] [ f ] if* ; group-struct dup [ gr_gid>> ] when ;
<PRIVATE <PRIVATE

2
basis/unix/users/users-tests.factor
View File

@ -25,3 +25,5 @@ IN: unix.users.tests
[ "9999999999999999999" ] [ 9999999999999999999 user-name ] unit-test [ "9999999999999999999" ] [ 9999999999999999999 user-name ] unit-test
[ f ] [ 89898989898989898989898989898 user-passwd ] unit-test [ f ] [ 89898989898989898989898989898 user-passwd ] unit-test
[ f ] [ "thisusershouldnotexistabcdefg12345asdfasdfasdfasdfasdfasdfasdf" user-id ] unit-test

4
basis/unix/users/users.factor
View File

@ -61,8 +61,8 @@ M: string user-passwd ( string -- passwd/f )
dup user-passwd dup user-passwd
[ nip user-name>> ] [ number>string ] if* ; [ nip user-name>> ] [ number>string ] if* ;
: user-id ( string -- id ) : user-id ( string -- id/f )
user-passwd uid>> ; user-passwd dup [ uid>> ] when ;
: real-user-id ( -- id ) : real-user-id ( -- id )
unix.ffi:getuid ; inline unix.ffi:getuid ; inline