1
2
3
4
5
6
7
8
9
10
11
12
|
# Auto generated from "Scrypt.txt"
package require tls
package require tcltest
tcltest::testConstraint Scrypt [expr {[lsearch -nocase [tls::kdfs] Scrypt] > -1}]
tcltest::test KDF_Scrypt-1.1 {Scrypt} \
-constraints {Scrypt } \
-setup {} \
-body {binary encode hex [tls::scrypt -password "" -salt "" -size 64 -N 16 -r 1 -p 1]} \
-match exact -result 77d6576238657b203b19ca42c18a0497f16b4844e3074ae8dfdffa3fede21442fcd0069ded0948f8326a753a0fc81f17e8d3e0fb2e0d3628cf35e20c38d18906
|
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Auto generated from "Scrypt.txt"
lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
package require tls
package require tcltest
tcltest::testConstraint Scrypt [expr {[lsearch -nocase [tls::kdfs] Scrypt] > -1}]
catch {tls::provider legacy}
tcltest::test KDF_Scrypt-1.1 {Scrypt} \
-constraints {Scrypt } \
-setup {} \
-body {binary encode hex [tls::scrypt -password "" -salt "" -size 64 -N 16 -r 1 -p 1]} \
-match exact -result 77d6576238657b203b19ca42c18a0497f16b4844e3074ae8dfdffa3fede21442fcd0069ded0948f8326a753a0fc81f17e8d3e0fb2e0d3628cf35e20c38d18906
|