Add simple testthat example