Skip to content
Snippets Groups Projects
Commit f78a4b4f authored by Joseph P. Donaghy's avatar Joseph P. Donaghy
Browse files

Inaugural test to add a user.

parent f6a9bdb7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
testsuite/expect/test21.15 0 → 100755
+ 274
− 0
View file @ f78a4b4f
#!/usr/bin/expect
############################################################################
# Purpose: Test of SLURM functionality
# sacctmgr add an user
#
# Output: "TEST: #.#" followed by "SUCCESS" if test was successful, OR
# "FAILURE: ..." otherwise with an explanation of the failure, OR
# anything else indicates a failure mode that must be investigated.
############################################################################
# Copyright (C) 2008 Lawrence Livermore National Security.
# Produced at Lawrence Livermore National Laboratory (cf, DISCLAIMER).
# Written by Joseph Donaghy <donaghy1@llnl.gov>
# LLNL-CODE-402394.
#
# This file is part of SLURM, a resource management program.
# For details, see <http://www.llnl.gov/linux/slurm/>.
#
# SLURM is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 2 of the License, or (at your option)
# any later version.
#
# SLURM is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
# details.
#
# You should have received a copy of the GNU General Public License along
# with SLURM; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
############################################################################
source ./globals
set test_id "21.15"
set exit_code 0
set acmatches 0
set aamatches 0
set lmatches 0
set damatches 0
set dcmatches 0
set dumatches 0
set not_support 0
set add add
set lis list
set del delete
set mod modify
set nams Names
set nam Name
set fs Fairshare
set mc MaxCPUSecs
set mj MaxJobs
set mn MaxNodes
set mw MaxWall
set clu cluster
set tc1 tcluster1
set fs1 2500
set fs2 2200
set mc1 1000000
set mc2 200000
set mj1 50
set mj2 20
set mn1 300
set mn2 200
set mw1 01:00:00
set mw2 00:20:00
set acc account
set acs accounts
set ass associations
set nm1 testaccta1
set nm2 tacct2
set des Description
set ds1 "Test Account A1"
set ds1 "TestAccount2"
set org Organization
set or1 "Account Org A1"
set or1 "AcctOrg2"
set qs QosLevel
set qs1 normal
set usr user
set us1 tuser1
set al AdminLevel
set aln None
set dac DefaultAccount
set par Partitions
set dbu debug
print_header $test_id
#
# Use sacctmgr to create a cluster
#
set sadd_pid [spawn $sacctmgr -i add $clu $nams=$tc1 $fs=$fs1 $mc=$mc1 $mj=$mj1 $mn=$mn1 $mw=$mw1]
expect {
-re "Adding Cluster" {
incr acmatches
exp_continue
}
timeout {
send_user "\nFAILURE: sacctmgr add not responding\n"
slow_kill $sadd_pid
set exit_code 1
}
eof {
wait
}
}
if {$acmatches != 1} {
send_user "\nFAILURE: sacctmgr had a problem adding clusters
got $acmatches\n"
set exit_code 1
}
if { ![check_acct_associations] } {
send_user "\nFAILURE: Our associations don't line up\n"
set exit_code 1
}
#
# Use sacctmgr to add an account
#
set sadel_pid [spawn $sacctmgr -i $add $acc $clu=$tc1 $des="$ds1" $fs=$fs1 $mc=$mc1 $mj=$mj1 $mn=$mn1 $mw=$mw1 $nams=$nm1 $org="$or1" $qs=$qs1]
expect {
-re "Adding Account" {
incr aamatches
exp_continue
}
timeout {
send_user "\nFAILURE: sacctmgr add not responding\n"
slow_kill $sadd_pid
set exit_code 1
}
eof {
wait
}
}
if {$aamatches != 1} {
send_user "\nFAILURE: sacctmgr had a problem adding account.
got $aamatches\n"
set exit_code 1
}
#
# Use sacctmgr to add a user
#
set as_list_pid [spawn $sacctmgr -i $add $usr $acs=$nm1 $al=$aln $clu=$tc1 $dac=$nm1 $fs=$fs2 $mc=$mc2 $mj=$mj2 $mn=$mn2 $mw=$mw2 $nams=$us1 $par=$dbu $qs=$qs1 ]
expect {
-re "$nams *$nm1" {
exp_continue
}
timeout {
send_user "\nFAILURE: sacctmgr list associations not responding\n"
slow_kill $as_list_pid
set exit_code 1
}
eof {
wait
}
}
if { ![check_acct_associations] } {
send_user "\nFAILURE: Our associations don't line up\n"
set exit_code 1
}
#
# Use sacctmgr to list the test user
#
set as_list_pid [spawn $sacctmgr list $usr $nams=$us1 WithAssocs]
expect {
-re "$tc1 *$nm1 *$qs1 *None *$tc1 *$nm1 *$par *$fs2 *$mc2 *$mj2 *$mn2 *$mw2" {
exp_continue
}
timeout {
send_user "\nFAILURE: sacctmgr list user not responding\n"
slow_kill $as_list_pid
set exit_code 1
}
eof {
wait
}
}
#
# Use sacctmgr to delete the test user
#
set sadel_pid [spawn $sacctmgr -i $del $usr $us1]
expect {
-re "Deleting users" {
incr dumatches
exp_continue
}
timeout {
send_user "\nFAILURE: sacctmgr delete not responding\n"
slow_kill $sadel_pid
set exit_code 1
}
eof {
wait
}
}
if {$dumatches != 1} {
send_user "\nFAILURE: sacctmgr had a problem deleting user got $dumatches\n"
set exit_code 1
}
#
# Use sacctmgr to delete the test account
#
set sadel_pid [spawn $sacctmgr -i $del $acc $nm1]
expect {
-re "Deleting account" {
incr damatches
exp_continue
}
timeout {
send_user "\nFAILURE: sacctmgr delete not responding\n"
slow_kill $sadel_pid
set exit_code 1
}
eof {
wait
}
}
if {$damatches != 1} {
send_user "\nFAILURE: sacctmgr had a problem deleting account got $damatches\n"
set exit_code 1
}
if { ![check_acct_associations] } {
send_user "\nFAILURE: Our associations don't line up\n"
set exit_code 1
}
#
# Use sacctmgr to delete the test cluster
#
set sadel_pid [spawn $sacctmgr -i $del $clu $tc1]
expect {
-re "Deleting clusters" {
incr dcmatches
exp_continue
}
timeout {
send_user "\nFAILURE: sacctmgr delete not responding\n"
slow_kill $sadel_pid
set exit_code 1
}
eof {
wait
}
}
if {$dcmatches != 1} {
send_user "\nFAILURE: sacctmgr had a problem deleting cluster got $dcmatches\n"
set exit_code 1
}
if { ![check_acct_associations] } {
send_user "\nFAILURE: Our associations don't line up\n"
set exit_code 1
}
if {$exit_code == 0} {
send_user "\nSUCCESS\n"
} else {
send_user "\nFAILURE\n"
}
exit $exit_code
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment
Nutzungsbedingungen | Datenschutzerklärung | Barrierefreiheitserklärung