Changeset 34664 in project


Ignore:
Timestamp:
10/01/17 08:12:30 (3 weeks ago)
Author:
kon
Message:

tag syn test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/string-utils/trunk/tests/run.scm

    r34657 r34664  
    7676)
    7777
    78 ;must be "top level"
    79 (set-sharp-string-interpolation-syntax string-interpolate)
    80 (test '("foo 3 bar") (list #"foo #{(+ 1 2)} bar"))
    81 (set-sharp-string-interpolation-syntax #f)
     78  (test-begin "String Interpolation SYNTAX")
    8279
    83 (set-sharp-string-interpolation-syntax
    84   (cute string-interpolate <> eval-tag: #\$ eval-env: (scheme-report-environment 5)))
    85 (test '("foo 3 bar") (list #"foo ${(+ 1 2)} bar"))
    86 (set-sharp-string-interpolation-syntax #f)
     80  ;must be "top level"; test-group
     81
     82  ;(test-group "String Interpolation SYNTAX"
     83  (set-sharp-string-interpolation-syntax string-interpolate)
     84  (test '("foo 3 bar") (list #"foo #{(+ 1 2)} bar"))
     85  (set-sharp-string-interpolation-syntax #f)
     86
     87  (set-sharp-string-interpolation-syntax
     88    (cute string-interpolate <> eval-tag: #\$ eval-env: (scheme-report-environment 5)))
     89  (test '("foo 3 bar") (list #"foo ${(+ 1 2)} bar"))
     90  (set-sharp-string-interpolation-syntax #f)
     91  ;)
     92
     93  (test-end)
    8794
    8895(test-end)
Note: See TracChangeset for help on using the changeset viewer.