Add an example for a newtype in the schema, and output all schemas from the spec in the test

Author: Dan Fithian

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"; })

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

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