Fix test program code

Make ``proper''