Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(nofrills)
  > 
  > test_check("nofrills")
  ── 1. Failure: formals can be spliced in as arguments (@test-quasiquotation.R#26
  fn(x = , y = 1, ... = , z = x + y, ~x + y + z) not equal to `f`.
  target, current do not match when deparsed
  
  ── 2. Error: formals can be spliced in as arguments (@test-quasiquotation.R#27) 
  Only the body (as last argument) should be a formula
  1: expect_equal(fn(UQS(fmls), ~x + y + z), f) at testthat/test-quasiquotation.R:27
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: fn(x = , y = 1, ... = , z = x + y, ~x + y + z, ~x + y + z)
  5: get_fn_declaration(...)
  6: get_exprs(...)
  7: validate(exprs_(...))
  8: abort("Only the body (as last argument) should be a formula")
  
  ── 3. Error: unquoting operators can be literally expressed (@test-quasiquotatio
  object 'x' not found
  1: expect_equal(fn(x ~ foo(QUQ(x))), function(x) foo(UQ(x))) at testthat/test-quasiquotation.R:45
  2: quasi_label(enquo(expected), expected.label)
  3: force(quo)
  4: enquo(expected)
  5: (function (x) 
     {
         x
     })(x)
  
  ── 4. Failure: formals can be spliced in as arguments (@test-quasiquotation.R#75
  foo(.(x = , y = 1, ... = , z = x + y, ~x + y + z)) not equal to `f`.
  target, current do not match when deparsed
  
  ── 5. Error: formals can be spliced in as arguments (@test-quasiquotation.R#76) 
  Only the body (as last argument) should be a formula
  1: expect_equal(foo(.(UQS(fmls), ~x + y + z)), f) at testthat/test-quasiquotation.R:76
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: foo(.(x = , y = 1, ... = , z = x + y, ~x + y + z, ~x + y + z))
  5: as_fn(x) at testthat/test-quasiquotation.R:52
  6: interpret_fn(x, match.fun(.f), parent.frame(2))
  7: eval_bare(x, env)
  8: (function (..., ..env = parent.frame()) 
     {
         if (!is.environment(..env)) 
             abort("'..env' must be an environment")
         d <- get_fn_declaration(...)
         new_function(d$args, d$body, ..env)
     })(x = , y = 1, ... = , z = x + y, ~x + y + z, ~x + y + z)
  9: get_fn_declaration(...)
  10: get_exprs(...)
  11: validate(exprs_(...))
  12: abort("Only the body (as last argument) should be a formula")
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 85 SKIPPED: 0 FAILED: 5
  1. Failure: formals can be spliced in as arguments (@test-quasiquotation.R#26) 
  2. Error: formals can be spliced in as arguments (@test-quasiquotation.R#27) 
  3. Error: unquoting operators can be literally expressed (@test-quasiquotation.R#45) 
  4. Failure: formals can be spliced in as arguments (@test-quasiquotation.R#75) 
  5. Error: formals can be spliced in as arguments (@test-quasiquotation.R#76) 
  
  Error: testthat unit tests failed
  Execution halted