Running 'testthat.R' [5s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(wikifacts)
  > 
  > test_check("wikifacts")
  -- FAILURE (test-didyouknow.R:2:3): wiki_didyouknow() generates a valid fact ---
  `.` not equal to "Did you know".
  1/1 mismatches
  x[1]: "I got nothin"
  y[1]: "Did you know"
  
  -- FAILURE (test-didyouknow.R:8:3): wiki_didyouknow() generates facts when asked
  `.` not equal to 0.
  1/1 mismatches
  [1] 1 - 0 == 1
  
  -- FAILURE (test-inthenews.R:2:3): wiki_inthenews() generates a valid fact -----
  `.` not equal to "Here's some news".
  1/1 mismatches
  x[1]: "I got nothin'"
  y[1]: "Here's some news"
  
  -- FAILURE (test-inthenews.R:8:3): wiki_inthenews() generates facts when asked f
  `.` not equal to 0.
  1/1 mismatches
  [1] 1 - 0 == 1
  
  -- FAILURE (test-onthisday.R:2:3): wiki_onthisday() generates a valid fact -----
  `.` not equal to "Did you know".
  1/1 mismatches
  x[1]: "I got nothin"
  y[1]: "Did you know"
  
  -- FAILURE (test-onthisday.R:8:3): wiki_onthisday() generates facts when asked f
  `.` not equal to 0.
  1/1 mismatches
  [1] 1 - 0 == 1
  
  -- FAILURE (test-randomfact.R:2:3): wiki_randomfact() generates a valid didyoukn
  `.` not equal to "Did you know".
  1/1 mismatches
  x[1]: "I got nothin"
  y[1]: "Did you know"
  
  -- FAILURE (test-randomfact.R:8:3): wiki_randomfact() generates a valid inthenew
  `.` not equal to "Here's some news".
  1/1 mismatches
  x[1]: "I got nothin'"
  y[1]: "Here's some news"
  
  -- FAILURE (test-randomfact.R:14:3): wiki_randomfact() generates a valid onthisd
  `.` not equal to "Did you know".
  1/1 mismatches
  x[1]: "I got nothin"
  y[1]: "Did you know"
  
  -- Warning (???): wiki_query() returns expected result -------------------------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  
  -- ERROR (???): wiki_query() returns expected result ---------------------------
  Error: cannot open the connection
  Backtrace:
      x
   1. \-wikifacts::wiki_query(query)
   2.   \-base::tryCatch(...)
   3.     \-base:::tryCatchList(expr, classes, parentenv, handlers)
   4.       \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   5.         \-value[[3L]](cond)
  
  == testthat results  ===========================================================
  FAILURE (test-didyouknow.R:2:3): wiki_didyouknow() generates a valid fact
  FAILURE (test-didyouknow.R:8:3): wiki_didyouknow() generates facts when asked for many
  FAILURE (test-inthenews.R:2:3): wiki_inthenews() generates a valid fact
  FAILURE (test-inthenews.R:8:3): wiki_inthenews() generates facts when asked for many
  FAILURE (test-onthisday.R:2:3): wiki_onthisday() generates a valid fact
  FAILURE (test-onthisday.R:8:3): wiki_onthisday() generates facts when asked for many
  FAILURE (test-randomfact.R:2:3): wiki_randomfact() generates a valid didyouknow fact
  FAILURE (test-randomfact.R:8:3): wiki_randomfact() generates a valid inthenews fact
  FAILURE (test-randomfact.R:14:3): wiki_randomfact() generates a valid onthisday fact
  Warning (???): wiki_query() returns expected result
  ERROR (???): wiki_query() returns expected result
  
  [ FAIL 10 | WARN 1 | SKIP 0 | PASS 6 ]
  Error: Test failures
  Execution halted