diff options
author | Philipp Gesang <phg@phi-gamma.net> | 2018-12-11 23:22:59 +0100 |
---|---|---|
committer | Philipp Gesang <phg@phi-gamma.net> | 2018-12-11 23:23:16 +0100 |
commit | 317bdf8f2b49be79ac63d55220217267c6048bc5 (patch) | |
tree | e4b59d453eeadd1bbbbd3265030ee9dd1c5b439f /sid_test.ml | |
parent | 346c0c91bce135215597111a0530dd7ab51b3f89 (diff) | |
download | ocaml-sid-317bdf8f2b49be79ac63d55220217267c6048bc5.tar.gz |
sid.ml: rectify string used to derive constant
Ugh, experiments show that MS will parse arbitrarily short hex encoded
IAs which in turn revealed miscalculation in our sloppy parsing mode.
Diffstat (limited to 'sid_test.ml')
-rw-r--r-- | sid_test.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/sid_test.ml b/sid_test.ml index b339190..d9cc464 100644 --- a/sid_test.ml +++ b/sid_test.ml @@ -285,6 +285,10 @@ let mssf_parse_hex_junk_ok () = ; "S-1-0xffffffffffff-1" , true , Some ("S-1-0xffffffffffff-1", true ) ; "S-1-0xff00ff00ff-1" , false, Some ("S-1-0xff00ff00ff-1" , false) ; "S-1-0xff00ff00ff00ff-1", false, None + ; "S-1-0x4200000000-1" , false, Some ("S-1-0x4200000000-1" , false) + ; "S-1-0x1701d000-1" , false, Some ("S-1-385994752-1" , true ) + ; "S-1-0x1337000-1" , false, Some ("S-1-20148224-1" , true ) + ; "S-1-0xff-1" , false, Some ("S-1-255-1" , true ) ; "S-1-4294967296-1" , false, Some ("S-1-0x100000000-1" , false) ; "S-1-01-1" , false, Some ("S-1-1-1" , true ) ; "S-1-08-1" , false, Some ("S-1-8-1" , true ) |