From 7faf7f4c23e10489e6e6cfb02d8db38205859d25 Mon Sep 17 00:00:00 2001
From: Thijs Schreijer <thijs@thijsschreijer.nl>
Date: Tue, 16 Apr 2024 11:46:07 +0200
Subject: [PATCH] add tests

---
 spec/utils-getenv-setenv_spec.lua | 108 ++++++++++++++++++++++++++++++
 1 file changed, 108 insertions(+)
 create mode 100644 spec/utils-getenv-setenv_spec.lua

diff --git a/spec/utils-getenv-setenv_spec.lua b/spec/utils-getenv-setenv_spec.lua
new file mode 100644
index 00000000..a50af58e
--- /dev/null
+++ b/spec/utils-getenv-setenv_spec.lua
@@ -0,0 +1,108 @@
+local utils = require("pl.utils")
+
+describe("pl.utils", function()
+
+  local TEST_NAME = "name" .. tostring(math.random(1000))
+
+  after_each(function()
+    utils.setenv_default(TEST_NAME, nil)
+  end)
+
+
+  describe("setenv_default", function ()
+
+    it("errors if name isn't a string", function()
+      assert.has.errors(function()
+        utils.setenv_default(nil, "value")
+      end)
+      assert.has.errors(function()
+        utils.setenv_default(123, "value")
+      end)
+    end)
+
+
+    it("doesn't error if name is a string", function()
+      assert.has.no.errors(function()
+        utils.setenv_default(TEST_NAME, "value")
+      end)
+    end)
+
+
+    it("errors if value isn't a string", function()
+      assert.has.errors(function()
+        utils.setenv_default(TEST_NAME, 123)
+      end)
+      assert.has.errors(function()
+        utils.setenv_default(123, "value")
+      end)
+    end)
+
+
+    it("doesn't error if value is nil or a string", function()
+      assert.has.no.errors(function()
+        utils.setenv_default(TEST_NAME, "value")
+      end)
+      assert.has.no.errors(function()
+        utils.setenv_default(TEST_NAME, nil)
+      end)
+    end)
+
+  end)
+
+
+
+  describe("getenv", function ()
+
+    it("errors if name isn't a string", function()
+      assert.has.errors(function()
+        utils.getenv(nil)
+      end)
+      assert.has.errors(function()
+        utils.getenv(123)
+      end)
+    end)
+
+
+    it("doesn't error if name is a string", function()
+      assert.has.no.errors(function()
+        utils.getenv(TEST_NAME)
+      end)
+    end)
+
+
+    it("returns values set by setenv_default", function()
+      utils.setenv_default(TEST_NAME, "value")
+      assert.equal(utils.getenv(TEST_NAME), "value")
+
+      utils.setenv_default(TEST_NAME, nil)
+      assert.is_nil(utils.getenv(TEST_NAME))
+    end)
+
+
+    it("returns defaults only as fallback", function()
+      -- PATH is set on all systems, so we use that to test
+      finally(function()
+        utils.setenv_default("PATH", nil)
+      end)
+
+      utils.setenv_default("PATH", "value")
+      assert.not_nil(utils.getenv("PATH"))
+      assert.not_equal(utils.getenv("PATH"), "value")
+    end)
+
+
+    if utils.is_windows then
+      it("is case-insensitive on Windows", function()
+        finally(function()
+          utils.setenv_default(TEST_NAME:upper(), nil)
+        end)
+
+        assert.is_nil(utils.getenv(TEST_NAME:lower()))  -- verify it's unset first
+        utils.setenv_default(TEST_NAME:upper(), "value")
+        assert.equal(utils.getenv(TEST_NAME:lower()), "value")
+      end)
+    end
+
+  end)
+
+end)