amend tests to make failures more obvious via the command line (thanks to Kurt for demonstrating the issue)

Author: ironholds

tests/testthat/test_freegeoip.R

@@ -1,28 +1,28 @@
 context("Test freegeoip")
 
-test_that("data.frames can be returned", {
+test_that("data.frames can be returned from freegeoip", {
   result <- freegeoip("2607:FB90:426:DC1D:CFC4:4875:8BC2:4D93")
   expect_that(is.data.frame(result), equals(TRUE))
   expect_that(nrow(result), equals(1))
   expect_that(ncol(result), equals(11))
 })
 
-test_that("Lists can be returned", {
+test_that("Lists can be returnedfrom freegeoip", {
   result <- freegeoip("2607:FB90:426:DC1D:CFC4:4875:8BC2:4D93", FALSE)
   expect_that(is.list(result), equals(TRUE))
   expect_that(length(result), equals(1))
   expect_that(length(result[[1]]), equals(11))
 })
 
-test_that("data.frames with errors can be returned", {
+test_that("data.frames with errors can be returned from freegeoip", {
   result <- freegeoip("Go ahead and try to hit me if you're able, can't you see that my relationship is stable")
   expect_that(is.data.frame(result), equals(TRUE))
   expect_that(nrow(result), equals(1))
   expect_that(ncol(result), equals(11))
   expect_that(result$status[1], equals("Error"))
 })
 
-test_that("Lists can be returned", {
+test_that("Lists can be returned from freegeoip", {
   result <- freegeoip("I can see you hate the way we intermingle, but I think you're just mad cuz you're single", FALSE)
   expect_that(is.list(result), equals(TRUE))
   expect_that(length(result), equals(1))

tests/testthat/test_ip_api.R

@@ -1,28 +1,28 @@
 context("Test ip-api")
 
-test_that("data.frames can be returned", {
+test_that("data.frames can be returned from freegeoip", {
   result <- ip_api("2607:FB90:426:DC1D:CFC4:4875:8BC2:4D93")
   expect_that(is.data.frame(result), equals(TRUE))
   expect_that(nrow(result), equals(1))
   expect_that(ncol(result), equals(13))
 })
 
-test_that("Lists can be returned", {
+test_that("Lists can be returned from freegeoip", {
   result <- ip_api("2607:FB90:426:DC1D:CFC4:4875:8BC2:4D93", FALSE)
   expect_that(is.list(result), equals(TRUE))
   expect_that(length(result), equals(1))
   expect_that(length(result[[1]]), equals(14))
 })
 
-test_that("data.frames with errors can be returned", {
+test_that("data.frames with errors can be returned from freegeoip", {
   result <- ip_api("Go ahead and try to hit me if you're able, can't you see that my relationship is stable")
   expect_that(is.data.frame(result), equals(TRUE))
   expect_that(nrow(result), equals(1))
   expect_that(ncol(result), equals(13))
   expect_that(result$status[1], equals("Error"))
 })
 
-test_that("Lists can be returned", {
+test_that("Lists can be returned from freegeoip", {
   result <- freegeoip("I can see you hate the way we intermingle, but I think you're just mad cuz you're single", FALSE)
   expect_that(is.list(result), equals(TRUE))
   expect_that(length(result), equals(1))