Artifact d679aaf9ec4f87d22086a191f034fd6ed074a1a7:

• File build/test/tests/04-version.tcl — part of check-in [b180e9a80f] at 2010-09-26 04:46:10 on branch trunk — Added internal testing script (user: rkeene, size: 270) [annotate] [blame] [check-ins using]

#! /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