Update test.r

addes success message