2 USING: kernel sequences tools.test assocs html.forms validators accessors
4 FROM: html.forms => values ;
6 : with-validation ( quot -- messages )
14 "14" [ v-number 13 v-min-value 100 v-max-value ] validate
20 "140" [ v-number 13 v-min-value 100 v-max-value ] validate
27 TUPLE: person name age ;
31 { "age" [ v-number 13 v-min-value 100 v-max-value ] }
37 { { "age" [ v-required ] } }
42 [ message>> "required" = ]
47 [ H{ { "a" 123 } } f ] [
64 "foo" validation-error
66 form get errors>> first