We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 5b31bfc commit 2a28b88Copy full SHA for 2a28b88
test/ppx_deriving_qcheck/deriver/qcheck/test_textual.ml
@@ -813,7 +813,7 @@ let test_recursive_poly_variant () =
813
*)
814
let ocaml_release =
815
Scanf.sscanf Sys.ocaml_version "%i.%i" (fun major minor -> (major,minor)) in
816
- if ocaml_release < (5,1)
+ if ocaml_release <= (5,1)
817
then ()
818
else check_eq ~expected ~actual "deriving recursive polymorphic variants"
819
test/ppx_deriving_qcheck/deriver/qcheck2/test_textual.ml
@@ -725,7 +725,7 @@ let test_recursive_poly_variant () =
725
726
727
728
729
730
731
0 commit comments