Megatest

Check-in [9d294a320e]
Login
Overview
Comment:Added tweak to preserve DISPLAY var when loading xterm and suppressed some errors on accessing a read-only testdat.db
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55 | v1.5511
Files: files | file ages | folders
SHA1: 9d294a320ed3d21dc65559b4fe56870ac01068eb
User & Date: mrwellan on 2013-08-22 14:13:42
Other Links: branch diff | manifest | tags
Context
2013-08-23
00:15
Added placeholder for index.html generator check-in: 832f340bbb user: matt tags: v1.55
2013-08-22
14:13
Added tweak to preserve DISPLAY var when loading xterm and suppressed some errors on accessing a read-only testdat.db check-in: 9d294a320e user: mrwellan tags: v1.55, v1.5511
11:56
Added filter/not filter for state/status and changed bgcolor when a filter is set check-in: 7aa57d6809 user: mrwellan tags: v1.55
Changes

Modified db.scm from [747eb0445a] to [af754dfc45].

257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
	     (dbexists  (file-exists? dbpath))
	     (handler   (make-busy-timeout (if (args:get-arg "-override-timeout")
					       (string->number (args:get-arg "-override-timeout"))
					       136000))))
	(handle-exceptions
	 exn
	 (begin
	   (debug:print 0 "ERROR: problem accessing test db " work-area ", you probably should clean and re-run this test"
			((condition-property-accessor 'exn 'message) exn))
	   (set! db (sqlite3:open-database ":memory:"))) ;; open an in-memory db to allow readonly access 
	 (set! db (sqlite3:open-database dbpath)))
	(sqlite3:set-busy-handler! db handler)
	(if (not dbexists)
	    (begin
	      (sqlite3:execute db "PRAGMA synchronous = FULL;")







|







257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
	     (dbexists  (file-exists? dbpath))
	     (handler   (make-busy-timeout (if (args:get-arg "-override-timeout")
					       (string->number (args:get-arg "-override-timeout"))
					       136000))))
	(handle-exceptions
	 exn
	 (begin
	   (debug:print 2 "ERROR: problem accessing test db " work-area ", you probably should clean and re-run this test"
			((condition-property-accessor 'exn 'message) exn))
	   (set! db (sqlite3:open-database ":memory:"))) ;; open an in-memory db to allow readonly access 
	 (set! db (sqlite3:open-database dbpath)))
	(sqlite3:set-busy-handler! db handler)
	(if (not dbexists)
	    (begin
	      (sqlite3:execute db "PRAGMA synchronous = FULL;")

Modified utils/mt_xterm from [7cf892b486] to [40d98efdc8].

1
2

3
4
5

6
7
8
9
10
11
12
#!/bin/bash


if [ -e megatest.sh ];then
  source megatest.sh
fi


if [ x"$MT_XTERM_CMD" == "x" ];then
  exec xterm "$@"
else
  exec $MT_XTERM_CMD
fi



>



>







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

MT_TMPDISPLAY=$DISPLAY
if [ -e megatest.sh ];then
  source megatest.sh
fi
export DISPLAY=$MT_TMPDISPLAY

if [ x"$MT_XTERM_CMD" == "x" ];then
  exec xterm "$@"
else
  exec $MT_XTERM_CMD
fi