Megatest

Check-in [27718f7cf5]
Login
Overview
Comment:Turn off runremote reset of 180 sec
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70 | v1.7002
Files: files | file ages | folders
SHA1: 27718f7cf5b6fe6a94ff821b8948b1141c211ee7
User & Date: matt on 2022-06-08 20:09:49
Other Links: branch diff | manifest | tags
Context
2022-06-10
10:49
Fixed db:multi-db-sync when /tmp dbs do not exist check-in: 6ddbf1276a user: mmgraham tags: v1.70
2022-06-08
20:09
Turn off runremote reset of 180 sec check-in: 27718f7cf5 user: matt tags: v1.70, v1.7002
18:36
Guarded against \*runremote*\ being \#f check-in: 9b7a0e6fb7 user: mmgraham tags: v1.70
Changes

Modified rmt.scm from [f2baad3376] to [fa25f8e8fb].

118
119
120
121
122
123
124
125

126
127
128
129
130
131
132
118
119
120
121
122
123
124

125
126
127
128
129
130
131
132







-
+







    ;; ensure we have a homehost record
    (if (not (pair? (remote-hh-dat runremote)))  ;; not on homehost
	(thread-sleep! 0.1) ;; since we shouldn't get here, delay a little
	(remote-hh-dat-set! runremote (common:get-homehost)))
    
    ;;(print "BB> readonly-mode is "readonly-mode" dbfile is "dbfile)
    (cond
     ((> (- (current-seconds)(remote-connect-time runremote)) 180) ;; reconnect to server every 180 seconds
     #;((> (- (current-seconds)(remote-connect-time runremote)) 180) ;; reconnect to server every 180 seconds
      (debug:print 0 *default-log-port* "Forcing reconnect to server(s) due to 180 second timeout.")
      (set! *runremote* #f)
      ;; BUG: close-connections should go here?
      (mutex-unlock! *rmt-mutex*)
      (rmt:send-receive cmd rid params attemptnum: 1 area-dat: area-dat))
     
     ;;DOT EXIT;

Added testlocking/justtest.scm version [59ddbd6a63].










1
2
3
4
5
6
7
8
9
+
+
+
+
+
+
+
+
+
(print "Starting at "(current-seconds))

(dbfile:with-simple-file-lock "justtesting.lock" 
			      (lambda ()
				(print "got the lock at "(current-seconds)"!")))

(print "Done at: " (current-seconds))
(exit)

Added testlocking/testlock.sh version [d778a78ed8].













1
2
3
4
5
6
7
8
9
10
11
12
+
+
+
+
+
+
+
+
+
+
+
+
#!/bin/bash

HRS=$(date +%H)
MINS=$(($(date +%M) + 1))
if [[ $MINS -lt 10 ]];then
  MINS="0${MINS}"
fi
THETIME="$HRS:$MINS"
echo "THETIME=$THETIME"
for x in a b c d e f g h i j;do
   echo "megatest -load justtest.scm > $x.log" | at $THETIME
done