1 ! Copyright (C) 2010 Doug Coleman.
2 ! Copyright (C) 2018 Alexander Ilin.
3 ! See http://factorcode.org/license.txt for BSD license.
4 USING: byte-arrays io.encodings.string io.encodings.utf16n
5 kernel sequences tools.test windows.advapi32 windows.kernel32
7 IN: windows.registry.tests
10 [ HKEY_CURRENT_USER "SOFTWARE\\\\Microsoft" read-registry drop ] unit-test
14 HKEY_CURRENT_USER "Environment" KEY_SET_VALUE [
15 "factor-test" "value" utf16n encode dup length set-reg-sz
16 ] with-open-registry-key
17 HKEY_CURRENT_USER "Environment" "factor-test" [
18 "test-string" ";" glue
19 ] change-registry-value
20 HKEY_CURRENT_USER "Environment" KEY_QUERY_VALUE [
21 "factor-test" f f MAX_PATH <byte-array> reg-query-value-ex
22 utf16n decode "value;test-string\0" =
23 ] with-open-registry-key
24 HKEY_CURRENT_USER "Environment" KEY_SET_VALUE [
25 "factor-test" delete-value
26 ] with-open-registry-key