basis/windows/registry/registry-tests.factor

   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.utf16
   5 kernel sequences tools.test windows.advapi32 windows.kernel32
   6 windows.registry ;
   7 IN: windows.registry.tests
   8
   9 [ ]
  10 [ HKEY_CURRENT_USER "SOFTWARE\\\\Microsoft" read-registry drop ] unit-test
  11
  12 [ t ]
  13 [
  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
  27 ] unit-test