diff options
author | cvs2svn Import User <samba-bugs@samba.org> | 2001-06-23 20:19:24 +0000 |
---|---|---|
committer | cvs2svn Import User <samba-bugs@samba.org> | 2001-06-23 20:19:24 +0000 |
commit | 128b73da7b86c45e411e5331251f9ed08f0f689e (patch) | |
tree | 16b8fa688776961ddd7b0fc2432daaad169229e7 /testsuite/nsswitch/login.exp | |
parent | 4201e0777f37058b7c19ebfa534e1968d3a3e3b5 (diff) | |
download | samba-128b73da7b86c45e411e5331251f9ed08f0f689e.tar.gz samba-128b73da7b86c45e411e5331251f9ed08f0f689e.tar.xz samba-128b73da7b86c45e411e5331251f9ed08f0f689e.zip |
This commit was manufactured by cvs2svn to create tagsamba-2.2.0a
'release-2-2-0a'.
Diffstat (limited to 'testsuite/nsswitch/login.exp')
-rw-r--r-- | testsuite/nsswitch/login.exp | 102 |
1 files changed, 0 insertions, 102 deletions
diff --git a/testsuite/nsswitch/login.exp b/testsuite/nsswitch/login.exp deleted file mode 100644 index c2bb0e5a40a..00000000000 --- a/testsuite/nsswitch/login.exp +++ /dev/null @@ -1,102 +0,0 @@ -# -# @(#) Test logins using pam_winbind.so module using telnet -# - -load_lib util-defs.exp -load_lib nsswitch-config.exp - -# -# @(#) Test user can login -# - -spawn telnet localhost - -set test_desc "telnet localhost (login)" - -expect { - "login:" { } - timeout { fail "timed out in $test_desc"; return } - eof { fail "end of file in $test_desc"; return } -} - -send "$domain/$USER\r" - -set test_desc "telnet localhost (password)" - -expect { - "Password:" { } - timeout { fail "timed out in $test_desc"; return } - eof { fail "end of file in $test_desc"; return } -} - -send "$PASSWORD\r" - -expect { - "$ " { } - "Login incorrect" { fail "login incorrect"; return } - timeout { fail "timed out in $test_desc"; return } - eof { fail "end of file in $test_desc"; return } -} - -pass "login $domain/$USER" - -# -# @(#) Check supplementary group membership -# - -set test_desc "supplementary groups" - -# Get list of groups - -send "id -G\r" - -expect { - -re "((\[0-9]+ )*\[0-9]+\r)" { exp_continue; } - "$ " { } - timeout { fail "timed out in $test_desc"; return } - eof { fail "end of file in $test_desc"; return } -} - -set groups $expect_out(1,string) -set wb_groups [util_start "bin/wbinfo" "-r $domain/$USER"] - -verbose "id groups are $groups" -verbose "wbinfo groups are $wb_groups" - -# Check all groups from id are in wbinfo and vice-versa - -set failed 0 - -foreach { group } $groups { - set got_group 0 - foreach { wb_group } $wb_groups { - if { $wb_group == $group } { - set got_group 1 - break - } - } - - if { !$got_group } { - fail "group $group not in output of wbinfo -r" - set failed 1 - } -} - -foreach { wb_group } $wb_groups { - set got_group 0 - foreach { group } $groups { - if { $group == $wb_group } { - set got_group 1 - break - } - } - - if { !$got_group } { - fail "group $group not in output of id -G" - set failed 1 - } -} - -if { !$failed } { - pass "id/wbinfo groups match" -} |