if [llength [info commands p7proc]] {
        set Compiling true
} else {
        set Compiling false
        source testing.tcl
}

if $Compiling {


	p7proc (tcl)pi { } { return "3.1415926536" }


} else {

	# AssertTrue & AssertFalse take an expression

	AssertTrue { 3.14 < [pi] }
	AssertTrue { [pi] < 3.15 }
	AssertFalse { [pi] == 22.0/7.0 }

	# These take an expected value and a command

	AssertMatch 3.14* { pi }
	AssertEq 3 { expr { int( [pi] ) } }


	# Now make sure they run in this scope

	set Pi [pi]

	AssertTrue { 3.14 < $Pi }
	AssertTrue { $Pi < 3.15 }
	AssertFalse { $Pi == 22.0/7.0 }

	AssertMatch 3.14* { expr $Pi }
	AssertEq 3 { expr { int( $Pi ) } }

Okay
}