Hex Artifact Content

Artifact 62d62de639f2e021c4f2e3c91e29c484c4c2d985:


0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20  #! /usr/bin/env 
0010: 74 63 6c 73 68 0a 0a 73 65 74 20 68 61 76 65 52  tclsh..set haveR
0020: 65 67 20 30 0a 63 61 74 63 68 20 7b 0a 09 70 61  eg 0.catch {..pa
0030: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 72 65  ckage require re
0040: 67 69 73 74 72 79 0a 09 73 65 74 20 68 61 76 65  gistry..set have
0050: 52 65 67 20 31 0a 7d 0a 0a 69 66 20 7b 21 24 68  Reg 1.}..if {!$h
0060: 61 76 65 52 65 67 7d 20 7b 0a 09 65 78 69 74 20  aveReg} {..exit 
0070: 30 0a 7d 0a 0a 63 61 74 63 68 20 7b 0a 09 72 65  0.}..catch {..re
0080: 67 69 73 74 72 79 20 64 65 6c 65 74 65 20 48 4b  gistry delete HK
0090: 45 59 5f 43 55 52 52 45 4e 54 5f 55 53 45 52 20  EY_CURRENT_USER 
00a0: 74 65 73 74 0a 7d 0a 0a 73 65 74 20 76 61 6c 75  test.}..set valu
00b0: 65 20 22 54 65 73 74 56 61 6c 75 65 22 0a 72 65  e "TestValue".re
00c0: 67 69 73 74 72 79 20 73 65 74 20 48 4b 45 59 5f  gistry set HKEY_
00d0: 43 55 52 52 45 4e 54 5f 55 53 45 52 20 74 65 73  CURRENT_USER tes
00e0: 74 20 24 76 61 6c 75 65 20 6d 75 6c 74 69 5f 73  t $value multi_s
00f0: 7a 0a 0a 73 65 74 20 63 68 65 63 6b 20 5b 72 65  z..set check [re
0100: 67 69 73 74 72 79 20 67 65 74 20 48 4b 45 59 5f  gistry get HKEY_
0110: 43 55 52 52 45 4e 54 5f 55 53 45 52 20 74 65 73  CURRENT_USER tes
0120: 74 5d 0a 0a 69 66 20 7b 24 76 61 6c 75 65 20 21  t]..if {$value !
0130: 3d 20 24 63 68 65 63 6b 7d 20 7b 0a 09 70 75 74  = $check} {..put
0140: 73 20 22 45 78 70 65 63 74 65 64 3a 20 24 76 61  s "Expected: $va
0150: 6c 75 65 22 0a 09 70 75 74 73 20 22 47 6f 74 3a  lue"..puts "Got:
0160: 20 20 20 20 20 20 24 63 68 65 63 6b 22 0a 0a 09        $check"...
0170: 65 78 69 74 20 31 0a 7d 0a 0a 65 78 69 74 20 30  exit 1.}..exit 0
0180: 0a                                               .