test

Author: mshinwell

testsuite/tests/basic-more/opaque_prim.ml

@@ -1,8 +1,6 @@
-
-let f x = opaque x
+let f x = Sys.opaque_identity x
 
 let () =
   assert(f f == f);
-  assert(opaque 1 = 1);
-  assert(opaque 1. = 1.)
-
+  assert(Sys.opaque_identity 1 = 1);
+  assert(Sys.opaque_identity 1. = 1.)