Megatest

Check-in [2c06a41e7e]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Fixed regression on running in read only areas where db does not exist. Made timeout long for cases where tests appear to be non-runnable. Improved chicken install script
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55 | v1.5522
Files: files | file ages | folders
SHA1: 2c06a41e7e38554c5b97fd0441bfcb9420ae5865
User & Date: mrwellan on 2014-06-19 11:35:28
Other Links: branch diff | manifest | tags
Context
2014-06-22
18:18
Fixed scroll wheel action on tests panel, added sort on alphanumeric to sorted-tests check-in: fee756ae59 user: matt tags: v1.55
2014-06-19
11:35
Fixed regression on running in read only areas where db does not exist. Made timeout long for cases where tests appear to be non-runnable. Improved chicken install script check-in: 2c06a41e7e user: mrwellan tags: v1.55, v1.5522
00:34
Added random delay to help spread out invocations of loadrunner check-in: 25320ac902 user: matt tags: v1.55
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified megatest-version.scm from [ace2c51771] to [002fd665e3]. 

1
2
3
4
5
6

7

1
2
3
4
5

6
7






-
+


;; Always use two digit decimal
;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..

(declare (unit megatest-version))

(define megatest-version 1.5521)
(define megatest-version 1.5522)

Modified runs.scm from [a35316fdbf] to [4e5c067164].

︙
906
907
908
909
910
911
912
913

914
915
916
917
918
919
920

906
907
908
909
910
911
912

913
914
915
916
917
918
919
920








-
+








	     (newtal      (append tal (list hed)))
	     (regfull     (>= (length reg) reglen))
	     (num-running (cdb:remote-run db:get-count-tests-running-for-run-id #f run-id)))

      (if (> num-running 0)
	  (set! last-time-some-running (current-seconds)))

      (if (> (current-seconds)(+ last-time-some-running 60))
      (if (> (current-seconds)(+ last-time-some-running 240))
	  (hash-table-set! *max-tries-hash* tfullname (+ (hash-table-ref/default *max-tries-hash* tfullname 0) 1)))
	;; (debug:print 0 "max-tries-hash: " (hash-table->alist *max-tries-hash*))

	;; Ensure all top level tests get registered. This way they show up as "NOT_STARTED" on the dashboard
	;; and it is clear they *should* have run but did not.
	(if (not (hash-table-ref/default test-registry (runs:make-full-test-name test-name "") #f))
	    (begin
︙

Modified tasks.scm from [8ae8213233] to [d7fb3bbbc7].

︙
18
19
20
21
22
23
24









25
26
27
28
29
30
31




32
33
34
35
36
37
38



39
40
41
42
43
44
45

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37



38
39
40
41
42
43
44
45
46
47

48
49
50
51
52
53
54
55
56
57








+
+
+
+
+
+
+
+
+




-
-
-
+
+
+
+






-
+
+
+









(include "task_records.scm")

;;======================================================================
;; Tasks db
;;======================================================================

;; If file exists AND
;;    file readable
;;         ==> open it
;; If file exists AND
;;    file NOT readable
;;         ==> open in-mem version
;; If file NOT exists
;;    ==> open in-mem version
;;
(define (tasks:open-db)
  (let* ((dbpath       (conc *toppath* "/monitor.db"))
	 (exists       (file-exists? dbpath))
	 (write-access (file-write-access? dbpath))
	 (mdb          ;; (if (file-write-access? *toppath*)
			   (sqlite3:open-database dbpath))
			   ;; (sqlite3:open-database ":memory:"))) ;; (never-give-up-open-db dbpath))
	 (mdb          (cond
			((file-write-access? *toppath*)(sqlite3:open-database dbpath))
			((file-read-access? dbpath)    (sqlite3:open-database dbpath))
			(else (sqlite3:open-database ":memory:")))) ;; (never-give-up-open-db dbpath))
	 (handler      (make-busy-timeout 36000)))
    (if (and exists
	     (not write-access))
	(set! *db-write-access* write-access)) ;; only unset so other db's also can use this control
    (sqlite3:set-busy-handler! mdb handler)
    (sqlite3:execute mdb (conc "PRAGMA synchronous = 0;"))
    (if (not exists)
    (if (or (and (not exists)
		 (file-write-access? *toppath*))
	    (not (file-read-access? dbpath)))
	(begin
	  (sqlite3:execute mdb "CREATE TABLE IF NOT EXISTS tasks_queue (id INTEGER PRIMARY KEY,
                                action TEXT DEFAULT '',
                                owner TEXT,
                                state TEXT DEFAULT 'new',
                                target TEXT DEFAULT '',
                                name TEXT DEFAULT '',
︙

Modified utils/Makefile_latest.installall from [9c40b7f989] to [89573a2276].

︙
41
42
43
44
45
46
47
48

49
50
51
52
53
54
55

41
42
43
44
45
46
47

48
49
50
51
52
53
54
55








-
+








IUPBRANCH=iup-3.10.1

# Eggs to install (straightforward ones)
EGGS=matchable readline apropos base64 regex-literals format regex-case test coops trace csv \
     dot-locking posix-utils posix-extras directory-utils hostinfo tcp-server rpc csv-xml fmt \
     json md5 awful http-client spiffy uri-common intarweb spiffy-request-vars \
     spiffy-directory-listing ssax sxml-serializer sxml-modifications sql-de-lite \
     srfi-19
     srfi-19 refdb

#
# Derived variables
#

ifeq ($(PROXY),)
PROX=
︙
166
167
168
169
170
171
172
173

174
175
176

177
178
179
180


181
182
183
184
185
186
187
188
189
190

166
167
168
169
170
171
172

173
174
175

176
177
178


179
180
181
182
183
184
185
186
187
188
189
190








-
+


-
+


-
-
+
+











iuplib.fossil :
	fossil clone http://www.kiatoa.com/fossils/iuplib iuplib.fossil

iup/installall.sh : iuplib.fossil
	mkdir -p iup
	cd iup && if [ -e installall.sh ];then fossil update $(IUPBRANCH); else fossil open ../iuplib.fossil;fossil update $(IUPBRANCH); fi

iup/iup/alldone : iup/installall.sh $(PREFIX)/include/iup.h
iup/alldone : iup/installall.sh $(PREFIX)/include/iup.h $(PREFIX)/lib/libiup.so
	cd iup && ./makeall.sh

$(PREFIX)/include/iup.h : iup/installall.sh
$(PREFIX)/lib/libiup.so $(PREFIX)/include/iup.h : iup/installall.sh iup/alldone
	cd iup && ./installall.sh

$(PREFIX)/lib/libiup.so : iup/iup/alldone
	touch -c $(PREFIX)/lib/libiup.so
# $(PREFIX)/lib/libiup.so : iup/iup/alldone
#	touch -c $(PREFIX)/lib/libiup.so

$(CHICKEN_EGG_DIR)/iup.so : $(PREFIX)/lib/libiup.so
	LD_LIBRARY_PATH=$(LD_LIBRARY_PATH) CSC_OPTIONS=$(CSC_OPTIONS) $(CHICKEN_INSTALL) $(PROX) -D no-library-checks -feature disable-iup-web iup

$(CHICKEN_EGG_DIR)/canvas-draw.so :  $(PREFIX)/lib/libiup.so
	CSC_OPTIONS=$(CSC_OPTIONS) $(CHICKEN_INSTALL) $(PROX) -D no-library-checks canvas-draw


clean :
	rm -rf chicken-4.8.0 eggflags ffcall sqlite-autoconf-$(SQLITE3_VERSION)

Modified utils/installck.sh from [97138f77ad] to [7eb094e9b0].

︙
10
11
12
13
14
15
16


17
18
19
20

10
11
12
13
14
15
16
17
18
19
20
21
22








+
+





  export PROX="-proxy $proxy"
fi

if [[ -z $PREFIX ]];then
  echo "\$PREFIX variable is required"
  exit
fi

export LD_LIBRARY_NAME=$PREFIX/lib

logname=$(basename $PREFIX)

script -c "make -f $myhome/Makefile_latest.installall all" $logname.log

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