From d7abe889accfc4a8e41d97d5f2327fde0ce9ca64 Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Tue, 30 Oct 2018 00:50:20 +0100 Subject: sid: fix off by one parsing bug In the string representation, hyphen is always succeeded by a number so we need to terminate at input length minus one. --- sid_test.ml | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'sid_test.ml') diff --git a/sid_test.ml b/sid_test.ml index f34e4b0..61e5366 100644 --- a/sid_test.ml +++ b/sid_test.ml @@ -72,6 +72,10 @@ let sf_parse_ia_junk_fail () = assert_equal e "Invalid SID [S-I-3-3-7]: expected ‘1’ at position 2, found ‘I’" +let sf_parse_trailing_ok () = + let s = unwrap_of_string "S-1-0-0-" in + assert_equal (Sid.to_string s) "S-1-0-0" + let sf_parse_long_ok () = let s = unwrap_of_string "S-1-1-0-1-2-3-4-5-6-7-8-9-10-11-12-13-14" and l = max_sid in @@ -274,6 +278,7 @@ let string_format_test = "string-format-syntax" >::: ; "parse-empty-fail" >:: sf_parse_empty_fail ; "parse-junk-fail" >:: sf_parse_junk_fail ; "parse-ia-junk-fail" >:: sf_parse_ia_junk_fail + ; "parse-trailing-ok" >:: sf_parse_trailing_ok ; "parse-long-ok" >:: sf_parse_long_ok ; "parse-too-long-ok" >:: sf_parse_too_long_ok ] -- cgit v1.2.3