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

[factor.git] / extra / html / parser / parser-tests.factor
diff --git a/extra/html/parser/parser-tests.factor b/extra/html/parser/parser-tests.factor

index b235448c70eacbb8205742c21bab351ecc581b9f..9607712bab3e9efa66e18af8b977ae9248d08df5 100644 (file)
--- a/extra/html/parser/parser-tests.factor
+++ b/extra/html/parser/parser-tests.factor
@@ -1,23 +1,23 @@
  USING: html.parser kernel tools.test ;
  IN: html.parser.tests
  
-{
+[
      V{ T{ tag f "html" H{ } f f } }
-} [ "<html>" parse-html ] unit-test
+] [ "<html>" parse-html ] unit-test
  
-{
+[
      V{ T{ tag f "html" H{ } f t } }
-} [ "</html>" parse-html ] unit-test
+] [ "</html>" parse-html ] unit-test
  
-{
+[
      V{ T{ tag f "a" H{ { "href" "http://factorcode.org/" } } f f } }
-} [ "<a href=\"http://factorcode.org/\">" parse-html ] unit-test
+] [ "<a href=\"http://factorcode.org/\">" parse-html ] unit-test
  
-{
+[
      V{ T{ tag f "a" H{ { "href" "http://factorcode.org/" } } f f } }
-} [ "<a   href  =  \"http://factorcode.org/\"   >" parse-html ] unit-test
+] [ "<a   href  =  \"http://factorcode.org/\"   >" parse-html ] unit-test
  
-{
+[
  V{
      T{
          tag
@@ -28,9 +28,9 @@ V{
          f
      }
  }
-} [ "<a   foo=\"bar's\" baz='\"quux\"'  >" parse-html ] unit-test
+] [ "<a   foo=\"bar's\" baz='\"quux\"'  >" parse-html ] unit-test
  
-{
+[
  V{
      T{ tag f "a"
          H{
@@ -40,9 +40,9 @@ V{
              { "baz" "quux" }
          } f f }
  }
-} [ "<a   href  =    \"http://factorcode.org/\"    foo   =  bar baz='quux'a=pirsqd  >" parse-html ] unit-test
+] [ "<a   href  =    \"http://factorcode.org/\"    foo   =  bar baz='quux'a=pirsqd  >" parse-html ] unit-test
  
-{
+[
  V{
      T{ tag f "a"
          H{
@@ -53,18 +53,18 @@ V{
              { "nofollow" "nofollow" }
          } f f }
  }
-} [ "<a   href  =    \"http://factorcode.org/\"    nofollow  foo   =  bar baz='quux'a=pirsqd  >" parse-html ] unit-test
+] [ "<a   href  =    \"http://factorcode.org/\"    nofollow  foo   =  bar baz='quux'a=pirsqd  >" parse-html ] unit-test
  
-{
+[
  V{
      T{ tag f "html" H{ } f f }
      T{ tag f "head" H{ } f f }
      T{ tag f "head" H{ } f t }
      T{ tag f "html" H{ } f t }
  }
-} [ "<html<head</head</html" parse-html ] unit-test
+] [ "<html<head</head</html" parse-html ] unit-test
  
-{
+[
  V{
      T{ tag f "head" H{ } f f }
      T{ tag f "title" H{ } f f }
@@ -72,9 +72,9 @@ V{
      T{ tag f "title" H{ } f t }
      T{ tag f "head" H{ } f t }
  }
-} [ "<head<title>Spagna</title></head" parse-html ] unit-test
+] [ "<head<title>Spagna</title></head" parse-html ] unit-test
  
-{
+[
  V{
      T{ tag
          { name dtd }
@@ -83,17 +83,17 @@ V{
          }
      }
  }
-}
+]
  [
      "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Draft//EN\">"
      parse-html
  ] unit-test
  
-{
+[
  V{
      T{ tag { name comment } { text "comment" } }
  }
-} [
+] [
      "<!--comment-->" parse-html
  ] unit-test