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
(if (args:get-arg "-version")
    (begin
      (print megatest-version)
      (exit)))

(define *didsomething* #f)






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

(debug:setup)

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







>
>
>
>
>







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))