Add OCaml fake-petstore to test corner cases

Author: sir4ur0n

.gitignore

@@ -296,6 +296,7 @@ samples/openapi3/client/petstore/go/privatekey.pem
 
 ## OCaml
 samples/client/petstore/ocaml/_build/
+samples/client/petstore/ocaml-fake-petstore/_build/
 
 # jetbrain http client
 samples/client/jetbrains/adyen/checkout71/http/client/Apis/http-client.private.env.json

bin/configs/ocaml-fake-petstore.yaml

@@ -0,0 +1,6 @@
+generatorName: ocaml
+outputDir: samples/client/petstore/ocaml-fake-petstore
+inputSpec: modules/openapi-generator/src/test/resources/3_0/petstore-with-fake-endpoints-models-for-testing.yaml
+templateDir: modules/openapi-generator/src/main/resources/ocaml
+additionalProperties:
+  packageName: petstore_client

samples/client/petstore/ocaml-fake-petstore/.openapi-generator-ignore

@@ -0,0 +1,23 @@
+# OpenAPI Generator Ignore
+# Generated by openapi-generator https://github.com/openapitools/openapi-generator
+
+# Use this file to prevent files from being overwritten by the generator.
+# The patterns follow closely to .gitignore or .dockerignore.
+
+# As an example, the C# client generator defines ApiClient.cs.
+# You can make changes and tell OpenAPI Generator to ignore just this file by uncommenting the following line:
+#ApiClient.cs
+
+# You can match any string of characters against a directory, file or extension with a single asterisk (*):
+#foo/*/qux
+# The above matches foo/bar/qux and foo/baz/qux, but not foo/bar/baz/qux
+
+# You can recursively match patterns against a directory, file or extension with a double asterisk (**):
+#foo/**/qux
+# This matches foo/bar/qux, foo/baz/qux, and foo/bar/baz/qux
+
+# You can also negate patterns with an exclamation (!).
+# For example, you can ignore all files in a docs folder with the file extension .md:
+#docs/*.md
+# Then explicitly reverse the ignore rule for a single file:
+#!docs/README.md

samples/client/petstore/ocaml-fake-petstore/.openapi-generator/FILES

@@ -0,0 +1,65 @@
+README.md
+dune
+dune-project
+petstore_client.opam
+src/apis/another_fake_api.ml
+src/apis/another_fake_api.mli
+src/apis/default_api.ml
+src/apis/default_api.mli
+src/apis/fake_api.ml
+src/apis/fake_api.mli
+src/apis/fake_classname_tags123_api.ml
+src/apis/fake_classname_tags123_api.mli
+src/apis/pet_api.ml
+src/apis/pet_api.mli
+src/apis/store_api.ml
+src/apis/store_api.mli
+src/apis/user_api.ml
+src/apis/user_api.mli
+src/models/additional_properties_class.ml
+src/models/all_of_with_single_ref.ml
+src/models/animal.ml
+src/models/api_response.ml
+src/models/array_of_array_of_number_only.ml
+src/models/array_of_number_only.ml
+src/models/array_test.ml
+src/models/capitalization.ml
+src/models/cat.ml
+src/models/category.ml
+src/models/child_with_nullable.ml
+src/models/class_model.ml
+src/models/client.ml
+src/models/deprecated_object.ml
+src/models/dog.ml
+src/models/enum_arrays.ml
+src/models/enum_test.ml
+src/models/fake_big_decimal_map_200_response.ml
+src/models/file.ml
+src/models/file_schema_test_class.ml
+src/models/foo.ml
+src/models/format_test.ml
+src/models/has_only_read_only.ml
+src/models/health_check_result.ml
+src/models/list.ml
+src/models/map_test.ml
+src/models/mixed_properties_and_additional_properties_class.ml
+src/models/model_200_response.ml
+src/models/model__foo_get_default_response.ml
+src/models/model__special_model_name_.ml
+src/models/name.ml
+src/models/nullable_class.ml
+src/models/number_only.ml
+src/models/object_with_deprecated_fields.ml
+src/models/order.ml
+src/models/outer_composite.ml
+src/models/outer_object_with_enum_property.ml
+src/models/parent_with_nullable.ml
+src/models/pet.ml
+src/models/read_only_first.ml
+src/models/return.ml
+src/models/tag.ml
+src/models/test_inline_freeform_additional_properties_request.ml
+src/models/user.ml
+src/support/enums.ml
+src/support/jsonSupport.ml
+src/support/request.ml

samples/client/petstore/ocaml-fake-petstore/.openapi-generator/VERSION

@@ -0,0 +1 @@
+7.15.0-SNAPSHOT

samples/client/petstore/ocaml-fake-petstore/README.md

@@ -0,0 +1,33 @@
+# 
+This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \'' \\
+
+This OCaml package is automatically generated by the [OpenAPI Generator](https://openapi-generator.tech) project:
+
+- API version: 1.0.0
+- Package version: 1.0.0
+- Generator version: 7.15.0-SNAPSHOT
+- Build package: org.openapitools.codegen.languages.OCamlClientCodegen
+
+## Requirements.
+
+OCaml 5.x
+
+## Installation
+
+Please run the following commands to build the package `petstore_client`:
+
+```sh
+opam install . --deps-only --with-test
+eval $(opam env)
+dune build
+```
+
+## Getting Started
+
+The generated directory structure is:
+- `src/apis`: contains several modules, each with several functions. Each function is an API endpoint.
+- `src/models`: contains several modules. Each module contains:
+  - a type `t` representing an input and/or output schema of the OpenAPI spec
+  - a smart constructor `create` for this type
+- `src/support`: various modules used by the generated APIs and Models
+

samples/client/petstore/ocaml-fake-petstore/dune

@@ -0,0 +1,9 @@
+(include_subdirs unqualified)
+(library
+   (name petstore_client)
+   (public_name petstore_client)
+   (flags (:standard -w -27))
+   (libraries str cohttp-lwt-unix lwt yojson ppx_deriving_yojson.runtime)
+   (preprocess (pps ppx_deriving_yojson ppx_deriving.std))
+   (wrapped true)
+)

samples/client/petstore/ocaml-fake-petstore/dune-project

@@ -0,0 +1,2 @@
+(lang dune 1.10)
+(name petstore_client)

samples/client/petstore/ocaml-fake-petstore/petstore_client.opam

@@ -0,0 +1,24 @@
+opam-version: "2.0"
+name: "petstore_client"
+version: "1.0.0"
+synopsis: ""
+description: """
+Longer description
+"""
+maintainer: "Name <email>"
+authors: "Name <email>"
+license: ""
+homepage: ""
+bug-reports: ""
+dev-repo: ""
+depends: [
+  "ocaml"
+  "ocamlfind"
+  "dune"
+  "ppx_deriving_yojson"
+  "conf-libev"
+  "lwt"
+  "cohttp-lwt-unix" {< "6.0.0"}
+  "cohttp-async" {< "6.0.0"}
+]
+build: ["dune" "build" "-p" name]

samples/client/petstore/ocaml-fake-petstore/src/apis/another_fake_api.ml

@@ -0,0 +1,15 @@
+(*
+ * This file has been generated by the OCamlClientCodegen generator for openapi-generator.
+ *
+ * Generated by: https://openapi-generator.tech
+ *
+ *)
+
+let call_123_test_special_tags ~client_t =
+    let open Lwt.Infix in
+    let uri = Request.build_uri "/another-fake/dummy" in
+    let headers = Request.default_headers in
+    let body = Request.write_as_json_body Client.to_yojson client_t in
+    Cohttp_lwt_unix.Client.call `PATCH uri ~headers ~body >>= fun (resp, body) ->
+    Request.read_json_body_as (JsonSupport.unwrap Client.of_yojson) resp body
+