Added build/test/tests/11-metakit.tcl version [ef16a161c4].

            1  +#! /usr/bin/env tclsh
            2  +
            3  +set buildflags [split [lindex $argv 1] -]
            4  +
            5  +# This test works implicitly on Tclkits without Metakit4
            6  +foreach flag [list nomk4 min] {
            7  +	if {[lsearch -exact $buildflags $flag] != -1} {
            8  +		exit 0
            9  +	}
           10  +}
           11  +
           12  +catch {
           13  +	file delete -force datafile.mk
           14  +}
           15  +
           16  +set testval "<Not Found>"
           17  +set errorInfo_save "<No Error>"
           18  +if {[catch {
           19  +	package require Mk4tcl
           20  +
           21  +	mk::file open db datafile.mk
           22  +	mk::view layout db.test {first second}
           23  +	mk::row append db.test first Joe second Bob
           24  +	mk::file commit db
           25  +	mk::file close db
           26  +
           27  +	mk::file open db datafile.mk
           28  +	set testval [mk::get db.test!0 first]
           29  +	mk::file close db
           30  +}]} {
           31  +	set errorInfo_save $errorInfo
           32  +}
           33  +
           34  +catch {
           35  +	file delete -force datafile.mk
           36  +}
           37  +
           38  +if {$testval == "Joe"} {
           39  +	exit 0
           40  +}
           41  +
           42  +puts "Returned: $testval"
           43  +puts "Expected: Joe"
           44  +puts "Error   : $errorInfo_save"
           45  +
           46  +exit 1