windows.registry: add change-registry-value and delete-value

[factor.git] / basis / windows / registry / registry-tests.factor

diff --git a/basis/windows/registry/registry-tests.factor b/basis/windows/registry/registry-tests.factor
index 17662bf75ac09247d67a2fd77814d231a0b70030..839f2eecd396954b1fdd2351535ba109afa6385f 100644 (file)
--- a/basis/windows/registry/registry-tests.factor
+++ b/basis/windows/registry/registry-tests.factor
@@ -1,7 +1,27 @@
 ! Copyright (C) 2010 Doug Coleman.
+! Copyright (C) 2018 Alexander Ilin.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel tools.test windows.advapi32 windows.registry ;
+USING: byte-arrays io.encodings.string io.encodings.utf16n
+kernel sequences tools.test windows.advapi32 windows.kernel32
+windows.registry ;
 IN: windows.registry.tests
 
 [ ]
 [ HKEY_CURRENT_USER "SOFTWARE\\\\Microsoft" read-registry drop ] unit-test
+
+[ t ]
+[
+    HKEY_CURRENT_USER "Environment" KEY_SET_VALUE [
+        "factor-test" "value" utf16n encode dup length set-reg-sz
+    ] with-open-registry-key
+    HKEY_CURRENT_USER "Environment" "factor-test" [
+        "test-string" ";" glue
+    ] change-registry-value
+    HKEY_CURRENT_USER "Environment" KEY_QUERY_VALUE [
+        "factor-test" f f MAX_PATH <byte-array> reg-query-value-ex
+        utf16n decode "value;test-string\0" =
+    ] with-open-registry-key
+    HKEY_CURRENT_USER "Environment" KEY_SET_VALUE [
+        "factor-test" delete-value
+    ] with-open-registry-key
+] unit-test