Megatest

Check-in [fc1c52e47f]
Login
Overview
Comment:Made -transport fs the default if -transport is not specified for operations -list-target and -list-db-target
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.54
Files: files | file ages | folders
SHA1: fc1c52e47fa78b9a8af438fe589918a20cab1312
User & Date: mrwellan on 2013-05-08 17:28:50
Other Links: branch diff | manifest | tags
Context
2013-05-08
17:47
Bumped version check-in: 31af7a1995 user: icfadm tags: v1.54, v1.5425
17:28
Made -transport fs the default if -transport is not specified for operations -list-target and -list-db-target check-in: fc1c52e47f user: mrwellan tags: v1.54
16:23
Re-enabled transport fs check-in: 8951b718b4 user: mrwellan tags: v1.54, v1.5424
Changes

Modified megatest.scm from [ff52f26603] to [46074af0df].

242
243
244
245
246
247
248





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







+
+
+
+
+







(if (args:get-arg "-version")
    (begin
      (print megatest-version)
      (exit)))

(define *didsomething* #f)

(if (and (or (args:get-arg "-list-targets")
	     (args:get-arg "-list-db-targets"))
	 (not (args:get-arg "-transport")))
    (hash-table-set! args:arg-hash "-transport" "fs"))

;;======================================================================
;; Misc setup stuff
;;======================================================================

(debug:setup)

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