Overview
Comment: | Added auto gen area name |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-newview |
Files: | files | file ages | folders |
SHA1: |
eeb358089d89aee9f2b1804a4c630ef4 |
User & Date: | matt on 2020-04-12 23:51:54 |
Other Links: | branch diff | manifest | tags |
Context
2020-05-20
| ||
17:33 | Create new branch named "v1.64-newview-junit-xml-reporter" check-in: 455693626c user: pjhatwal tags: v1.64-newview-junit-xml-reporter | |
2020-04-13
| ||
06:05 | Added more needed functions to commonmod in prep for multi-area support in newview check-in: ccab6e04af user: matt tags: v1.65-newview | |
2020-04-12
| ||
23:51 | Added auto gen area name check-in: eeb358089d user: matt tags: v1.65-newview | |
23:10 | Moved some functions into commonmod check-in: e9a528680b user: matt tags: v1.65-newview | |
Changes
Modified common.scm from [2d53221a69] to [ab4de5a0a9].
︙ | |||
18 19 20 21 22 23 24 | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | - + | ;;====================================================================== (use srfi-1 data-structures posix regex-case (prefix base64 base64:) format dot-locking csv-xml z3 udp ;; sql-de-lite hostinfo md5 message-digest typed-records directory-utils stack matchable regex posix (srfi 18) extras ;; tcp |
︙ |
Modified commonmod.scm from [79fa17743e] to [f09504d905].
︙ | |||
20 21 22 23 24 25 26 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | - + + | (declare (unit commonmod)) (module commonmod * (import scheme chicken data-structures extras files) |
︙ | |||
44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | + + + + + + + + + + | (define (get-testsuite-name toppath configdat) (or (lookup configdat "setup" "area-name") (lookup configdat "setup" "testsuite") (get-environment-variable "MT_TESTSUITE_NAME") (if (string? toppath) (pathname-file toppath) #f))) (define (get-area-path-signature toppath) (message-digest-string (md5-primitive) toppath)) (define (get-area-name toppath configdat) ;; look up my area name in areas table (future) ;; generate auto name (conc (get-area-path-signature toppath) "-" (get-testsuite-name toppath configdat))) ;; (define (debug:print . params) #f) ;; (define (debug:print-info . params) #f) ;; ;; (define (set-functions dbgp dbgpinfo) ;; (set! debug:print dbgp) ;; (set! debug:print-info dbgpinfo)) ) |