Megatest

Check-in [b4ff9e2f1d]
Login
Overview
Comment:Go back to single log for a server. The splitting of the logs was not proving useful
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.0001
Files: files | file ages | folders
SHA1: b4ff9e2f1d4d9ca882b5c9254d5bd3cf34d9db90
User & Date: matt on 2022-01-11 09:00:50
Other Links: branch diff | manifest | tags
Context
2022-01-14
16:24
Added some testing scripts for ulex and standalone tcp-server Leaf check-in: 4faf3cbddf user: jmoon18 tags: v2.0001-ulex-testing-jm
05:49
Move close-output-port to right after sending serialize data Leaf check-in: ec82c7ffc8 user: matt tags: v2.0001-blocking-fix
2022-01-12
16:40
wip, misc cleanup and reduce some messages. check-in: 20b4054f76 user: matt tags: v2.0001
12:23
Added additional cleanup for ulex-tests check-in: f012b3cc77 user: jmoon18 tags: v2.0001
2022-01-11
09:00
Go back to single log for a server. The splitting of the logs was not proving useful check-in: b4ff9e2f1d user: matt tags: v2.0001
2022-01-10
17:46
Just randomly tried mailbox/mailbox and it seems to be working pretty well. Wierd. check-in: 3d29ed0bb1 user: matt tags: v2.0001
Changes

Modified apimod.scm from [97d3b608d8] to [37041542cf].

173
174
175
176
177
178
179
180
181



182
183
184
185
186
187
188
173
174
175
176
177
178
179


180
181
182
183
184
185
186
187
188
189







-
-
+
+
+







	 (logd        (conc apath "/logs")) 
	 (logf        (conc logd "/server-launch-";;(current-process-id)
			    (seconds->year-work-week/day-time-fname (current-seconds))
			    "-"cleandbname".log"))
	 (logf2       (conc logd "/server-"
			    (seconds->year-work-week/day-time-fname (current-seconds))
			    "-"cleandbname"-"))
	 (cmd  (conc "nbfake megatest -server - -area "apath
		     " -db "dbname" -autolog "logf2)))
	 (cmd  (conc "nbfake megatest -server - -area "apath" -db "dbname)
		     ;; " -autolog "logf2 ;; the side log did not help. Ended up with two logs and the pid in the name was not that useful.
		     ))
    (if (not (directory-exists? logd))
	(create-directory logd #t))
    (system (conc "NBFAKE_LOG="logf" "cmd))))

;; special function to get server
;; look up in db
;; if found -> return it