From 3b5393ef718a17dce717a8255f07cbca1e593ec0 Mon Sep 17 00:00:00 2001
From: Andrey Popp <8mayday@gmail.com>
Date: Thu, 5 Dec 2024 10:26:32 +0400
Subject: [PATCH] Make tests pass

---
 ppx/test/example.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ppx/test/example.ml b/ppx/test/example.ml
index a47bed5..17687dd 100644
--- a/ppx/test/example.ml
+++ b/ppx/test/example.ml
@@ -17,6 +17,7 @@ type 'a c = [ `C of 'a ] [@@deriving json]
 type recur = A | Fix of recur [@@deriving json]
 type polyrecur = [ `A | `Fix of polyrecur ] [@@deriving json]
 type evar = A | B [@json.name "b_aliased"] [@@deriving json]
+type epoly = [ `a [@json.name "A_aliased"] | `b ] [@@deriving json]
 type ('a, 'b) p2 = A of 'a | B of 'b [@@deriving json]
 type allow_extra_fields = {a: int} [@@deriving json] [@@json.allow_extra_fields]
 type allow_extra_fields2 = A of {a: int} [@json.allow_extra_fields] [@@deriving json]