diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-04-24 21:52:18 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-04-24 21:52:18 +0600 |
| commit | e72f0a0af5600589333070612e93ed5be3d06f7e (patch) | |
| tree | 1d6758916b8de9d985320b316e6175f15a542655 /test | |
| parent | 2272eaa7f0744c49449949a290de2fb65fa875c5 (diff) | |
| download | vyconf-e72f0a0af5600589333070612e93ed5be3d06f7e.tar.gz vyconf-e72f0a0af5600589333070612e93ed5be3d06f7e.zip | |
Add validate_any to Value_checker for testing if a value passes at least one test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/value_checker_test.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/value_checker_test.ml b/test/value_checker_test.ml index f7161f2..a975d93 100644 --- a/test/value_checker_test.ml +++ b/test/value_checker_test.ml @@ -30,6 +30,13 @@ let test_check_external_bad_validator test_ctxt = let v = "fgsfds" in assert_raises (Bad_validator "invalid") (fun () -> validate_value validators c v) +let test_validate_any_valid test_ctxt = + let cs = [Regex "\\d+"; Regex "[a-z]+"; External ("anything", "")] in + assert_equal (validate_any validators cs "AAAA") true + +let test_validate_any_invalid test_ctxt = + let cs = [Regex "\\d+"; Regex "[a-z]+"] in + assert_equal (validate_any validators cs "AAAA") false let suite = "VyConf value checker tests" >::: [ @@ -38,6 +45,8 @@ let suite = "test_check_external_valid" >:: test_check_external_valid; "test_check_external_invalid" >:: test_check_external_invalid; "test_check_external_bad_validator" >:: test_check_external_bad_validator; + "test_validate_any_valid" >:: test_validate_any_valid; + "test_validate_any_invalid" >:: test_validate_any_invalid; ] let () = |