8	8
			9	9	if {[info exists opt(-testlog)]} {
			10	10	set f [open $opt(-testlog)]; set content [read $f]; close $f
			11		lassign {0 0 0 0 0.0} tests success failures files time
				11	lassign {0 0 0 0 0.0} tests success failures files ms
			12	12	foreach l [split $content \n] {
			13	13	array set "" $l
			14	14	if {[info exists (tests)]} {
			15	15	incr tests $(tests)
			16	16	incr failures $(failure)
			17	17	incr success $(success)
			18	18	incr files 1
			19		set time [expr {$time + $(time)}]
				19	set ms [expr {$ms + $(ms)}]
			20	20	}
			21	21	}
			22	22
			23	23	puts "\nRegression Test Summary:"
			24	24	puts "\tEnvironment: Tcl $tcl_patchLevel, OS $tcl_platform(os) $tcl_platform(osVersion)\
			25	25	machine $tcl_platform(machine) threaded $tcl_platform(threaded)."
			26		puts "\tNSF performed $tests tests in $files files, success $success, failures $failures in time [expr {$time / 1000.0}] seconds"
				26	puts "\tNSF performed $tests tests in $files files, success $success, failures $failures in [expr {$ms / 1000.0}] seconds"
			27	27	if {$failures == 0} {
			28	28	puts "\tCongratulations, NSF [package require nsf], NX [package require nx], and\
			29	29	XOTcl [package require XOTcl 2] work fine in your environment."