sdk/R/run_test.R

   1 # Copyright (C) The Arvados Authors. All rights reserved.
   2 #
   3 # SPDX-License-Identifier: Apache-2.0
   4
   5 results <- devtools::test()
   6 any_error <- any(as.data.frame(results)$error)
   7 if (any_error) {
   8   q("no", 1)
   9 } else {
  10   q("no", 0)
  11 }