64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
puts "\[FAIL\] Exp: $hash_expected"
return false
}
return true
}
set tests {
signatures
hashing
}
foreach test $tests {
if {![test_$test]} {
puts "FAILED test $test"
exit 1
}
|
>
>
>
>
>
>
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
puts "\[FAIL\] Exp: $hash_expected"
return false
}
return true
}
proc test_keygeneration {} {
set key [::nano::internal::generateKey]
puts "key=$key"
}
set tests {
signatures
hashing
keygeneration
}
foreach test $tests {
if {![test_$test]} {
puts "FAILED test $test"
exit 1
}
|