added testpull.R