2008-03-05 22:38:15 -05:00
|
|
|
IN: http.server.validators.tests
|
2008-03-11 04:39:09 -04:00
|
|
|
USING: kernel sequences tools.test http.server.validators
|
|
|
|
|
accessors ;
|
2008-03-05 22:38:15 -05:00
|
|
|
|
2008-03-11 04:39:09 -04:00
|
|
|
[ "foo" v-number ] [ validation-error? ] must-fail-with
|
|
|
|
|
|
|
|
|
|
[ "slava@factorcode.org" ] [
|
|
|
|
|
"slava@factorcode.org" v-email
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "slava+foo@factorcode.org" ] [
|
|
|
|
|
"slava+foo@factorcode.org" v-email
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "slava@factorcode.o" v-email ]
|
|
|
|
|
[ reason>> "invalid e-mail" = ] must-fail-with
|
|
|
|
|
|
|
|
|
|
[ "sla@@factorcode.o" v-email ]
|
|
|
|
|
[ reason>> "invalid e-mail" = ] must-fail-with
|
|
|
|
|
|
|
|
|
|
[ "slava@factorcodeorg" v-email ]
|
|
|
|
|
[ reason>> "invalid e-mail" = ] must-fail-with
|
