Megatest

Changes On Branch 8bd0fd076357cde6
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Hide Diff Patch Side-by-Side Diff

Changes In Branch v1.80-mtdb Through [8bd0fd0763] Excluding Merge-Ins

This is equivalent to a diff from 747321a245 to 8bd0fd0763

2023-03-22
09:05
Merged mtdb change. check-in: a50d34f842 user: mrwellan tags: v1.80
2023-03-21
21:09
Converted .megatest to .mtdb Leaf check-in: f00c7b0bd9 user: matt tags: v1.80-mtdb
20:07
Change .megatest -> .mtdb check-in: 8bd0fd0763 user: mrwellan tags: v1.80-mtdb
16:10
disabled syncing of test steps and test data check-in: c2e29b696d user: mmgraham tags: v1.80, v1.8009
08:46
Merged fork check-in: 747321a245 user: mrwellan tags: v1.80
08:35
Merged fork check-in: 664605b88d user: mrwellan tags: v1.80
2023-03-20
10:17
changed version to 1.8009. check-in: 901bbd55b3 user: icfadm tags: v1.80, v1.8009

Modified db.scm from [f0df6a6b92] to [f29f5e0edf].

︙
1477
1478
1479
1480
1481
1482
1483
1484
1485


1486
1487
1488
1489
1490
1491
1492

1477
1478
1479
1480
1481
1482
1483


1484
1485
1486
1487
1488
1489
1490
1491
1492








-
-
+
+








;;======================================================================
;; no-sync.db - small bits of data to be shared between servers
;;======================================================================

(define (db:get-dbsync-path)
  (case (rmt:transport-mode)
    ((http)(common:get-db-tmp-area))
    ((tcp) (conc *toppath*"/.megatest"))
    ((nfs) (conc *toppath*"/.megatest"))
    ((tcp) (conc *toppath*"/.mtdb"))
    ((nfs) (conc *toppath*"/.mtdb"))
    (else "/tmp/dunno-this-gonna-exist")))

;; This is needed for api.scm
(define (db:open-no-sync-db)
   (dbfile:open-no-sync-db (db:get-dbsync-path)))
 
;; why get the keys from the db? why not get from the *configdat*
︙

Modified dbmod.scm from [d1bb9414cd] to [b286c5dacd].

︙
47
48
49
50
51
52
53
54

55
56
57
58
59
60
61





62
63
64
65
66
67
68

47
48
49
50
51
52
53

54
55
56
57
58
59
60

61
62
63
64
65
66
67
68
69
70
71
72








-
+






-
+
+
+
+
+








;; NOTE: This returns only the name "1.db", "main.db", not the path
;;
(define (dbmod:run-id->dbfname run-id)
  (conc (dbfile:run-id->dbnum run-id)".db"))

(define (dbmod:get-dbdir dbstruct)
  (let* ((areapath (dbr:dbstruct-areapath dbstruct))
	 (dbdir    (conc areapath"/.megatest")))
	 (dbdir    (conc areapath"/.mtdb")))
    (if (and (file-write-access? areapath)
	     (not (file-exists? dbdir)))
	(create-directory dbdir))
    dbdir))

(define (dbmod:run-id->full-dbfname dbstruct run-id)
  (conc (dbmod:get-dbdir dbstruct run-id)"/"(dbmod:run-id->dbfname run-id)))
  (conc (dbmod:get-dbdir dbstruct

			 run-id

			 )"/"(dbmod:run-id->dbfname run-id)))

;;======================================================================
;; Read-only inmem cached direct from disk method
;;======================================================================

(define *dbmod:nfs-db-handles* (make-hash-table)) ;; dbfname -> dbstruct
︙

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