sub assertOk (&$;) {
    my( $package, $file, $line ) = caller;