moved adt_generator tests to a separate folder

src/stages/adt_generator/adt_generator.ml

@@ -1,2 +1 @@
-module Amodule = Amodule
+module Generic = Generic
-module Use_a_fold = Use_a_fold

src/stages/adt_generator/dune

@@ -1,24 +1,6 @@
-(rule
+(library
-  (target generated_fold.ml)
-  (deps generator.raku amodule.ml)
-  (action (with-stdout-to generated_fold.ml (run perl6 ./generator.raku amodule.ml)))
-;  (mode (promote (until-clean)))
-)
-; (library
-;   (name adt_generator)
-;   (public_name ligo.adt_generator)
-;   (libraries
-;   )
-; )
-
-(executable
   (name adt_generator)
   (public_name ligo.adt_generator)
   (libraries
   )
 )
-
-(alias
-  (name runtest)
-  (action (run ./adt_generator.exe))
-)

src/stages/adt_generator/generator.raku

@@ -140,7 +140,7 @@ for $statements -> $statement {
   say "$statement"
 }
 say "open $moduleName";
-say "module Adt_info = Generic.Adt_info";
+say "module Adt_info = Adt_generator.Generic.Adt_info";
 
 say "";
 for $adts.kv -> $index, $t {

src/test/adt_generator/dune

@@ -0,0 +1,17 @@
+(rule
+  (target generated_fold.ml)
+  (deps ../../../src/stages/adt_generator/generator.raku amodule.ml)
+  (action (with-stdout-to generated_fold.ml (run perl6 ../../../src/stages/adt_generator/generator.raku amodule.ml)))
+;  (mode (promote (until-clean)))
+)
+
+(executable
+  (name test_adt_generator)
+  (public_name ligo.test_adt_generator)
+  (libraries adt_generator)
+)
+
+(alias
+  (name runtest)
+  (action (run ./test_adt_generator.exe))
+)

src/test/adt_generator/test_adt_generator.ml

@@ -0,0 +1,2 @@
+module Amodule = Amodule
+module Use_a_fold = Use_a_fold