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 | ;;====================================================================== (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 | | | 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 ;; (prefix nanomsg nmsg:) (prefix sqlite3 sqlite3:) (prefix dbi dbi:) ) (declare (unit common)) (declare (uses commonmod)) (import (prefix commonmod cmod:)) |
︙ | ︙ |
Modified commonmod.scm from [79fa17743e] to [f09504d905].
︙ | ︙ | |||
20 21 22 23 24 25 26 | (declare (unit commonmod)) (module commonmod * (import scheme chicken data-structures extras files) | | > | 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) (import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69 md5 message-digest) (define (just-testing) (print "JUST TESTING")) (define (lookup cfgdat section var) (if (hash-table? cfgdat) (let ((sectdat (hash-table-ref/default cfgdat section '()))) |
︙ | ︙ | |||
44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | (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 (debug:print . params) #f) ;; (define (debug:print-info . params) #f) ;; ;; (define (set-functions dbgp dbgpinfo) ;; (set! debug:print dbgp) ;; (set! debug:print-info dbgpinfo)) ) | > > > > > > > > > > | 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)) ) |