interpolate: allow anonymous by-order stack arguments.

[factor.git] / basis / interpolate / interpolate-tests.factor

diff --git a/basis/interpolate/interpolate-tests.factor b/basis/interpolate/interpolate-tests.factor
index b694878427c8b979f22027690a1583122012d67e..01d64699720bd91f89539784609f2d2bdcccb296 100644 (file)
--- a/basis/interpolate/interpolate-tests.factor
+++ b/basis/interpolate/interpolate-tests.factor
@@ -6,6 +6,7 @@ IN: interpolate.tests
 { "A B" } [ "A" "B" "${1} ${0}" interpolate>string ] unit-test
 { "B A" } [ "A" "B" "${0} ${1}" interpolate>string ] unit-test
 { "C A" } [ "A" "B" "C" "${0} ${2}" interpolate>string ] unit-test
+{ "C B A" } [ "A" "B" "C" "${} ${1} ${2}" interpolate>string ] unit-test
 
 { "Hello, Jane." } [
     "Jane" "name" set
@@ -17,6 +18,18 @@ IN: interpolate.tests
     "Mr." "${0} ${name}" interpolate>string
 ] unit-test
 
+{ "Hello, Mr. Anderson" } [
+    "Mr." "Anderson"
+    "Hello, ${} ${}" interpolate>string
+] unit-test
+
+{ "Mixing named and stack variables... stacks are cool!" } [
+    "cool!" "what" set
+    "named" "stack"
+    "Mixing ${} and ${} variables... ${0}s are ${what}"
+    interpolate>string
+] 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