Add files

Author: kazk

.dockerignore

@@ -0,0 +1 @@
+workspace/fixture.ml

.github/workflows/push-image.yml

@@ -0,0 +1,39 @@
+# Build and push a Docker image to GitHub Container Registry when
+# a new tag is pushed.
+name: Push Image
+
+on:
+  push:
+    tags:
+      - "*"
+
+jobs:
+  build-and-push-image:
+    if: ${{ github.repository == 'codewars/ocaml' }}
+    runs-on: ubuntu-latest
+    permissions:
+      contents: read
+      packages: write
+    steps:
+      - uses: actions/checkout@v2
+
+      - name: Set up Docker Buildx
+        uses: docker/setup-buildx-action@v1
+
+      - name: Login to GitHub Container Registry
+        uses: docker/login-action@v1
+        with:
+          registry: ghcr.io
+          username: ${{ github.repository_owner }}
+          password: ${{ secrets.GITHUB_TOKEN }}
+
+      - name: Build and push image
+        uses: docker/build-push-action@v2
+        with:
+          context: .
+          push: true
+          tags: |
+            ghcr.io/${{ github.repository }}:latest
+            ghcr.io/${{ github.repository }}:${{ github.ref_name }}
+          cache-from: type=gha
+          cache-to: type=gha,mode=max

Dockerfile

@@ -0,0 +1,48 @@
+FROM buildpack-deps:bionic
+
+RUN set -ex; \
+    useradd --create-home codewarrior; \
+# TODO Remove symlink in the next version
+    ln -s /home/codewarrior /workspace;
+
+ENV OPAMROOT=/opt/opam \
+    OPAMCOLOR=never
+
+RUN set -ex; \
+    mkdir -p $OPAMROOT; \
+    chown codewarrior:codewarrior $OPAMROOT; \
+    apt-get update; \
+    apt-get install -y --no-install-recommends \
+        software-properties-common \
+        m4 \
+        rsync \
+        aspcud \
+    ; \
+# Needed for opam 2.0
+    add-apt-repository -y ppa:avsm/ppa; \
+    apt-get update; \
+    apt-get install -y --no-install-recommends \
+        opam \
+    ; \
+    rm -rf /var/lib/apt/lists/*;
+
+USER codewarrior
+ENV USER=codewarrior \
+    HOME=/home/codewarrior
+
+# --disable-sandboxing is needed to do this in a container witout `--privileged`
+RUN opam init -y --compiler=4.07.1 --disable-sandboxing
+
+ENV OPAM_SWITCH_PREFIX=/opt/opam/4.07.1 \
+    CAML_LD_LIBRARY_PATH=/opt/opam/4.07.1/lib/stublibs \
+    OCAML_TOPLEVEL_PATH=/opt/opam/4.07.1/lib/toplevel \
+    PATH=/opt/opam/4.07.1/bin:$PATH
+
+RUN opam install -y \
+        'ounit=2.0.8' \
+        'batteries=2.9.0' \
+        'core=v0.11.3' \
+    ;
+
+COPY workspace/test.ml /workspace/test.ml
+COPY workspace/_tags /workspace/_tags

LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2022 Qualified
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

README.md

@@ -0,0 +1,25 @@
+# OCaml Image
+
+Container image for OCaml used by CodeRunner.
+
+## Usage
+
+```bash
+W=/workspace/
+# Create container
+C=$(docker container create --rm -w $W ghcr.io/codewars/ocaml:latest \
+    sh -c 'ocamlbuild -quiet -use-ocamlfind test.native && exec ./test.native')
+
+# Write solution and tests in workspace/fixture.ml
+# Then copy it inside a container
+docker container cp workspace/fixture.ml $C:$W/fixture.ml
+
+# Run tests
+docker container start --attach $C
+```
+
+## Building
+
+```bash
+docker build -t ghcr.io/codewars/ocaml:latest .
+```

workspace/_tags

@@ -0,0 +1,2 @@
+<test.ml> : package(oUnit), use_str
+<fixture.ml> or <test.native> : package(oUnit), package(batteries), package(core), thread

workspace/fixture.ml

@@ -0,0 +1,8 @@
+(* TODO Avoid concatenating in the next version *)
+let add x y = x + y;;
+
+module Tests = struct
+  open OUnit
+  let test1 test_ctxt = assert_equal 2 (add 1 1);;
+  let suite = ["1+1 is 2" >:: test1];;
+end

workspace/test.ml

@@ -0,0 +1,26 @@
+open OUnit
+
+let _esc_lf s =
+  s |> Str.global_replace (Str.regexp_string "\n") "<:LF:>";;
+
+(* TODO Fix missing `<COMPLETEDIN::>` *)
+let cw_print_test_event = function
+  | EStart (name::rest) -> print_endline ("\n<IT::>" ^ string_of_node name)
+  | EResult result ->
+    begin match result with
+      | RSuccess _ -> print_endline ("\n<PASSED::>Test passed")
+      | RFailure (_, err) -> print_endline ("\n<FAILED::>" ^ (_esc_lf err))
+      | RError (_, err) -> print_endline ("\n<ERROR::>" ^ (_esc_lf err))
+      | _ -> ()
+    end
+  | _ -> ()
+
+let run_test = function
+  | TestLabel (name, suite) -> begin
+    print_endline ("\n<DESCRIBE::>" ^ name);
+    perform_test cw_print_test_event suite
+  end
+  | suite -> perform_test cw_print_test_event suite
+
+(* Solution and Tests are concatenated to `fixture.ml` *)
+let _ = List.map run_test Fixture.Tests.suite |> ignore