Remove dead test functions.

They should have been removed in 63b50688

testsuite/expect/test37.4

@@ -70,87 +70,6 @@ if { [string compare [check_accounting_admin_level] "Administrator"] } {
 	exit 0
 }
 
-proc modify {job_id constraint reg_ex error_message} {
-	global fedc1 fed_slurm_base bin_sleep
-
-	set my_scontrol "${fed_slurm_base}/$fedc1/bin/scontrol"
-	set matches 0
-
-	spawn $my_scontrol update jobid=$job_id clusterfeatures=$constraint
-	$bin_sleep 3
-	expect {
-		-re "$reg_ex" {
-			incr matches
-		}
-		timeout {
-			log_error "scontrol not responding"
-			end_it 1
-		}
-		eof {
-			wait
-		}
-	}
-	if {![string match "empty" $reg_ex] && $matches != 1} {
-		return
-		log_error "scontrol not responding"
-		end_it 1
-	}
-}
-
-proc sbatch {my_sbatch script constraint args} {
-
-	global number bin_sleep
-
-	set job_id 0
-	set command "$my_sbatch -N10 --exclusive --output=/dev/null \
-		--error=/dev/null -t3 --wrap $script --cluster-constraint=$constraint"
-
-	if {$args ne ""} {
-		append command " $args"
-	}
-	spawn {*}$command
-	expect {
-		-re "Submitted batch job ($number)" {
-			set job_id $expect_out(1,string)
-		}
-		timeout {
-			log_error "sbatch not responding"
-			end_it 1
-		}
-		eof {
-			wait
-		}
-	}
-	if {$job_id == 0} {
-		log_error "batch submit failure"
-		end_it 1
-	}
-
-	$bin_sleep 3
-	return $job_id
-}
-
-proc verify {fed job_id pattern error_message} {
-	global fed_slurm_base
-
-	set matches 0
-	set my_squeue "${fed_slurm_base}/$fed/bin/squeue"
-	spawn $my_squeue -j $job_id --noheader \
-		-Ostatecompact:.5,siblingsviable:.20,siblingsactive:.20
-	expect {
-		-re "\\s+$pattern" {
-			incr matches
-		}
-		eof {
-			wait
-		}
-	}
-	if {$matches != 1} {
-		log_error "$error_message"
-		end_it 1
-	}
-}
-
 proc cancel_all_jobs { } {
 	global scancel user_name fedc1 fedc2 fedc3