Megatest

Check-in [84ae3bfc9d]
Login
Overview
Comment:Fixed call to delete to use open-run-close
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | test-specific-db
Files: files | file ages | folders
SHA1: 84ae3bfc9d127dbb549b18bb48490c06b5b5384e
User & Date: matt on 2012-09-26 21:27:28
Other Links: branch diff | manifest | tags
Context
2012-09-26
21:33
Lightened the heavy test to four parallel runs check-in: ddc68a5de5 user: matt tags: test-specific-db
21:27
Fixed call to delete to use open-run-close check-in: 84ae3bfc9d user: matt tags: test-specific-db
21:17
Tentatively turning on test-id caching check-in: f16f55cefe user: matt tags: test-specific-db
Changes

Modified launch.scm from [69a8862a97] to [730aea4080].

579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
							  (list 'target    mt_target)
							  (list 'env-ovrd  (hash-table-ref/default *configdat* "env-override" '())) 
							  (list 'set-vars  (if params (hash-table-ref/default params "-setvars" #f)))
							  (list 'runname   runname)
							  (list 'mt-bindir-path mt-bindir-path))))))) ;; (string-intersperse keyvallst " "))))
    ;; clean out step records from previous run if they exist
    (debug:print 4 "INFO: FIXMEEEEE!!!! This can be removed some day, perhaps move all test records to the test db?")
    (db:delete-test-step-records db test-id)
    (change-directory work-area) ;; so that log files from the launch process don't clutter the test dir
    (open-run-close test-set-status! db test-id "LAUNCHED" "n/a" #f #f) ;; (if launch-results launch-results "FAILED"))
    (cond
     ((and launcher hosts) ;; must be using ssh hostname
      (set! fullcmd (append launcher (car hosts)(list remote-megatest test-sig "-execute" cmdparms) debug-param)))
     ;; (set! fullcmd (append launcher (car hosts)(list remote-megatest test-sig "-execute" cmdparms))))
     (launcher







|







579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
							  (list 'target    mt_target)
							  (list 'env-ovrd  (hash-table-ref/default *configdat* "env-override" '())) 
							  (list 'set-vars  (if params (hash-table-ref/default params "-setvars" #f)))
							  (list 'runname   runname)
							  (list 'mt-bindir-path mt-bindir-path))))))) ;; (string-intersperse keyvallst " "))))
    ;; clean out step records from previous run if they exist
    (debug:print 4 "INFO: FIXMEEEEE!!!! This can be removed some day, perhaps move all test records to the test db?")
    (open-run-close db:delete-test-step-records db test-id)
    (change-directory work-area) ;; so that log files from the launch process don't clutter the test dir
    (open-run-close test-set-status! db test-id "LAUNCHED" "n/a" #f #f) ;; (if launch-results launch-results "FAILED"))
    (cond
     ((and launcher hosts) ;; must be using ssh hostname
      (set! fullcmd (append launcher (car hosts)(list remote-megatest test-sig "-execute" cmdparms) debug-param)))
     ;; (set! fullcmd (append launcher (car hosts)(list remote-megatest test-sig "-execute" cmdparms))))
     (launcher

Modified tests/fullrun/megatest.config from [af4aa77cd5] to [a8449f4b27].

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
[refareas]
area1 /tmp/oldarea/megatest

[include config/mt_include_1.config]

[setup]
# FULL or 2, NORMAL or 1, OFF or 0
synchronous FULL
throttle 50

[validvalues]
state start end 
status pass fail n/a 0 1 running

# These are set before all tests, override them 







|







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
[refareas]
area1 /tmp/oldarea/megatest

[include config/mt_include_1.config]

[setup]
# FULL or 2, NORMAL or 1, OFF or 0
synchronous OFF
throttle 50

[validvalues]
state start end 
status pass fail n/a 0 1 running

# These are set before all tests, override them