added testcases.R