Changeset 4127 for trunk/tester

Timestamp:

Jan 16, 2014 10:51:33 AM (10 years ago)

Author:

mmc

Message:

Added a "-auto" option to "rappture -tester" so you can run all tests
without the GUI in the background. This is needed as we try to run
regressions automatically during the contribtool process. In order to
do this, I had to split the Tool object into a "Task" that can run
without the GUI, and the "Tool" that acts as a ControlOwner?. I also
had to support for resource file processing into the generic Rappture
package. As a result, "rappture -tester -auto" can run without an
X window connection.

Added support for "job_protocol mx" in the resources file. If you
specify this, then Rappture will execute "mx cmd arg arg..." to run
each job.

Location:

trunk/tester/scripts

Files:

• Makefile.in (modified) (1 diff)
• auto.tcl (added)
• main.tcl (modified) (3 diffs)

trunk/tester/scripts/Makefile.in

@@ -18 +18 @@
 
 FILES           = \
+                $(srcdir)/auto.tcl \
                 $(srcdir)/main.tcl \
                 $(srcdir)/legend.tcl \

trunk/tester/scripts/main.tcl

@@ -17 +17 @@
 #  USAGE: tester.tcl ?-tool tool.xml? ?-testdir tests?
 # ======================================================================
-#  AUTHOR:  Ben Rafferty, Purdue University
+#  AUTHORS:  Michael McLennan, Ben Rafferty, Purdue University
 #  Copyright (c) 2004-2012  HUBzero Foundation, LLC
 #
@@ -136 +136 @@
 set installdir [file dirname [file normalize $params(-tool)]]
 set xmlobj [Rappture::library $params(-tool)]
-set ToolObj [Rappture::Tool ::#auto $xmlobj $installdir]
+set TaskObj [Rappture::Task ::#auto $xmlobj $installdir]
+
+# tasks in the tester run quietly and discard results
+$TaskObj configure -jobstats "" -resultdir ""
+
 set DiffShow ""  ;# used to track which diff objects are being displayed
 
@@ -296 +300 @@
 set testtree [.pw pane 0].tree
 foreach file [glob -nocomplain -directory $params(-testdir) *.xml] {
-    set testobj [Rappture::Tester::Test ::#auto $ToolObj $file]
+    set testobj [Rappture::Tester::Test ::#auto $TaskObj $file]
     if {[$testobj getTestInfo test.label] eq ""} {
         puts stderr "ERROR:  Missing test label in $file"