check r unittest