Random Bits of Open Code

Check-in [859807ca0b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:added mtconfigf test for eval-string-in-environment
Timelines: family | ancestors | descendants | both | modularize-debug
Files: files | file ages | folders
SHA1:859807ca0be6035d1751639182bc12740e2e06b1
User & Date: bjbarcla 2019-01-07 18:52:16
Context
2019-01-08
00:21
updated repository-path to work for any chicken number check-in: 1eb79a1815 user: bjbarcla tags: modularize-debug
2019-01-07
18:52
added mtconfigf test for eval-string-in-environment check-in: 859807ca0b user: bjbarcla tags: modularize-debug
18:18
fixed rget in mtconfigf check-in: 3602c6e29e user: bjbarcla tags: modularize-debug
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to mtutils/mtconfigf/tests/run.scm.

29
30
31
32
33
34
35



36
37
38
39
40
41
42
43
44
45
  (test #f "bar" (config:lookup cfgdat "schemy" "rgetreftarget"))
  (test #f "baz" (config:lookup cfgdat "schemy" "rgetrefdefault"))
  (test #f "2" (config:lookup cfgdat "schemy" "addup"))
  (test #f 2 (config:lookup-number cfgdat "schemy" "addup"))
  (test #f "hello" (config:lookup cfgdat "schemy" "custom"))
  )





(let* ((cfgdat
        (config:read-config "tests/test3.config" #f #t)))
  (test #f "hello" (config:lookup cfgdat "systemic" "hello"))
  (test #f
        (conc "hello " (get-environment-variable "USER"))
        (config:lookup cfgdat "systemic" "hellouser"))

  )








>
>
>










29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
  (test #f "bar" (config:lookup cfgdat "schemy" "rgetreftarget"))
  (test #f "baz" (config:lookup cfgdat "schemy" "rgetrefdefault"))
  (test #f "2" (config:lookup cfgdat "schemy" "addup"))
  (test #f 2 (config:lookup-number cfgdat "schemy" "addup"))
  (test #f "hello" (config:lookup cfgdat "schemy" "custom"))
  )

(test #f
      (conc "hello " (get-environment-variable "USER"))
      (config:eval-string-in-environment "hello $USER"))

(let* ((cfgdat
        (config:read-config "tests/test3.config" #f #t)))
  (test #f "hello" (config:lookup cfgdat "systemic" "hello"))
  (test #f
        (conc "hello " (get-environment-variable "USER"))
        (config:lookup cfgdat "systemic" "hellouser"))

  )