Overview
| Comment: | Corrected wrong include structure in refactored tests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
47a6a72664719c4505bbbd74e486d27a |
| User & Date: | matt on 2012-04-30 00:06:38 |
| Other Links: | manifest | tags |
Context
|
2012-05-03
| ||
| 13:52 | Merging blocking fix to trunk check-in: 41ef747b91 user: mrwellan tags: trunk | |
|
2012-05-01
| ||
| 23:47 | Bug fix for blocking tests where prereq is FAIL check-in: 9a2d3e30d1 user: matt tags: blocking-on-FAIL-fix | |
|
2012-04-30
| ||
| 14:43 | Merging fix to tests for config file includes check-in: be7c0017bf user: mrwellan tags: v1.43 | |
| 00:06 | Corrected wrong include structure in refactored tests check-in: 47a6a72664 user: matt tags: trunk | |
|
2012-04-27
| ||
| 11:18 | Adding test for the broken config include check-in: feb0168376 user: mrwellan tags: trunk | |
Changes
Modified configf.scm from [2c4fe9609e] to [09b43df907].
| ︙ | ︙ | |||
128 129 130 131 132 133 134 135 136 137 138 139 140 141 |
(if (not ht)(make-hash-table) ht))
(let ((inp (open-input-file path))
(res (if (not ht)(make-hash-table) ht)))
(let loop ((inl (configf:read-line inp res)) ;; (read-line inp))
(curr-section-name (if curr-section curr-section "default"))
(var-flag #f);; turn on for key-var-pr and cont-ln-rx, turn off elsewhere
(lead #f))
(if (eof-object? inl)
(begin
(close-input-port inp)
(hash-table-delete! res "") ;; we are using "" as a dumping ground and must remove it before returning the ht
res)
(regex-case
inl
| > | 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 |
(if (not ht)(make-hash-table) ht))
(let ((inp (open-input-file path))
(res (if (not ht)(make-hash-table) ht)))
(let loop ((inl (configf:read-line inp res)) ;; (read-line inp))
(curr-section-name (if curr-section curr-section "default"))
(var-flag #f);; turn on for key-var-pr and cont-ln-rx, turn off elsewhere
(lead #f))
(debug:print 8 "INFO: curr-section-name: " curr-section-name " var-flag: " var-flag "\n inl: \"" inl "\"")
(if (eof-object? inl)
(begin
(close-input-port inp)
(hash-table-delete! res "") ;; we are using "" as a dumping ground and must remove it before returning the ht
res)
(regex-case
inl
|
| ︙ | ︙ |
Deleted tests/fullrun/config/mt_include_1.config_2.config version [a6006b146c].
|
| < < |
Added tests/fullrun/config/mt_include_2.config version [a6006b146c].
> > | 1 2 | [disks] disk0 /tmp/mt_runs |
Modified tests/fullrun/megatest.config from [819220dc64] to [feaafde063].
| ︙ | ︙ | |||
35 36 37 38 39 40 41 | ## disks are: ## name host:/path/to/area ## -or- ## name /path/to/area [disks] disk0 /foobarbazz | | | 35 36 37 38 39 40 41 42 43 44 |
## disks are:
## name host:/path/to/area
## -or-
## name /path/to/area
[disks]
disk0 /foobarbazz
[include config/mt_include_2.config]
[include #{getenv USER}_testing.config]
|