From f5c4671bfbad96bf346bd7e9a21fc4317b4959df Mon Sep 17 00:00:00 2001
From: Indrajith K L
Date: Sat, 3 Dec 2022 17:00:20 +0530
Subject: Adds most of the tools

---
 v_windows/v/vlib/dl/dl_test.v | 46 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 v_windows/v/vlib/dl/dl_test.v

(limited to 'v_windows/v/vlib/dl/dl_test.v')

diff --git a/v_windows/v/vlib/dl/dl_test.v b/v_windows/v/vlib/dl/dl_test.v
new file mode 100644
index 0000000..c4f0824
--- /dev/null
+++ b/v_windows/v/vlib/dl/dl_test.v
@@ -0,0 +1,46 @@
+import dl
+
+fn test_dl() {
+	$if linux {
+		run_test_invalid_lib_linux()
+		return
+	}
+	$if windows {
+		run_test_invalid_lib_windows()
+		run_test_valid_lib_windows()
+		run_test_invalid_sym_windows()
+		run_test_valid_sym_windows()
+		return
+	} $else {
+		eprint('currently not implemented on this platform')
+	}
+}
+
+fn run_test_invalid_lib_linux() {
+	// ensure a not-existing dl won't be loaded
+	h := dl.open('not-existing-dynamic-link-library', dl.rtld_now)
+	assert h == 0
+}
+
+fn run_test_invalid_lib_windows() {
+	// ensure a not-existing dl won't be loaded
+	h := dl.open('not-existing-dynamic-link-library', dl.rtld_now)
+	assert h == 0
+}
+
+fn run_test_valid_lib_windows() {
+	h := dl.open('shell32', dl.rtld_now)
+	assert h != 0
+}
+
+fn run_test_invalid_sym_windows() {
+	h := dl.open('shell32', dl.rtld_now)
+	proc := dl.sym(h, 'CommandLineToArgvW2')
+	assert proc == 0
+}
+
+fn run_test_valid_sym_windows() {
+	h := dl.open('shell32', dl.rtld_now)
+	proc := dl.sym(h, 'CommandLineToArgvW')
+	assert proc != 0
+}
-- 
cgit v1.2.3