Add test example.

Author: cristianoc

tests/tests/src/UntaggedVariants.mjs

@@ -589,6 +589,17 @@ let MergeCases = {
   can_merge: can_merge
 };
 
+function printLength(json) {
+  if (typeof json !== "object" || json === null || Array.isArray(json)) {
+    return;
+  }
+  console.log("Length: ", Object.values(json).length);
+}
+
+let ObjectAndNull = {
+  printLength: printLength
+};
+
 let $$Array;
 
 let i = 42;
@@ -641,5 +652,6 @@ export {
   Aliased,
   OnlyOne,
   MergeCases,
+  ObjectAndNull,
 }
 /* l2 Not a pure module */

tests/tests/src/UntaggedVariants.res

@@ -461,3 +461,11 @@ module MergeCases = {
     | Boolean(_) => "merge"
     }
 }
+
+module ObjectAndNull = {
+  let printLength = (json: JSON.t) =>
+    switch json {
+    | Object(o) => Console.log2("Length: ", o->Dict.valuesToArray->Array.length)
+    | _ => ()
+    }
+}