Overview
| Comment: | Sync up of partial edits |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | multi-area |
| Files: | files | file ages | folders |
| SHA1: |
bf62b354fedbe3b6e3e0e4ae335deed2 |
| User & Date: | matt on 2015-04-05 15:09:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-04-05
| ||
| 18:58 | More edits check-in: 55aca0f74d user: matt tags: multi-area | |
| 15:09 | Sync up of partial edits check-in: bf62b354fe user: matt tags: multi-area | |
| 14:51 | Partial migration to using area-dat done. More to do. check-in: ad22de217f user: matt tags: multi-area | |
Changes
Modified dashboard-tests.scm from [9124f50a29] to [877198e14c].
| ︙ | ︙ | |||
37 38 39 40 41 42 43 | ;;====================================================================== ;; C O M M O N ;;====================================================================== (define *dashboard-comment-share-slot* #f) | | | | 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
;;======================================================================
;; C O M M O N
;;======================================================================
(define *dashboard-comment-share-slot* #f)
(define (dtests:get-pre-command area-dat #!key (default-override #f))
(let ((cfg-ovrd (configf:lookup (megatest:area-configdat area-dat) "dashboard" "pre-command")))
(or cfg-ovrd default-override "xterm -geometry 180x20 -e \"")))
(define (dtests:get-post-command #!key (default-override #f))
(let ((cfg-ovrd (configf:lookup *configdat* "dashboard" "post-command")))
(or cfg-ovrd default-override ";echo Press any key to continue;bash -c 'read -n 1 -s'\" &")))
|
| ︙ | ︙ |
Modified tests/unittests/basicserver.scm from [f2f7d0aa9d] to [7730a31dc8].
1 2 3 4 5 6 7 8 9 10 11 | ;;====================================================================== ;; S E R V E R ;;====================================================================== ;; Run like this: ;; ;; ./rununittest.sh server 1;(cd simplerun;megatest -stop-server 0) (delete-file* "logs/1.log") (define run-id 1) | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
;;======================================================================
;; S E R V E R
;;======================================================================
;; Run like this:
;;
;; ./rununittest.sh server 1;(cd simplerun;megatest -stop-server 0)
(delete-file* "logs/1.log")
(define run-id 1)
(test "setup for run" #t (begin (launch:setup-for-run *area-dat*)
(string? (getenv "MT_RUN_AREA_HOME"))))
;; NON Server tests go here
(test #f #f (db:dbdat-get-path *db* *area-dat*))
(test #f #f (db:get-run-name-from-id *db* run-id))
;; (test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
;; (exit)
;; Server tests go here
(for-each
|
| ︙ | ︙ |