- Implemented regresion tests for batch processing, scans,

histmem and peak optimization

test/batchtest.tcl

@@ -0,0 +1,128 @@
+#------------------------------------------------------------------------------
+# This is a set of regression tests for the batch processing feauture
+# in SICS
+#
+# Mark Koennecke, October 2006
+#------------------------------------------------------------------------------
+
+puts stdout "Testing batch processing" 
+
+test batch-1.0 {Test Batch File Execution} -body {
+	config rights User User
+	set result [eval exe job1.tcl]
+	if {[string first TERMINATED $result] < 0} {
+		error "Failed to process batch file"
+	}
+	if {[string first Job1 $result] < 0} {
+		error "Output from batch file missing, received: $result"
+	}
+	return OK
+} -result OK
+
+test batch-1.1 {Test Batch File Interruption} -body {
+	config rights User user
+        exec ./interrupt.tcl &
+	set result [eval exe job1.tcl]
+	if {[string first TERMINATED $result] < 0} {
+		error "Failed to process batch file"
+	}
+	if {[string first interrupted $result] < 0} {
+		error "Interrupting did not work"
+	}
+	return OK
+} -result OK
+
+test batch-1.2 {Test Nested Batch File Execution} -body {
+	config rights User user
+	set result [eval exe job2.tcl]
+	if {[string first TERMINATED $result] < 0} {
+		error "Failed to process batch file"
+	}
+	if {[string first NestOne $result] < 0} {
+		error "Output from batch file missing"
+	}
+	if {[string first NestTwo $result] < 0} {
+		error "Output from batch file missing"
+	}
+	if {[string first NestThree $result] < 0} {
+		error "Output from batch file missing"
+	}
+	return OK
+} -result OK
+
+test batch-1.3 {Test Nested Batch File Interruption} -body {
+	config rights User user
+        exec ./interrupt.tcl &
+	set result [eval exe job2.tcl]
+	if {[string first TERMINATED $result] < 0} {
+		error "Failed to process batch file"
+	}
+	if {[string first NestOne $result] < 0} {
+		error "Output from batch file missing"
+	}
+	if {[string first NestTwo $result] < 0} {
+		error "Output from batch file missing"
+	}
+	if {[string first NestThree $result] < 0} {
+		error "Output from batch file missing"
+	}
+	if {[string first interrupted $result] < 0} {
+		error "Interrupting did not work"
+	}
+	return OK
+} -result OK
+
+test batch-1.4 {Test Path Parameters} -body {
+        testPar "exe batchpath" tmp User
+        testPar "exe syspath" tmp Mugger
+	return OK
+} -result OK
+
+test batch-1.5 {Test Path Failure} -body {
+    config rights Mugger Mugger
+    exe batchpath tmp
+    exe syspath tmp
+    set result [exe job4.tcl]
+    if {[string first "not found" $result] < 0} {
+	error "Batch file found which should not"
+    }
+    exe batchpath ./
+    exe syspath ./
+    return OK
+} -result OK
+
+test batch-1.6 {Test Uploading} -body {
+    config rights User User
+    catch {exec rm hugo.job}
+    testOK "exe upload"
+    testOK "exe append clientput hugo"
+    testOK "exe append wait 2"
+    testOK "exe save hugo.job"
+    testOK "exe upload"
+    testOK "exe append clientput hugo"
+    testOK "exe append wait 2"
+    set stat [catch {testOK "exe save hugo.job" } msg ]
+    if {$stat == 0} {
+	error "Failed to trigger overwrite error"
+    }
+    testOK "exe forcesave hugo.job"
+    return OK
+} -result OK
+
+test batch-1.7 {Test Notifications} -body {
+    config rights User User
+    testOK "exe interest"
+    set result [eval exe job4.tcl]
+    if {[string first BATCHSTART $result] < 0} {
+	error "BATCHSTART missing"
+    }
+    if {[string first BATCHEND $result] < 0} {
+	error "BATCHEND missing"
+    }
+    if {[string first job4.tcl.range $result] < 0} {
+	error "Range entries missing"
+    }
+    return OK
+} -result OK
+
+