test_name 	 ca-obsolete-feature-call-date
test_description Obsolete feature call should be reported with different severity levels depending on the specified date.

copy_sub	Ace $TEST Ace

	-- 4 years ago: error.
define_date     DATE -1461
copy_sub	test.e $CLUSTER test.e

compile_melted
compile_result 	validity_error TEST Obsolete

--analyze_code rule "CA069"
--analyze_code_result violation "TEST CA069:10-Error"

	-- Yerterday: warning.
define_date     DATE -1
copy_sub	test.e $CLUSTER test.e

resume_compile

analyze_code rule "CA069"
analyze_code_result violation "TEST CA069:10-Warning"

	-- In a month: hint.
define_date     DATE 31
copy_sub	test.e $CLUSTER test.e

analyze_code rule "CA069"
analyze_code_result violation "TEST CA069:10-Hint"

test_end