Megatest

Check-in [c552e7eeab]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Merged from dev into v1.55
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55
Files: files | file ages | folders
SHA1: c552e7eeab203ee65fc5f9bc5e50212134e1ee1f
User & Date: matt on 2013-08-02 22:25:56
Other Links: branch diff | manifest | tags
Context
2013-08-03
00:30
Several additons to installall flow check-in: 33f5118b72 user: matt tags: v1.55
2013-08-02
22:25
Merged from dev into v1.55 check-in: c552e7eeab user: matt tags: v1.55
17:22
Added cleanrunexecute. Removed annoying output falsely announcing runstep check-in: d564af20b7 user: mrwellan tags: v1.55
2013-08-01
23:33
Attempt to improve gui resizing a little check-in: 74713e5039 user: matt tags: dev
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dashboard.scm from [c03ed30b9c] to [42438bdc1e].

︙
798
799
800
801
802
803
804
805

806
807
808
809
810
811
812

798
799
800
801
802
803
804

805
806
807
808
809
810
811
812








-
+








				(set! last-xadj xadj)
				(set! last-yadj yadj)))
		    ;; Following doesn't work 
		    ;; #:wheel-cb (make-canvas-action
		    ;;           (lambda (cnv xadj yadj)
		    ;;    	 ;; (print "cnv: " cnv " x: " x " y: " y)
		    ;;    	 (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)))
		    #:size "150x150"
		    ;; #:size "50x50"
		    #:expand "YES"
		    #:scrollbar "YES"
		    #:posx "0.5"
		    #:posy "0.5"
		    #:button-cb (lambda (obj btn pressed x y status)
				  ;; (print "obj: " obj)
				  (let ((tests-info     (hash-table-ref tests-draw-state  'tests-info))
︙

Modified dcommon.scm from [e6c7c5aa0b] to [26f749e48f].

︙
344
345
346
347
348
349
350
351
352
353



354
355
356
357
358
359
360

344
345
346
347
348
349
350



351
352
353
354
355
356
357
358
359
360








-
-
-
+
+
+








       ;; (iup:attribute-set! keys-matrix "ADDLIN" (conc curr-row-num))
       (iup:attribute-set! section-matrix (conc curr-row-num ":0") var)
       (iup:attribute-set! section-matrix (conc curr-row-num ":1") (configf:lookup rawconfig sectionname var))
       (set! curr-row-num (+ 1 curr-row-num))) ;; (config-lookup *configdat* "fields" var)))
     key-vals)
    (iup:vbox
     (iup:label (if title title (conc "Settings from [" sectionname "]"))  
		#:size   "5x"
		#:expand "HORIZONTAL"
		)
         	;; #:size   "5x"
         	#:expand "HORIZONTAL"
         	)
     section-matrix)))
    
;; General data
;;
(define (dcommon:general-info)
  (let ((general-matrix (iup:matrix
			 #:alignment1 "ALEFT"
︙
434
435
436
437
438
439
440
441

442
443
444
445
446
447
448

434
435
436
437
438
439
440

441
442
443
444
445
446
447
448








-
+








					       (iup:attribute-set! stats-matrix key value)))))
				     run-stats)
			   (if changed (iup:attribute-set! stats-matrix "REDRAW" "ALL"))))))
    (updater)
    (set! dashboard:update-summary-tab updater)
    (iup:attribute-set! stats-matrix "WIDTHDEF" "40")
    (iup:vbox
     (iup:label "Run statistics"  #:expand "HORIZONTAL")
     ;; (iup:label "Run statistics"  #:expand "HORIZONTAL")
     stats-matrix)))

(define (dcommon:servers-table)
  (let* ((colnum         0)
	 (rownum         0)
	 (servers-matrix (iup:matrix #:expand "YES"
				     #:numcol 7
︙

Modified launch.scm from [505d5fe17c] to [32f5996c52].

︙
458
459
460
461
462
463
464
465


466
467
468
469
470
471
472

458
459
460
461
462
463
464

465
466
467
468
469
470
471
472
473








-
+
+









    (debug:print 2 "INFO:\n       lnkbase=" lnkbase "\n       lnkpath=" lnkpath "\n  toptest-path=" toptest-path "\n     test-path=" test-path)
    (if (not (file-exists? linktree))
	(begin
	  (debug:print 0 "WARNING: linktree did not exist! Creating it now at " linktree)
	  (create-directory linktree #t))) ;; (system (conc "mkdir -p " linktree))))
    ;; create the directory for the tests dir links, this is needed no matter what...
    (if (not (directory-exists? lnkbase))
    (if (and (not (directory-exists? lnkbase))
	     (not (file-exists? lnkbase)))
	(create-directory lnkbase #t))
    
    ;; update the toptest record with its location rundir, cache the path
    ;; This wass highly inefficient, one db write for every subtest, potentially
    ;; thousands of unnecessary updates, cache the fact it was set and don't set it 
    ;; again.
︙

Modified megatest-version.scm from [31ffe3a468] to [187c3f7fbf]. 

1
2
3
4
5
6

7

1
2
3
4
5

6
7






-
+


;; Always use two digit decimal
;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..

(declare (unit megatest-version))

(define megatest-version 1.5511)
(define megatest-version 1.6)

Modified tests/installall/megatest.config from [495217020e] to [9e822318aa]. 

1
2
3
4
5
6
7
8

9
10
11
12
13
14
15

1
2
3
4
5
6
7

8
9
10
11
12
13
14
15








-
+








[fields]
CHICKEN_VERSION TEXT
MEGATEST_VERSION TEXT
IUPMODE TEXT
BUILD_TAG TEXT

[setup]
max_concurrent_jobs 4
max_concurrent_jobs 6
linktree #{getenv MT_RUN_AREA_HOME}/links

[jobtools]
useshell yes
launcher nbfind

[env-override]
︙

This page was generated in about 0.124s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00