Artifact 78d12115d9741f816d7bb82958b74c8553556bda:

• File packages/crypto/lib/sha.test.tcl — part of check-in [c16d507301] at 2015-12-29 07:59:48 on branch trunk — global search replace {colons in package names} Some other code changes (user: pooryorick size: 1174)

#! /bin/env tclsh

package require {ycl dir}
namespace import [yclprefix]::dir
package require {ycl crypto sha}
namespace import [yclprefix]::crypto::sha
package require {ycl test}
[yclprefix]::test::init

proc suite_main {} {

	variable setup1 {
		set res {}
		set dirtree {
			{
			}
			{
				file1 {hello from file1}
			}
		}
		set tempdir [makeDirectory [dir mktempdir]]
		dir deserialize in $tempdir tree $dirtree  
	}

	test sha_basic {} -setup $setup1 -body {
		sha sha mysha provision openssl algo 256
		#sha sha mysha provision tcllibc algo 256
		#sha mysha algo 256
		#lappend res [mysha provider]
		#catch {mysha configure goop} eres eopts
		#lappend res $eres
		#catch {mysha configure goop one} eres eopts
		#lappend res $eres
		#mysha conf provider
		#lappend res [mysha is openssl]
		#path [file join $tempdir file1] 
		mysha digest [info script]
	} -match glob -result {openssl {no such option*}}

	test openssl {} -setup $setup1 -body {
		package require ycl::programs::openssl
		[yclprefix]::programs::openssl
		#lassign [sha openssl find require version return both] mysha failed
		#$mysha $ version
		#$mysha $ probed 
	} -result {mmmp}

	cleanupTests
}