Extracting primitives inspired by ATMP

.gitignore

@@ -1,3 +1,4 @@
 node_modules
 dist/
-npm
+npm
+docs

deno.json

@@ -3,6 +3,7 @@
   "tasks": {
     "test": "deno test --allow-env --allow-net --unstable src",
     "publish": "deno task build-npm && cd npm/ && npm publish",
-    "build-npm": "deno run -A scripts/build-npm.ts"
+    "build-npm": "deno run -A scripts/build-npm.ts",
+    "docs": "deno doc --html --name='domain-functions' ./mod.ts"
   }
 }

src/all.test.ts

@@ -4,7 +4,7 @@ import {
   assertEquals,
   assertObjectMatch,
 } from './test-prelude.ts'
-import { z } from 'https://deno.land/x/[email protected]/mod.ts'
+import { z } from './test-prelude.ts'
 
 import { mdf } from './constructor.ts'
 import { all } from './domain-functions.ts'

src/apply-environment.test.ts

@@ -0,0 +1,46 @@
+import { assertEquals, describe, it } from './test-prelude.ts'
+import { z } from './test-prelude.ts'
+
+import { mdf } from './constructor.ts'
+import { applyEnvironment } from './domain-functions.ts'
+
+describe('applyEnvironment', () => {
+  it('fails when environment fails parser', async () => {
+    const getEnv = mdf(z.unknown(), z.number())((_, e) => e)
+
+    const getEnvWithEnvironment = applyEnvironment(
+      getEnv,
+      'invalid environment',
+    )
+
+    assertEquals(await getEnvWithEnvironment('some input'), {
+      success: false,
+      errors: [],
+      inputErrors: [],
+      environmentErrors: [
+        {
+          message: 'Expected number, received string',
+          path: [],
+        },
+      ],
+    })
+  })
+
+  it('should apply environment', async () => {
+    const getEnv = mdf(z.unknown(), z.string())((_, e) => e)
+
+    const getEnvWithEnvironment = applyEnvironment(
+      getEnv,
+      'constant environment',
+    )
+
+    assertEquals(await getEnvWithEnvironment('some input'), {
+      success: true,
+      data: 'constant environment',
+      errors: [],
+      inputErrors: [],
+      environmentErrors: [],
+    })
+  })
+})
+

src/branch.test.ts

@@ -4,7 +4,7 @@ import {
   assertEquals,
   assertObjectMatch,
 } from './test-prelude.ts'
-import { z } from 'https://deno.land/x/[email protected]/mod.ts'
+import { z } from './test-prelude.ts'
 
 import { mdf } from './constructor.ts'
 import { branch, pipe, all } from './domain-functions.ts'

src/collect-sequence.test.ts

@@ -1,5 +1,5 @@
 import { describe, it, assertEquals } from './test-prelude.ts'
-import { z } from 'https://deno.land/x/[email protected]/mod.ts'
+import { z } from './test-prelude.ts'
 
 import { mdf } from './constructor.ts'
 import { collectSequence } from './domain-functions.ts'

src/collect.test.ts

@@ -4,7 +4,7 @@ import {
   assertObjectMatch,
   assertEquals,
 } from './test-prelude.ts'
-import { z } from 'https://deno.land/x/[email protected]/mod.ts'
+import { z } from './test-prelude.ts'
 
 import { mdf } from './constructor.ts'
 import { collect } from './domain-functions.ts'