Megatest

Check-in [8cdcec66a6]
Login
Overview
Comment:Added setting of MT_RUNNAME if available prior to processing megatest.config and added test
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 8cdcec66a62648377071a149cff2280b371b63d2
User & Date: matt on 2015-04-02 21:20:33
Other Links: branch diff | manifest | tags
Context
2015-04-02
22:14
Added faststart (on by default), allows first few writes to pass through without server check-in: 7d2567e262 user: matt tags: v1.60
21:20
Added setting of MT_RUNNAME if available prior to processing megatest.config and added test check-in: 8cdcec66a6 user: matt tags: v1.60
2015-04-01
01:20
Merged in ezsteps refactor branch check-in: db2ccc3980 user: matt tags: v1.60
Changes

Modified launch.scm from [492563d3d0] to [5de4b9b150].

498
499
500
501
502
503
504


505
506
507
508
509





510
511
512
513
514
515
516
498
499
500
501
502
503
504
505
506





507
508
509
510
511
512
513
514
515
516
517
518







+
+
-
-
-
-
-
+
+
+
+
+







							    (get-environment-variable "MT_RUNNAME")  "/"
							    ".megatest.cfg")))
				     (if (file-exists? alistconfig)
					 (list (configf:read-alist alistconfig)
					       (get-environment-variable "MT_RUN_AREA_HOME"))
					 #f))
				   #f) ;; no config cached - give up
			       (let ((runname (or (args:get-arg "-runname")(args:get-arg ":runname"))))
				 (if runname (setenv "MT_RUNNAME" runname))
			       (find-and-read-config 
				(if (args:get-arg "-config")(args:get-arg "-config") "megatest.config")
				environ-patt: "env-override"
				given-toppath: (get-environment-variable "MT_RUN_AREA_HOME")
				pathenvvar: "MT_RUN_AREA_HOME")))
				 (find-and-read-config 
				  (if (args:get-arg "-config")(args:get-arg "-config") "megatest.config")
				  environ-patt: "env-override"
				  given-toppath: (get-environment-variable "MT_RUN_AREA_HOME")
				  pathenvvar: "MT_RUN_AREA_HOME"))))
	(set! *configdat*  (if (car *configinfo*)(car *configinfo*) #f))
	(set! *toppath*    (if (car *configinfo*)(cadr *configinfo*) #f))
	(let* ((tmptransport (configf:lookup *configdat* "server" "transport"))
	       (transport    (if tmptransport (string->symbol tmptransport) 'http)))
	  (if (member transport '(http rpc nmsg))
	      (set! *transport-type* transport)
	      (begin

Modified tests/fullrun/megatest.config from [08287ce2b3] to [25c78a78c3].

115
116
117
118
119
120
121


122


123
124
125
126
127
128
129
115
116
117
118
119
120
121
122
123

124
125
126
127
128
129
130
131
132







+
+
-
+
+







# The empty var should have a definition with null string
EMPTY_VAR

WRAPPEDVAR This var should have the work blah thrice: \
blah \
blah

MYRUNNAME1 /this/is/#{getenv MT_RUNNAME}/my/runname
MYRUNNAME2 /this/is/[system echo $MT_RUNNAME]/my/runname
MAX_ALLOWED_LOAD 200


# XTERM   [system xterm]
# RUNDEAD [system exit 56]

[server]

# Use http instead of direct filesystem access
transport http

Modified tests/fullrun/tests/ez_pass/testconfig from [55e83172e9] to [495009f510].

1
2
3
4
5




6
7
8
9
10
11
12
1
2
3


4
5
6
7
8
9
10
11
12
13
14



-
-
+
+
+
+







[setup]

[ezsteps]
lookittmp   ls /tmp
lookithome  ls /home
lookittmp   sleep 1;ls /tmp
lookithome  sleep 1;ls /home
isrunname1  sleep 1;echo $MYRUNNAME1 | grep -v '#f' 
isrunname2  sleep 1;echo $MYRUNNAME2 | grep -v '#f' 

[test_meta]
author matt
owner  bob
description This test runs a single ezstep which is expected to pass, no logpro file.

tags first,single