extra/furnace/validator/validator-tests.factor

   1 IN: temporary
   2 USING: kernel sequences tools.test furnace.validator furnace ;
   3
   4 [
   5     123 f
   6 ] [
   7     H{ { "foo" "123" } } { "foo" v-number } action-param
   8 ] unit-test
   9
  10 : validation-fails
  11     [ action-param nip not ] append [ f ] swap unit-test ;
  12
  13 [ H{ { "foo" "12X3" } } { "foo" v-number } ] validation-fails
  14
  15 [ H{ { "foo" "" } } { "foo" 4 v-min-length } ] validation-fails
  16
  17 [ "ABCD" f ]
  18 [ H{ { "foo" "ABCD" } } { "foo" 4 v-min-length } action-param ]
  19 unit-test
  20
  21 [ H{ { "foo" "ABCD" } } { "foo" 2 v-max-length } ]
  22 validation-fails
  23
  24 [ "AB" f ]
  25 [ H{ { "foo" "AB" } } { "foo" 2 v-max-length } action-param ]
  26 unit-test
  27
  28 [ "AB" f ]
  29 [ H{ { "foo" f } } { "foo" "AB" v-default } action-param ]
  30 unit-test