04-version.tcl at [a0175128eb]

File build/test/tests/04-version.tcl artifact d679aaf9ec part of check-in a0175128eb


#! /usr/bin/env tclsh

set chkversion [lindex $argv 2]

# We are unable to make a reasonable determination of the version from a CVS
# tag.  Assume it's okay.
if {[string match "cvs_*" $chkversion]} {
	exit 0
}

if {[info patchlevel] == $chkversion} {
	exit 0
}

exit 1