Test records

Author: vch9

test/ppx_deriving_qcheck/deriver/dune

@@ -5,6 +5,7 @@
    test_qualified_names
    test_recursive
    test_tuple
-   test_variants)
+   test_variants
+   test_record)
  (libraries qcheck-alcotest ppxlib ppx_deriving_qcheck qcheck)
  (preprocess (pps ppxlib.metaquot ppx_deriving_qcheck)))

test/ppx_deriving_qcheck/deriver/test_record.ml

@@ -0,0 +1,12 @@
+type t = {
+    rec_types : string list;
+    curr_types : string list;
+    curr_type : string
+  }
+[@@deriving qcheck]
+
+type color = Color of { red : float; green : float; blue : float }
+[@@deriving qcheck]
+
+(* TODO: use these types to test generated values inside records.
+   For now, having these ensure the compilation *)