2010-08-29 16:24:55 -04:00
|
|
|
! Copyright (C) 2010 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2014-02-15 17:14:29 -05:00
|
|
|
USING: html.parser html.parser.analyzer kernel math sequences tools.test ;
|
2010-08-29 16:24:55 -04:00
|
|
|
IN: html.parser.analyzer.tests
|
|
|
|
|
|
|
|
|
|
[ 0 3 ]
|
|
|
|
|
[ 1 { 3 5 7 9 11 } [ odd? ] find-nth ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 2 7 ]
|
|
|
|
|
[ 3 { 3 5 7 9 11 } [ odd? ] find-nth ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 3 9 ]
|
|
|
|
|
[ 3 1 { 3 5 7 9 11 } [ odd? ] find-nth-from ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 4 11 ]
|
|
|
|
|
[ 1 { 3 5 7 9 11 } [ odd? ] find-last-nth ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 2 7 ]
|
|
|
|
|
[ 3 { 3 5 7 9 11 } [ odd? ] find-last-nth ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 0 3 ]
|
|
|
|
|
[ 1 2 { 3 5 7 9 11 } [ odd? ] find-last-nth-from ] unit-test
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[ 0 { 3 5 7 9 11 } [ odd? ] find-nth ]
|
|
|
|
|
[ undefined-find-nth? ] must-fail-with
|
|
|
|
|
|
|
|
|
|
[ 0 { 3 5 7 9 11 } [ odd? ] find-last-nth ]
|
|
|
|
|
[ undefined-find-nth? ] must-fail-with
|
2013-04-24 14:40:28 -04:00
|
|
|
|
|
|
|
|
[ V{
|
|
|
|
|
T{ tag f text f "foo" f }
|
|
|
|
|
}
|
|
|
|
|
] [
|
|
|
|
|
"<html><head><title>foo</title></head></html>" parse-html
|
|
|
|
|
"title" find-between-first
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ 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{
|
|
|
|
|
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{
|
|
|
|
|
T{ tag f "div" H{ { "class" "foo" } } f f }
|
|
|
|
|
T{ tag f "div" H{ } 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 }
|
|
|
|
|
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
|
2014-02-15 17:14:29 -05:00
|
|
|
|
|
|
|
|
[ 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" }
|
|
|
|
|
{ attributes H{ { "class" "foo and more" } } }
|
|
|
|
|
}
|
|
|
|
|
T{ tag { name "div" } { attributes H{ } } { closing? t } }
|
|
|
|
|
}
|
|
|
|
|
] [ "<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
|
