30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
-
+
-
+
|
} -result {42}
# Random command errors
test Random_Errors-2.1 {Too few args} -body {
::tls::random
} -result {wrong # args: should be "tls::random ?-private? length"} -returnCodes {1}
} -result {wrong # args: should be "::tls::random ?-private? length"} -returnCodes {1}
test Random_Errors-2.2 {Too many args} -body {
::tls::random too many command line args to pass the test without an error or failing
} -result {wrong # args: should be "tls::random ?-private? length"} -returnCodes {1}
} -result {wrong # args: should be "::tls::random ?-private? length"} -returnCodes {1}
test Random_Errors-2.3 {Invalid length value} -body {
::tls::random bogus
} -result {expected integer but got "bogus"} -returnCodes {1}
test Random_Errors-2.4 {Negative length} -body {
::tls::random -1
|