Artifact
13cb064c8c5064b0f244c13f3f14f9b11c7fb026149d464673003ef7a46b8016:
0000: 23 20 41 75 74 6f 20 67 65 6e 65 72 61 74 65 64 # Auto generated
0010: 20 74 65 73 74 20 63 61 73 65 73 20 66 6f 72 20 test cases for
0020: 72 61 6e 64 6f 6d 2e 63 73 76 0a 0a 23 20 4c 6f random.csv..# Lo
0030: 61 64 20 54 63 6c 20 54 65 73 74 20 70 61 63 6b ad Tcl Test pack
0040: 61 67 65 0a 69 66 20 7b 5b 6c 73 65 61 72 63 68 age.if {[lsearch
0050: 20 5b 6e 61 6d 65 73 70 61 63 65 20 63 68 69 6c [namespace chil
0060: 64 72 65 6e 5d 20 3a 3a 74 63 6c 74 65 73 74 5d dren] ::tcltest]
0070: 20 3d 3d 20 2d 31 7d 20 7b 0a 09 70 61 63 6b 61 == -1} {..packa
0080: 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 ge require tclte
0090: 73 74 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d st..namespace im
00a0: 70 6f 72 74 20 3a 3a 74 63 6c 74 65 73 74 3a 3a port ::tcltest::
00b0: 2a 0a 7d 0a 0a 73 65 74 20 61 75 74 6f 5f 70 61 *.}..set auto_pa
00c0: 74 68 20 5b 63 6f 6e 63 61 74 20 5b 6c 69 73 74 th [concat [list
00d0: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
00e0: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 6e file dirname [in
00f0: 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d 20 24 61 fo script]]]] $a
0100: 75 74 6f 5f 70 61 74 68 5d 0a 0a 70 61 63 6b 61 uto_path]..packa
0110: 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 0a 0a ge require tls..
0120: 23 20 52 61 6e 64 6f 6d 20 63 6f 6d 6d 61 6e 64 # Random command
0130: 0a 0a 0a 74 65 73 74 20 52 61 6e 64 6f 6d 2d 31 ...test Random-1
0140: 2e 31 20 7b 4d 69 6e 20 4c 65 6e 67 74 68 7d 20 .1 {Min Length}
0150: 2d 62 6f 64 79 20 7b 0a 09 73 74 72 69 6e 67 20 -body {..string
0160: 6c 65 6e 67 74 68 20 5b 3a 3a 74 6c 73 3a 3a 72 length [::tls::r
0170: 61 6e 64 6f 6d 20 30 5d 0a 20 20 20 20 7d 20 2d andom 0]. } -
0180: 72 65 73 75 6c 74 20 7b 30 7d 0a 0a 74 65 73 74 result {0}..test
0190: 20 52 61 6e 64 6f 6d 2d 31 2e 32 20 7b 45 78 61 Random-1.2 {Exa
01a0: 6d 70 6c 65 20 31 7d 20 2d 62 6f 64 79 20 7b 0a mple 1} -body {.
01b0: 09 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 5b .string length [
01c0: 3a 3a 74 6c 73 3a 3a 72 61 6e 64 6f 6d 20 34 32 ::tls::random 42
01d0: 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 ]. } -result
01e0: 7b 34 32 7d 0a 0a 74 65 73 74 20 52 61 6e 64 6f {42}..test Rando
01f0: 6d 2d 31 2e 33 20 7b 45 78 61 6d 70 6c 65 20 32 m-1.3 {Example 2
0200: 7d 20 2d 62 6f 64 79 20 7b 0a 09 73 74 72 69 6e } -body {..strin
0210: 67 20 6c 65 6e 67 74 68 20 5b 3a 3a 74 6c 73 3a g length [::tls:
0220: 3a 72 61 6e 64 6f 6d 20 31 30 30 30 5d 0a 20 20 :random 1000].
0230: 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 31 30 30 } -result {100
0240: 30 7d 0a 0a 74 65 73 74 20 52 61 6e 64 6f 6d 2d 0}..test Random-
0250: 31 2e 34 20 7b 50 72 69 76 61 74 65 20 4f 70 74 1.4 {Private Opt
0260: 69 6f 6e 7d 20 2d 62 6f 64 79 20 7b 0a 09 73 74 ion} -body {..st
0270: 72 69 6e 67 20 6c 65 6e 67 74 68 20 5b 3a 3a 74 ring length [::t
0280: 6c 73 3a 3a 72 61 6e 64 6f 6d 20 2d 70 72 69 76 ls::random -priv
0290: 61 74 65 20 34 32 5d 0a 20 20 20 20 7d 20 2d 72 ate 42]. } -r
02a0: 65 73 75 6c 74 20 7b 34 32 7d 0a 0a 23 20 52 61 esult {42}..# Ra
02b0: 6e 64 6f 6d 20 63 6f 6d 6d 61 6e 64 20 65 72 72 ndom command err
02c0: 6f 72 73 0a 0a 0a 74 65 73 74 20 52 61 6e 64 6f ors...test Rando
02d0: 6d 5f 45 72 72 6f 72 73 2d 32 2e 31 20 7b 54 6f m_Errors-2.1 {To
02e0: 6f 20 66 65 77 20 61 72 67 73 7d 20 2d 62 6f 64 o few args} -bod
02f0: 79 20 7b 0a 09 3a 3a 74 6c 73 3a 3a 72 61 6e 64 y {..::tls::rand
0300: 6f 6d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 om. } -result
0310: 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 {wrong # args:
0320: 73 68 6f 75 6c 64 20 62 65 20 22 3a 3a 74 6c 73 should be "::tls
0330: 3a 3a 72 61 6e 64 6f 6d 20 3f 2d 70 72 69 76 61 ::random ?-priva
0340: 74 65 3f 20 6c 65 6e 67 74 68 22 7d 20 2d 72 65 te? length"} -re
0350: 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d 0a 0a 74 turnCodes {1}..t
0360: 65 73 74 20 52 61 6e 64 6f 6d 5f 45 72 72 6f 72 est Random_Error
0370: 73 2d 32 2e 32 20 7b 54 6f 6f 20 6d 61 6e 79 20 s-2.2 {Too many
0380: 61 72 67 73 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a args} -body {..:
0390: 3a 74 6c 73 3a 3a 72 61 6e 64 6f 6d 20 74 6f 6f :tls::random too
03a0: 20 6d 61 6e 79 20 63 6f 6d 6d 61 6e 64 20 6c 69 many command li
03b0: 6e 65 20 61 72 67 73 20 74 6f 20 70 61 73 73 20 ne args to pass
03c0: 74 68 65 20 74 65 73 74 20 77 69 74 68 6f 75 74 the test without
03d0: 20 61 6e 20 65 72 72 6f 72 20 6f 72 20 66 61 69 an error or fai
03e0: 6c 69 6e 67 0a 20 20 20 20 7d 20 2d 72 65 73 75 ling. } -resu
03f0: 6c 74 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 lt {wrong # args
0400: 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 3a 3a 74 : should be "::t
0410: 6c 73 3a 3a 72 61 6e 64 6f 6d 20 3f 2d 70 72 69 ls::random ?-pri
0420: 76 61 74 65 3f 20 6c 65 6e 67 74 68 22 7d 20 2d vate? length"} -
0430: 72 65 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d 0a returnCodes {1}.
0440: 0a 74 65 73 74 20 52 61 6e 64 6f 6d 5f 45 72 72 .test Random_Err
0450: 6f 72 73 2d 32 2e 33 20 7b 49 6e 76 61 6c 69 64 ors-2.3 {Invalid
0460: 20 6c 65 6e 67 74 68 20 76 61 6c 75 65 7d 20 2d length value} -
0470: 62 6f 64 79 20 7b 0a 09 3a 3a 74 6c 73 3a 3a 72 body {..::tls::r
0480: 61 6e 64 6f 6d 20 62 6f 67 75 73 0a 20 20 20 20 andom bogus.
0490: 7d 20 2d 72 65 73 75 6c 74 20 7b 65 78 70 65 63 } -result {expec
04a0: 74 65 64 20 69 6e 74 65 67 65 72 20 62 75 74 20 ted integer but
04b0: 67 6f 74 20 22 62 6f 67 75 73 22 7d 20 2d 72 65 got "bogus"} -re
04c0: 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d 0a 0a 74 turnCodes {1}..t
04d0: 65 73 74 20 52 61 6e 64 6f 6d 5f 45 72 72 6f 72 est Random_Error
04e0: 73 2d 32 2e 34 20 7b 4e 65 67 61 74 69 76 65 20 s-2.4 {Negative
04f0: 6c 65 6e 67 74 68 7d 20 2d 62 6f 64 79 20 7b 0a length} -body {.
0500: 09 3a 3a 74 6c 73 3a 3a 72 61 6e 64 6f 6d 20 2d .::tls::random -
0510: 31 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 1. } -result
0520: 7b 62 61 64 20 63 6f 75 6e 74 20 22 2d 31 22 3a {bad count "-1":
0530: 20 6d 75 73 74 20 62 65 20 69 6e 74 65 67 65 72 must be integer
0540: 20 3e 3d 20 30 7d 20 2d 72 65 74 75 72 6e 43 6f >= 0} -returnCo
0550: 64 65 73 20 7b 31 7d 0a 0a 74 65 73 74 20 52 61 des {1}..test Ra
0560: 6e 64 6f 6d 5f 45 72 72 6f 72 73 2d 32 2e 35 20 ndom_Errors-2.5
0570: 7b 49 6e 76 61 6c 69 64 20 6f 70 74 69 6f 6e 7d {Invalid option}
0580: 20 2d 62 6f 64 79 20 7b 0a 09 3a 3a 74 6c 73 3a -body {..::tls:
0590: 3a 72 61 6e 64 6f 6d 20 2d 62 6f 67 75 73 20 34 :random -bogus 4
05a0: 32 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 2. } -result
05b0: 7b 62 61 64 20 6f 70 74 69 6f 6e 20 22 2d 62 6f {bad option "-bo
05c0: 67 75 73 22 3a 20 6d 75 73 74 20 62 65 20 2d 70 gus": must be -p
05d0: 72 69 76 61 74 65 7d 20 2d 72 65 74 75 72 6e 43 rivate} -returnC
05e0: 6f 64 65 73 20 7b 31 7d 0a 0a 74 65 73 74 20 52 odes {1}..test R
05f0: 61 6e 64 6f 6d 5f 45 72 72 6f 72 73 2d 32 2e 36 andom_Errors-2.6
0600: 20 7b 49 6e 76 61 6c 69 64 20 6c 65 6e 67 74 68 {Invalid length
0610: 20 77 69 74 68 20 6f 70 74 69 6f 6e 7d 20 2d 62 with option} -b
0620: 6f 64 79 20 7b 0a 09 3a 3a 74 6c 73 3a 3a 72 61 ody {..::tls::ra
0630: 6e 64 6f 6d 20 2d 70 72 69 76 61 74 65 20 62 6f ndom -private bo
0640: 67 75 73 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c gus. } -resul
0650: 74 20 7b 65 78 70 65 63 74 65 64 20 69 6e 74 65 t {expected inte
0660: 67 65 72 20 62 75 74 20 67 6f 74 20 22 62 6f 67 ger but got "bog
0670: 75 73 22 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 us"} -returnCode
0680: 73 20 7b 31 7d 0a 0a 23 20 43 6c 65 61 6e 75 70 s {1}..# Cleanup
0690: 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 .::tcltest::clea
06a0: 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 6e 0a nupTests.return.