2008-10-01 19:15:41 -04:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-12-04 03:26:34 -05:00
|
|
|
USING: interpolate io.streams.string namespaces tools.test locals ;
|
2008-10-01 19:15:41 -04:00
|
|
|
IN: interpolate.tests
|
2008-12-04 03:26:34 -05:00
|
|
|
|
|
|
|
|
[ "Hello, Jane." ] [
|
|
|
|
|
"Jane" "name" set
|
|
|
|
|
[ "Hello, ${name}." interpolate ] with-string-writer
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "Sup Dawg, we heard you liked rims, so we put rims on your rims so you can roll while you roll." ] [
|
|
|
|
|
"Dawg" "name" set
|
|
|
|
|
"rims" "noun" set
|
|
|
|
|
"roll" "verb" set
|
|
|
|
|
[ "Sup ${name}, we heard you liked ${noun}, so we put ${noun} on your ${noun} so you can ${verb} while you ${verb}." interpolate ] with-string-writer
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "Oops, I accidentally the whole economy..." ] [
|
2009-10-27 22:50:31 -04:00
|
|
|
[let
|
|
|
|
|
"economy" :> noun
|
2008-12-04 03:26:34 -05:00
|
|
|
[ I[ Oops, I accidentally the whole ${noun}...]I ] with-string-writer
|
|
|
|
|
]
|
|
|
|
|
] unit-test
|
