501<->500 migrations: adding a test with attributes

Signed-off-by: Paul-Elliot <[email protected]>
ocaml-ppx · Sep 19, 2023 · a0d0c35 · a0d0c35
1 parent 08aed5c
commit a0d0c35
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/test/501_migrations/normal_migrations.t b/test/501_migrations/normal_migrations.t
@@ -162,6 +162,13 @@ Tests for the Parsetree change for generative functor applications
   $ ./compare_on.exe file.ml ./identity_driver.exe | grep -v "without_migrations" | grep -v "with_migrations"
   [1]
 
+  $ cat > file.ml << EOF
+  > module F () = struct end
+  > module M = F [@attr1] () [@attr2]
+  > EOF
+  $ ./compare_on.exe file.ml ./identity_driver.exe | grep -v "without_migrations" | grep -v "with_migrations"
+  [1]
+
   $ cat > file.ml << EOF
   > module F () = struct end
   > module M = F(struct end)