Testing::Result::Current reasonably complete

	modified:   t/inc/Testing/Result.pm
	modified:   t/inc/Testing/Result/Current.pm