Megatest

Check-in [a38b157d75]
Login
Overview
Comment:Added re-run of test to rhb menu
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.61
Files: files | file ages | folders
SHA1: a38b157d75ccab758dfb06b53d3d78fc18a65df9
User & Date: matt on 2016-06-30 04:57:24
Other Links: branch diff | manifest | tags
Context
2016-06-30
23:49
Made the LH column controls independent for each tab check-in: c4ce2f7187 user: matt tags: v1.61
04:57
Added re-run of test to rhb menu check-in: a38b157d75 user: matt tags: v1.61
04:50
Added rerun to rhb menu check-in: 61dfefd369 user: matt tags: v1.61
Changes

Modified dashboard.scm from [8faf005e26] to [52da789fe9].

1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899









1900
1901
1902
1903
1904
1905
1906
							      #:action
							      (lambda (obj)
								(common:run-a-command
								 (conc "megatest -run -target " target
								       " -runname " runname
								       " -testpatt " testpatt
								       " -preclean -clean-cache")
								 ;; (print "Rerun")
								 )))))
							   (iup:menu-item
							    "Test"
							    (iup:menu 
							     (iup:menu-item









							      "Start xterm"
							      #:action
							      (lambda (obj)
								(let* ((cmd (conc toolpath " -xterm " run-id "," test-id "&")))
								  (system cmd))))
							     (iup:menu-item
							      "Edit testconfig"







<





>
>
>
>
>
>
>
>
>







1887
1888
1889
1890
1891
1892
1893

1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
							      #:action
							      (lambda (obj)
								(common:run-a-command
								 (conc "megatest -run -target " target
								       " -runname " runname
								       " -testpatt " testpatt
								       " -preclean -clean-cache")

								 )))))
							   (iup:menu-item
							    "Test"
							    (iup:menu 
							     (iup:menu-item
							      (conc "Rerun " test-name)
							      #:action
							      (lambda (obj)
								(common:run-a-command
								 (conc "megatest -run -target " target
								       " -runname " runname
								       " -testpatt " test-name
								       " -preclean -clean-cache"))))
							     (iup:menu-item
							      "Start xterm"
							      #:action
							      (lambda (obj)
								(let* ((cmd (conc toolpath " -xterm " run-id "," test-id "&")))
								  (system cmd))))
							     (iup:menu-item
							      "Edit testconfig"