Skip to content

Commit 2a28b88

Browse files
committed
Disable 'recursive polymorphic variants' on 5.1 too
1 parent 5b31bfc commit 2a28b88

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

test/ppx_deriving_qcheck/deriver/qcheck/test_textual.ml

+1-1
Original file line numberDiff line numberDiff line change
@@ -813,7 +813,7 @@ let test_recursive_poly_variant () =
813813
*)
814814
let ocaml_release =
815815
Scanf.sscanf Sys.ocaml_version "%i.%i" (fun major minor -> (major,minor)) in
816-
if ocaml_release < (5,1)
816+
if ocaml_release <= (5,1)
817817
then ()
818818
else check_eq ~expected ~actual "deriving recursive polymorphic variants"
819819

test/ppx_deriving_qcheck/deriver/qcheck2/test_textual.ml

+1-1
Original file line numberDiff line numberDiff line change
@@ -725,7 +725,7 @@ let test_recursive_poly_variant () =
725725
*)
726726
let ocaml_release =
727727
Scanf.sscanf Sys.ocaml_version "%i.%i" (fun major minor -> (major,minor)) in
728-
if ocaml_release < (5,1)
728+
if ocaml_release <= (5,1)
729729
then ()
730730
else check_eq ~expected ~actual "deriving recursive polymorphic variants"
731731

0 commit comments

Comments
 (0)