]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/html/parser/analyzer/analyzer-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / extra / html / parser / analyzer / analyzer-tests.factor
index fc40ee9825166e6e528af3584a86c7096b5729fa..25016cd996039daa197de080a40c31c124d5b9c3 100644 (file)
@@ -3,22 +3,22 @@
 USING: html.parser html.parser.analyzer kernel math sequences tools.test ;
 IN: html.parser.analyzer.tests
 
-[ 0 3 ]
+{ 0 3 }
 [ 1 { 3 5 7 9 11 } [ odd? ] find-nth ] unit-test
 
-[ 2 7 ]
+{ 2 7 }
 [ 3 { 3 5 7 9 11 } [ odd? ] find-nth ] unit-test
 
-[ 3 9 ]
+{ 3 9 }
 [ 3 1 { 3 5 7 9 11 } [ odd? ] find-nth-from ] unit-test
 
-[ 4 11 ]
+{ 4 11 }
 [ 1 { 3 5 7 9 11 } [ odd? ] find-last-nth ] unit-test
 
-[ 2 7 ]
+{ 2 7 }
 [ 3 { 3 5 7 9 11 } [ odd? ] find-last-nth ] unit-test
 
-[ 0 3 ]
+{ 0 3 }
 [ 1 2 { 3 5 7 9 11 } [ odd? ] find-last-nth-from ] unit-test
 
 
@@ -28,36 +28,36 @@ IN: html.parser.analyzer.tests
 [ 0 { 3 5 7 9 11 } [ odd? ] find-last-nth ]
 [ undefined-find-nth? ] must-fail-with
 
-[ V{
+{ V{
     T{ tag f text f "foo" f }
 }
-] [
+} [
     "<html><head><title>foo</title></head></html>" parse-html
     "title" find-between-first
 ] unit-test
 
-[ V{
+{ V{
     T{ tag f "p" H{ } f f }
     T{ tag f text f "para" f }
     T{ tag f "p" H{ } f t }
 }
-] [
+} [
     "<body><div><p>para</p></div></body>" parse-html "div" find-between-first
 ] unit-test
 
-[ V{
+{ V{
     T{ tag f "div" H{ { "class" "foo" } } f f }
     T{ tag f "p" H{ } f f }
     T{ tag f text f "para" f }
     T{ tag f "p" H{ } f t }
     T{ tag f "div" H{ } f t }
 }
-] [
+} [
     "<body><div class=\"foo\"><p>para</p></div></body>" parse-html
     "foo" find-by-class-between
 ] unit-test
 
-[ V{
+{ V{
     T{ tag f "div" H{ { "class" "foo" } } f f }
     T{ tag f "div" H{ } f f }
     T{ tag f "p" H{ } f f }
@@ -66,17 +66,17 @@ IN: html.parser.analyzer.tests
     T{ tag f "div" H{ } f t }
     T{ tag f "div" H{ } f t }
 }
-] [
+} [
     "<body><div class=\"foo\"><div><p>para</p></div></div></body>" parse-html
     "foo" find-by-class-between
 ] unit-test
 
-[ t ] [
+{ t } [
     T{ tag { name "f" } { attributes H{ { "class" "a b c" } } } }
     { "a" "b" "c" } [ html-class? ] with all?
 ] unit-test
 
-[
+{
     V{
         T{ tag
            { name "div" }
@@ -84,13 +84,13 @@ IN: html.parser.analyzer.tests
         }
         T{ tag { name "div" } { attributes H{ } } { closing? t } }
     }
-] [ "<div class=\"foo and more\"></div>" parse-html
+} [ "<div class=\"foo and more\"></div>" parse-html
     "foo" find-by-class-between
 ] unit-test
 
-[
+{
     0
     T{ tag { name "div" } { attributes H{ { "class" "foo bar" } } } }
-] [
+} [
     "<div class=\"foo bar\"></div>" parse-html "bar" find-by-class
 ] unit-test