From 5a0189e44c45c5dbf671d46f106f310728c09c23 Mon Sep 17 00:00:00 2001
From: Tim-ats-d <tim.arnouts@protonmail.com>
Date: Wed, 7 Sep 2022 14:06:49 +0200
Subject: [PATCH] Rewrite tests to be system agnostic.

---
 test/test_ppx_system.ml | 34 +++++++++-------------------------
 1 file changed, 9 insertions(+), 25 deletions(-)

diff --git a/test/test_ppx_system.ml b/test/test_ppx_system.ml
index bc73bad..0903412 100644
--- a/test/test_ppx_system.ml
+++ b/test/test_ppx_system.ml
@@ -1,26 +1,10 @@
-(* Written to work on Linux. *)
-
-assert (match [%get_system] with Unix -> true | _ -> false);
-
-assert (String.equal "xdg-open" [%system { unix = "xdg-open" }]);
-
 assert (
-  String.equal "UNIX"
-    [%system
-      {
-        darwin = "Darwin";
-        free_bsd = "FreeBSD";
-        net_bsd = "NetBSD";
-        open_bsd = "OpenBSD";
-        unix = "UNIX";
-        win32 = "Win32";
-      }]);
-
-assert (String.equal "open" [%system { default = "open" }]);
-
-assert (
-  String.equal "xdg-open" [%system { darwin = "open"; default = "xdg-open" }]);
-
-assert (
-  String.equal "xdg-open"
-    [%system { darwin = "open"; unix = "xdg-open"; win32 = "open" }])
+  match [%get_system] with
+  | Darwin when [%system { darwin = "darwin" }] = "darwin" -> true
+  | FreeBSD when [%system { free_bsd = "free_bsd" }] = "free_bsd" -> true
+  | NetBSD when [%system { net_bsd = "net_bsd" }] = "net_bsd" -> true
+  | OpenBSD when [%system { open_bsd = "open_bsd" }] = "open_bsd" -> true
+  | Unix when [%system { unix = "unix" }] = "unix" -> true
+  | Win32 when [%system { win32 = "win32" }] = "win32" -> true
+  | Unknown _ when [%system { darwin = "darwin" }] = "" -> true
+  | _ -> false)