Add an example for a newtype in the schema, and output all schemas fr…

…om the spec in the test
Haskell-OpenAPI-Code-Generator · May 24, 2024 · 31fc2d6 · 31fc2d6
1 parent af76a39
commit 31fc2d6
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 1 deletion.
diff --git a/nix/tests.nix b/nix/tests.nix
@@ -11,7 +11,7 @@ let
         extraFlags = extraFlags;
       };
     };
-  goldenTestCode = generateCode { fileName = "z_complex_self_made_example.yml"; };
+  goldenTestCode = generateCode { fileName = "z_complex_self_made_example.yml"; extraFlags = [ "--output-all-schemas" ]; };
   exampleGeneratedCode = generateCode { fileName = "petstore.yaml"; };
   codeForSpecsLevelOne = [
     (generateCode { fileName = "google-payment.json"; })

diff --git a/specifications/z_complex_self_made_example.yml b/specifications/z_complex_self_made_example.yml
@@ -393,6 +393,8 @@ components:
             - $ref: '#/components/schemas/Test9'
             - $ref: '#/components/schemas/Test10'
             - $ref: '#/components/schemas/Value'
+    CatWrapper:
+      $ref: '#/components/schemas/Cat'
   parameters:
     PetParameters:
       name: petId

diff --git a/testing/golden-output/src/OpenAPI/TypeAlias.hs b/testing/golden-output/src/OpenAPI/TypeAlias.hs
@@ -31,6 +31,7 @@ import qualified GHC.Int
 import qualified GHC.Show
 import qualified GHC.Types
 import qualified OpenAPI.Common
+import {-# SOURCE #-} OpenAPI.Types.Cat
 import {-# SOURCE #-} OpenAPI.Types.Dog
 
 
@@ -63,3 +64,8 @@ type Test10 = GHC.Base.NonEmpty Data.Text.Internal.Text
 -- 
 -- 
 type Test = Data.Text.Internal.Text
+
+-- | Defines an alias for the schema located at @components.schemas.CatWrapper@ in the specification.
+-- 
+-- 
+type CatWrapper = Cat