69 lines
1.3 KiB
Factor
69 lines
1.3 KiB
Factor
USING: kernel sequences tools.test assocs html.forms validators accessors
|
|
namespaces ;
|
|
FROM: html.forms => values ;
|
|
IN: html.forms.tests
|
|
|
|
: with-validation ( quot -- messages )
|
|
[
|
|
begin-form
|
|
call
|
|
] with-scope ; inline
|
|
|
|
[ 14 ] [
|
|
[
|
|
"14" [ v-number 13 v-min-value 100 v-max-value ] validate
|
|
] with-validation
|
|
] unit-test
|
|
|
|
[ t ] [
|
|
[
|
|
"140" [ v-number 13 v-min-value 100 v-max-value ] validate
|
|
[ validation-error? ]
|
|
[ value>> "140" = ]
|
|
bi and
|
|
] with-validation
|
|
] unit-test
|
|
|
|
TUPLE: person name age ;
|
|
|
|
person {
|
|
{ "name" [ ] }
|
|
{ "age" [ v-number 13 v-min-value 100 v-max-value ] }
|
|
} define-validators
|
|
|
|
[ t t ] [
|
|
[
|
|
{ { "age" "" } }
|
|
{ { "age" [ v-required ] } }
|
|
validate-values
|
|
validation-failed?
|
|
"age" value
|
|
[ validation-error? ]
|
|
[ message>> "required" = ]
|
|
bi and
|
|
] with-validation
|
|
] unit-test
|
|
|
|
[ H{ { "a" 123 } } f ] [
|
|
[
|
|
H{
|
|
{ "a" "123" }
|
|
{ "b" "c" }
|
|
{ "c" "d" }
|
|
}
|
|
H{
|
|
{ "a" [ v-integer ] }
|
|
} validate-values
|
|
values
|
|
validation-failed?
|
|
] with-validation
|
|
] unit-test
|
|
|
|
[ t "foo" ] [
|
|
[
|
|
"foo" validation-error
|
|
validation-failed?
|
|
form get errors>> first
|
|
] with-validation
|
|
] unit-test
|