Megatest

Check-in [8857f6c0b8]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Release v1.5301 merged from development
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | v1.5301
Files: files | file ages | folders
SHA1: 8857f6c0b8ffb0b5f6217c4ad7719de5ca3cbb5d
User & Date: mrwellan on 2013-03-07 12:35:04
Other Links: manifest | tags
Context
2013-03-11
15:17
Release v1.5302 merged from development check-in: 5e13bdcb3a user: mrwellan tags: trunk
2013-03-07
12:35
Release v1.5301 merged from development check-in: 8857f6c0b8 user: mrwellan tags: trunk, v1.5301
12:33
Removed dependency on realpath in Makefile, added support for deprecated itempatt check-in: b7455e07b8 user: mrwellan tags: dev
2013-03-06
15:38
Merged network-only-transport and bumped version to v1.53 check-in: 962322e080 user: mrwellan tags: trunk, v1.53
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified db.scm from [5efd80d4e8] to [97544c7725].

︙
965
966
967
968
969
970
971

972
973
974
975
976
977
978

965
966
967
968
969
970
971
972
973
974
975
976
977
978
979








+








(define (cdb:test-set-log! serverdat test-id logf)
  (if (string? logf)(cdb:client-call serverdat 'test-set-log #f *default-numtries* logf test-id)))

;;======================================================================
;; Misc. test related queries
;;======================================================================

;; MUST BE CALLED local!
(define (db:test-get-paths-matching db keynames target fnamepatt #!key (res '()))
  (let ((paths-from-db (cdb:remote-run db:test-get-paths-matching-keynames-target db keynames target res)))
    (if fnamepatt
	(apply append 
	       (map (lambda (p)
		      (glob (conc p "/" fnamepatt)))
		    paths-from-db))
︙

Modified launch.scm from [6c999e60ff] to [ff2bbcc88b].

︙
80
81
82
83
84
85
86

87
88
89
90
91
92
93

80
81
82
83
84
85
86
87
88
89
90
91
92
93
94








+








                                      runscript ;; use unadultered if contains slashes
                                      (let ((fulln (conc testpath "/" runscript)))
	                                  (if (and (file-exists? fulln)
                                                   (file-execute-access? fulln))
                                              fulln
                                              runscript))))) ;; assume it is on the path
	       (rollup-status 0))
	  (change-directory top-path)
	  (debug:print 2 "Exectuing " test-name " (id: " test-id ") on " (get-host-name))
	  ;; Setup the *runremote* global var
	  (if *runremote* (debug:print 2 "ERROR: I'm not expecting *runremote* to be set at this time"))
	  ;; (set! *runremote* runremote)
	  (set! *transport-type* (string->symbol transport))
	  (set! keys       (cdb:remote-run db:get-keys #f))
	  (set! keyvals    (if run-id (cdb:remote-run db:get-key-vals #f run-id) #f))
︙
107
108
109
110
111
112
113
114

115
116
117
118
119
120
121

108
109
110
111
112
113
114

115
116
117
118
119
120
121
122








-
+








	  (setenv "MT_TEST_RUN_DIR" work-area)
	  (setenv "MT_TEST_NAME" test-name)
	  (setenv "MT_ITEM_INFO" (conc itemdat))
	  (setenv "MT_RUNNAME"   runname)
	  (setenv "MT_MEGATEST"  megatest)
	  (setenv "MT_TARGET"    target)
	  (if mt-bindir-path (setenv "PATH" (conc (getenv "PATH") ":" mt-bindir-path)))
	  (change-directory top-path)
	  ;; (change-directory top-path)
	  (if (not (setup-for-run))
	      (begin
		(debug:print 0 "Failed to setup, exiting") 
		;; (sqlite3:finalize! db)
		;; (sqlite3:finalize! tdb)
		(exit 1)))
	  ;; Can setup as client for server mode now
︙

Modified megatest-version.scm from [5c36186f32] to [52f3f40d7f]. 

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.53)
(define megatest-version 1.5301)

Modified megatest.scm from [15795a96e6] to [db569f550d].

︙
137
138
139
140
141
142
143
144
145


146

147

148
149

150
151
152
153
154
155
156

137
138
139
140
141
142
143


144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159








-
-
+
+

+

+


+








		 (list  "-runtests"  ;; run a specific test
			"-config"    ;; override the config file name
			"-execute"   ;; run the command encoded in the base64 parameter
			"-step"
			":runname"   
			"-target"
			"-reqtarg"
			":item"
			":runname"   
			":runname"
			"-runname"
			":state"  
			"-state"
			":status"
			"-status"
			"-list-runs"
			"-testpatt" 
			"-itempatt"
			"-setlog"
			"-set-toplog"
			"-runstep"
			"-logpro"
			"-m"
			"-rerun"
			"-days"
︙
238
239
240
241
242
243
244






245
246
247
248
249
250
251

241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260








+
+
+
+
+
+








(debug:setup)

(if (args:get-arg "-logging")(set! *logging* #t))

(if (debug:debug-mode 3) ;; we are obviously debugging
    (set! open-run-close open-run-close-no-exception-handling))

(if (args:get-arg "-itempatt")
    (let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
      (debug:print 0 "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
      (hash-table-set! args:arg-hash "-testpatt" newval)
      (hash-table-delete! args:arg-hash "-itempatt")))

;;======================================================================
;; Misc general calls
;;======================================================================

(if (args:get-arg "-env2file")
    (begin
      (save-environment-as-files (args:get-arg "-env2file"))
︙

Modified tests/Makefile from [59b5837d18] to [96e646c70d]. 

1
2
3

4
5
6
7
8
9
10

1
2

3
4
5
6
7
8
9
10



-
+








# run some tests

BINPATH=$(shell realpath ../bin)
BINPATH=$(PWD)/../bin
MEGATEST=$(BINPATH)/megatest
PATH := $(BINPATH):$(PATH)
RUNNAME := $(shell date +w%V.%u.%H.%M)
IPADDR := "-"
# Set SERVER to "-server -"
SERVER  = 
DEBUG   = 1
︙

Modified tests/fullrun/runconfigs.config from [81808b3f0a] to [86fe11ce8c]. 

1



2
3
4
5
6
7
8

1
2
3
4
5
6
7
8
9
10
11


+
+
+








[include #{getenv MT_RUN_AREA_HOME}/common_runconfigs.config]

# #{system echo 'VACKYVAR #{shell pwd}' > $MT_RUN_AREA_HOME/config/$USER.config}
[include ./config/#{getenv USER}.config]

WACKYVAR0 #{get ubuntu/nfs/none CURRENT}
WACKYVAR1 #{scheme (args:get-arg "-target")}

[default/ubuntu/nfs]
WACKYVAR2 #{runconfigs-get CURRENT}
︙

Modified tests/fullrun/tests/test_mt_vars/testconfig from [ebbf948a4d] to [a0c61adcaf].

︙
10
11
12
13
14
15
16



17
18
19
20
21
22
23

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26








+
+
+








bogousnotset bogousnotset.sh

# ALT_VAR should NOT be set
altvarnotset altvarnotset.sh

# EMPTY_VAR should be an empty string
empty_var empty_var.sh

# VACKYVAR should be set to a path
vackyvar vackyvar.sh

# test-path and test-file
test-path test-path-file.sh

[requirements]
waiton runfirst
priority 0
︙

Added tests/fullrun/tests/test_mt_vars/vackyvar.sh version [48a1b07c71]. 





1
2
3

+
+
+

#!/usr/bin/env bash

grep VACKYVAR megatest.sh | grep fullrun













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