Megatest

Check-in [84f6d60495]
Login
Overview
Comment:Started construction of the one panel to rule them all
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 84f6d604953bcb0dd5ba609a6378fb73b04e6172
User & Date: matt on 2011-11-27 21:07:47
Other Links: manifest | tags
Context
2011-11-27
23:39
Initial megatest.config gui based editor stuff in place check-in: b7ca8cbac9 user: matt tags: trunk
21:07
Started construction of the one panel to rule them all check-in: 84f6d60495 user: matt tags: trunk
16:28
Completed but not tested non-destructive open/modify/write of config files check-in: 8f378d4740 user: matt tags: trunk
Changes

Added dashboard-main.scm version [ecec01cee6].





























































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
;;======================================================================
;; Copyright 2006-2011, Matthew Welland.
;; 
;;  This program is made available under the GNU GPL version 2.0 or
;;  greater. See the accompanying file COPYING for details.
;; 
;;  This program is distributed WITHOUT ANY WARRANTY; without even the
;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;  PURPOSE.
;;======================================================================

;;======================================================================
;; Main Megatest Panel
;;======================================================================

(use format)
(require-library iup)
(import (prefix iup iup:))

(use canvas-draw)

(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))

(declare (unit dashboard-guimonitor))
(declare (uses common))
(declare (uses keys))
(declare (uses db))
(declare (uses tasks))

(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")

(define (main-menu)
  (menu ;; a menu is a special attribute to a dialog (think Gnome putting the menu at screen top)
   (menu-item "Files" (menu   ;; Note that you can use either #:action or action: for options
		       (menu-item "Open"  action: (lambda (obj)
						    (show (file-dialog))
						    (print "File->open " obj)))
		       (menu-item "Save"  #:action (lambda (obj)(print "File->save " obj)))
		       (menu-item "Exit"  #:action (lambda (obj)(exit)))))
   (menu-item "Tools" (menu
		       (menu-item "Create new blah" #:action (lambda (obj)(print "Tools->new blah")))
		       (menu-item "Show dialog"     #:action (lambda (obj)
							       (show message-window
								     #:modal? #t
								     ;; set positon using coordinates or center, start, top, left, end, bottom, right, parent-center, current
								     ;; #:x 'mouse
								     ;; #:y 'mouse
								     )))))))
(define (main-panel mtest rconfig tests runs)
  (dialog
   #:title "Menu Test"
   #:menu (main-menu)
   (let ((tabtop (iup:tabs mtest rconfig tests runs)))
     (iup:attribute-set! tabtop "TABTITLE0" "Megatest") 
     (iup:attribute-set! tabtop "TABTITLE1" "Runconfigs")
     (iup:attribute-set! tabtop "TABTITLE2" "Tests")
     (iup:attribute-set! tabtop "TABTITLE3" "Runs")
     tabtop)))

Modified tests/Makefile from [5bd0838ea1] to [9004c03430].

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# run some tests

BINPATH=$(shell realpath ../bin)
MEGATEST=$(BINPATH)/megatest
PATH := $(BINPATH):$(PATH)

runall :
	cd ../;make install 
	$(BINPATH)/dboard &
	$(MEGATEST) -keepgoing -runall -target ubuntu/nfs/none :runname `date +w%V.%u.%H` -m "This is a comment specific to a run" -v

test :
	csi -b -I .. ../megatest.scm -- -runall -target ubuntu/afs/tmp :runname blah
	cd ../;make test
	make runall









|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# run some tests

BINPATH=$(shell realpath ../bin)
MEGATEST=$(BINPATH)/megatest
PATH := $(BINPATH):$(PATH)

runall :
	cd ../;make install 
	$(BINPATH)/dboard -rows 15 &
	$(MEGATEST) -keepgoing -runall -target ubuntu/nfs/none :runname `date +w%V.%u.%H` -m "This is a comment specific to a run" -v

test :
	csi -b -I .. ../megatest.scm -- -runall -target ubuntu/afs/tmp :runname blah
	cd ../;make test
	make runall