# -*- tcl -*- Tests for "base32"
# This testsuite is in the public domain.
#__________________________________________
# RCS: @(#) $Id: base32hex.test,v 1.3 2008/03/22 23:46:42 andreas_kupries Exp $

# -------------------------------------------------------------------------

source [file join \
	[file dirname [file dirname [file join [pwd] [info script]]]] \
	devtools testutilities.tcl]

testsNeedTcl     8.4
testsNeedTcltest 2.1

testing {
    useLocal     base32core.tcl base32::core
    useTcllibC
    useLocalKeep base32hex.tcl  base32::hex
    TestAccelInit               base32::hex
}

set tests [localPath base32hex.testsuite]

# -------------------------------------------------------------------------

# The global variable 'impl' is part of the public API the testsuite
# (in base32hex.testsuite) does expect from the environment.

TestAccelDo base32::hex impl {
    source $tests
}

# -------------------------------------------------------------------------

unset tests
TestAccelExit base32::hex
testsuiteCleanup
return