Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...

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

diff --git a/basis/urls/urls-tests.factor b/basis/urls/urls-tests.factor
index a9d04bda046d79c0f784cb46882d4121477302e6..f66f40b1cf897a9f234021465c9e5827ea8ea703 100644 (file)
--- a/basis/urls/urls-tests.factor
+++ b/basis/urls/urls-tests.factor
@@ -99,26 +99,26 @@ urls [
     swap [ 1array ] [ [ present ] curry ] bi* unit-test
 ] assoc-each
 
-{ "b" } [ "a" "b" url-append-path ] unit-test
+[ "b" ] [ "a" "b" url-append-path ] unit-test
 
-{ "a/b" } [ "a/c" "b" url-append-path ] unit-test
+[ "a/b" ] [ "a/c" "b" url-append-path ] unit-test
 
-{ "a/b" } [ "a/" "b" url-append-path ] unit-test
+[ "a/b" ] [ "a/" "b" url-append-path ] unit-test
 
-{ "/b" } [ "a" "/b" url-append-path ] unit-test
+[ "/b" ] [ "a" "/b" url-append-path ] unit-test
 
-{ "/b" } [ "a/b/" "/b" url-append-path ] unit-test
+[ "/b" ] [ "a/b/" "/b" url-append-path ] unit-test
 
-{ "/xxx/bar" } [ "/xxx/baz" "bar" url-append-path ] unit-test
+[ "/xxx/bar" ] [ "/xxx/baz" "bar" url-append-path ] unit-test
 
-{
+[
     T{ url
         { protocol "http" }
         { host "www.apple.com" }
         { port 1234 }
         { path "/a/path" }
     }
-} [
+] [
     T{ url
         { protocol "http" }
         { host "www.apple.com" }
@@ -133,7 +133,7 @@ urls [
     derive-url
 ] unit-test
 
-{
+[
     T{ url
         { protocol "http" }
         { host "www.apple.com" }
@@ -142,7 +142,7 @@ urls [
         { query H{ { "a" "b" } } }
         { anchor "foo" }
     }
-} [
+] [
     T{ url
         { protocol "http" }
         { host "www.apple.com" }
@@ -159,7 +159,7 @@ urls [
     derive-url
 ] unit-test
 
-{
+[
     T{ url
         { protocol "http" }
         { host "www.apple.com" }
@@ -168,7 +168,7 @@ urls [
         { query H{ { "a" "b" } } }
         { anchor "foo" }
     }
-} [
+] [
     T{ url
         { protocol "http" }
         { host "www.apple.com" }
@@ -185,13 +185,13 @@ urls [
     derive-url
 ] unit-test
 
-{
+[
     T{ url
         { protocol "http" }
         { host "www.apple.com" }
         { path "/xxx/baz" }
     }
-} [
+] [
     T{ url
         { protocol "http" }
         { host "www.apple.com" }
@@ -205,12 +205,12 @@ urls [
     derive-url
 ] unit-test
 
-{
+[
     T{ url
         { protocol "https" }
         { host "www.apple.com" }
     }
-} [
+] [
     T{ url
         { protocol "http" }
         { host "www.apple.com" }
@@ -226,52 +226,52 @@ urls [
 ] unit-test
 
 ! Support //foo.com, which has the same protocol as the url we derive from
-{ URL" http://foo.com" }
+[ URL" http://foo.com" ]
 [ URL" http://google.com" URL" //foo.com" derive-url ] unit-test
 
-{ URL" https://foo.com" }
+[ URL" https://foo.com" ]
 [ URL" https://google.com" URL" //foo.com" derive-url ] unit-test
 
-{ "a" } [
+[ "a" ] [
     <url> "a" "b" set-query-param "b" query-param
 ] unit-test
 
-{ "foo#3" } [ URL" foo" clone 3 >>anchor present ] unit-test
+[ "foo#3" ] [ URL" foo" clone 3 >>anchor present ] unit-test
 
-{ "http://www.foo.com/" } [ "http://www.foo.com:80" >url present ] unit-test
+[ "http://www.foo.com/" ] [ "http://www.foo.com:80" >url present ] unit-test
 
-{ f } [ URL" /gp/redirect.html/002-7009742-0004012?location=http://advantage.amazon.com/gp/vendor/public/join%26token%3d77E3769AB3A5B6CF611699E150DC33010761CE12" protocol>> ] unit-test
+[ f ] [ URL" /gp/redirect.html/002-7009742-0004012?location=http://advantage.amazon.com/gp/vendor/public/join%26token%3d77E3769AB3A5B6CF611699E150DC33010761CE12" protocol>> ] unit-test
 
-{
+[
     T{ url
         { protocol "http" }
         { host "localhost" }
         { query H{ { "foo" "bar" } } }
         { path "/" }
     }
-}
+]
 [ "http://localhost?foo=bar" >url ] unit-test
 
-{
+[
     T{ url
         { protocol "http" }
         { host "localhost" }
         { query H{ { "foo" "bar" } } }
         { path "/" }
     }
-}
+]
 [ "http://localhost/?foo=bar" >url ] unit-test
 
-{ "/" } [ "http://www.jedit.org" >url path>> ] unit-test
+[ "/" ] [ "http://www.jedit.org" >url path>> ] unit-test
 
-{ "USING: urls ;\nURL\" foo\"" } [ URL" foo" unparse-use ] unit-test
+[ "USING: urls ;\nURL\" foo\"" ] [ URL" foo" unparse-use ] unit-test
 
-{ T{ inet { host "google.com" } { port 80 } } }
+[ T{ inet { host "google.com" } { port 80 } } ]
 [ URL" http://google.com/" url-addr ] unit-test
 
-{
+[
     T{ secure
        { addrspec T{ inet { host "google.com" } { port 443 } } }
     }
-}
+]
 [ URL" https://google.com/" url-addr ] unit-test