]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/sequences/inserters/inserters-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / extra / sequences / inserters / inserters-tests.factor
index 3bc38ed7a0019b9985ab9da3227a369729b01236..a49f3cce42045628868e169f5753e88b3fd833d5 100644 (file)
@@ -3,42 +3,42 @@ USING: assocs kernel sequences sequences.inserters tools.test
 unicode.case ;
 IN: sequences.inserters.tests
 
-{ V{ 1 2 "Three" "Four" "Five" } } [
+[ V{ 1 2 "Three" "Four" "Five" } ] [
     { "three" "four" "five" }
     [ >title ] V{ 1 2 } clone <appender> map-as
 ] unit-test
 
-{ t } [
+[ t ] [
     { "three" "four" "five" }
     [ >title ] V{ 1 2 } clone [ <appender> map-as ] keep eq?
 ] unit-test
 
-{ V{ 1 2 "Three" "Four" "Five" } } [
+[ V{ 1 2 "Three" "Four" "Five" } ] [
     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
     [ append ] V{ 1 2 } clone <appender> assoc>map
 ] unit-test
 
-{ t } [
+[ t ] [
     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
     [ append ] V{ 1 2 } clone [ <appender> assoc>map ] keep eq?
 ] unit-test
 
-{ V{ "Three" "Four" "Five" } } [
+[ V{ "Three" "Four" "Five" } ] [
     { "three" "four" "five" }
     [ >title ] V{ 1 2 } clone <replacer> map-as
 ] unit-test
 
-{ t } [
+[ t ] [
     { "three" "four" "five" }
     [ >title ] V{ 1 2 } clone [ <replacer> map-as ] keep eq?
 ] unit-test
 
-{ V{ "Three" "Four" "Five" } } [
+[ V{ "Three" "Four" "Five" } ] [
     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
     [ append ] V{ 1 2 } clone <replacer> assoc>map
 ] unit-test
 
-{ t } [
+[ t ] [
     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
     [ append ] V{ 1 2 } clone [ <replacer> assoc>map ] keep eq?
 ] unit-test