Add more strings to test for parsing.

tests/core/dune

@@ -63,3 +63,16 @@
    (system
     "cd json5 && find . -type f | egrep '\\.json|\\.js|\\.txt' | xargs -I % mv % .")
    (system "cd json5 && find . -type d | grep -v '^\\.$' | xargs rm -rf"))))
+
+(rule
+ (alias citest)
+ (target big-list-of-naughty-strings)
+ (action
+  (progn
+   (run rm -rf big-list-of-naughty-strings)
+   (run
+    git
+    clone
+    --depth
+    1
+    https://github.com/minimaxir/big-list-of-naughty-strings.git))))

tests/core/dune.inc

@@ -120,7 +120,7 @@
  (alias citest)
  (package liquidsoap)
  (deps
-  (:json ./json) (:json5 ./json5)
+  (:json ./json) (:json5 ./json5) (:big-list-of-naughty-strings ./big-list-of-naughty-strings)
   (:json_test json_test.exe))
  (action (run %{json_test} )))
 

tests/core/gen_dune.ml

@@ -1,7 +1,10 @@
 (* test name, (deps, args) *)
 let test_params =
   [
-    ("json_test", ("(:json ./json) (:json5 ./json5)", [""]));
+    ( "json_test",
+      ( "(:json ./json) (:json5 ./json5) (:big-list-of-naughty-strings \
+         ./big-list-of-naughty-strings)",
+        [""] ) );
     ( "stream_decoder_test",
       ( "(:test_wav ./test.wav) (:test_mp3 ./test.mp3)",
         ["%{test_wav} bla.wav"; "%{test_mp3} bla.wav"] ) );

tests/core/json_test.ml

@@ -127,3 +127,13 @@ let () =
       | _ when expectation = `Failure -> Printf.printf "OK!\n%!"
   in
   List.iter run_test tests
+
+let () =
+  let pwd = Filename.dirname Sys.argv.(0) in
+  let basedir = Filename.concat pwd "big-list-of-naughty-strings" in
+  let strings_file = Filename.concat basedir "blns.json" in
+  Printf.printf "Testing big-list-of-naughty-strings...\n%!";
+  let s = read_file strings_file in
+  let v = Json.from_string s in
+  ignore (Json.to_string ~compact:true v);
+  ignore (Json.to_string ~compact:false v)