Function Run-Teardown-P

Part of:

package lift
( run-teardown-p < testsuite > < when > )