added test of associations to the sacctmgr tests

testsuite/expect/test21.6

@@ -49,9 +49,9 @@ set mj		MaxJobs
 set mn		MaxNodes
 set mw		MaxWall
 set clu		cluster
-set tc1		tCluster1
-set tc2		tCluster2
-set tc3		tCluster3
+set tc1		tcluster1
+set tc2		tcluster2
+set tc3		tcluster3
 set fs1		2500
 set mc1		1000000
 set mj1		50
@@ -129,6 +129,10 @@ if {$amatches != 12} {
 	send_user "\nFAILURE:  sacctmgr had a problem adding clusters\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
@@ -166,6 +170,10 @@ if {$dmatches != 4} {
 	send_user "\nFAILURE: sacctmgr had a problem deleting cluster\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"

testsuite/expect/test21.7

@@ -49,9 +49,9 @@ set mj		MaxJobs
 set mn		MaxNodes
 set mw		MaxWall
 set clu		cluster
-set tc1		tCluster1
-set tc2		tCluster2
-set tc3		tCluster3
+set tc1		tcluster1
+set tc2		tcluster2
+set tc3		tcluster3
 set fs1		2500
 set mc1		1000000
 set mj1		50
@@ -129,6 +129,10 @@ if {$amatches != 12} {
 	send_user "\nFAILURE:  sacctmgr had a problem adding clusters\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 list the addition of cluster
@@ -209,6 +213,10 @@ if {$dmatches != 4} {
 	send_user "\nFAILURE: sacctmgr had a problem deleting cluster\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"

testsuite/expect/test21.8

@@ -50,9 +50,9 @@ set mj		MaxJobs
 set mn		MaxNodes
 set mw		MaxWall
 set clu		cluster
-set tc1		tCluster1
-set tc2		tCluster2
-set tc3		tCluster3
+set tc1		tcluster1
+set tc2		tcluster2
+set tc3		tcluster3
 set fs1		2500
 set fs2		1375
 set mc1		1000000
@@ -135,6 +135,10 @@ if {$amatches != 12} {
 	send_user "\nFAILURE:  sacctmgr had a problem adding clusters\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 modify one cluster
@@ -192,6 +196,10 @@ if {$mmatches != 9} {
 	send_user "\nFAILURE:  sacctmgr had a problem modifying clusters\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 list the addition of cluster
@@ -272,6 +280,10 @@ if {$dmatches != 4} {
 	send_user "\nFAILURE: sacctmgr had a problem deleting cluster\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"

testsuite/expect/test21.9

@@ -50,9 +50,9 @@ set mj		MaxJobs
 set mn		MaxNodes
 set mw		MaxWall
 set clu		cluster
-set tc1		tCluster1
-set tc2		tCluster2
-set tc3		tCluster3
+set tc1		tcluster1
+set tc2		tcluster2
+set tc3		tcluster3
 set fs1		2500
 set fs2		1375
 set mc1		1000000
@@ -135,6 +135,10 @@ if {$amatches != 12} {
 	send_user "\nFAILURE:  sacctmgr had a problem adding clusters\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 modify one cluster
@@ -192,6 +196,10 @@ if {$mmatches != 9} {
 	send_user "\nFAILURE:  sacctmgr had a problem modifying clusters\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 list the addition of cluster
@@ -272,6 +280,10 @@ if {$dmatches != 4} {
 	send_user "\nFAILURE: sacctmgr had a problem deleting cluster\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"