fix tests

Author: c-cube

src/tests/integration-tests/test22_ml.ml

@@ -10,7 +10,7 @@ let decode_pb_ref_data () =
             last_name = "Doe";
             date_of_birth = 19820429l;
             tel_number = None;
-            employment = Employed_by "Google";
+            employment = Some (Employed_by "Google");
             marital_status = Single;
             gender = Male;
           };
@@ -21,7 +21,7 @@ let decode_pb_ref_data () =
             last_name = "Dupont";
             date_of_birth = 19820306l;
             tel_number = Some { area_code = 917l; number = 1111111l };
-            employment = Employed_by "INRIA";
+            employment = Some (Employed_by "INRIA");
             marital_status = Married;
             gender = Female;
           };
@@ -52,7 +52,7 @@ let () =
         last_name = "";
         date_of_birth = 0l;
         tel_number = None;
-        employment = Self_employed 0l;
+        employment = None;
         marital_status = Single;
         gender = Male;
       }

src/tests/integration-tests/test24_ml.ml

@@ -1,6 +1,6 @@
 module T = Test24
 
-let decode_pb_ref_data () : T.a = T.Value "value"
+let decode_pb_ref_data () : T.a = T.{ x = Some (Value "value") }
 
 let () =
   let mode = Test_util.parse_args () in