Running 'doRUnit.R'
Running the tests in 'tests/doRUnit.R' failed.
Complete output:
  > ## unit tests will not be done if RUnit is not available
  > if(require("RUnit", quietly=TRUE)) {
  +  
  +   ## --- Setup ---
  +   R_CMD_CHECK <- Sys.getenv("RCMDCHECK") != "FALSE"
  +  
  +   pkg <- "TTR" # <-- Change to package name!
  + 
  +   if (R_CMD_CHECK) {
  +     ## Path to unit tests for R CMD check
  +     ## PKG.Rcheck/PKG/unitTests
  +     path <- system.file("unitTests", package=pkg)
  +   } else {
  +     ## Path to unit tests for standalone running under Makefile (not R CMD check)
  +     ## PKG/tests/../inst/unitTests
  +     path <- file.path(getwd(), "..", "inst", "unitTests")
  +   }
  +   cat("\nRunning unit tests\n")
  +   print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path))
  +  
  +   library(package=pkg, character.only=TRUE)
  +  
  +   ## If desired, load the name space to allow testing of private functions
  +   ## if (is.element(pkg, loadedNamespaces()))
  +   ##     attach(loadNamespace(pkg), name=paste("namespace", pkg, sep=":"), pos=3)
  +   ##
  +   ## or simply call PKG:::myPrivateFunction() in tests
  +  
  +   ## --- Testing ---
  +  
  +   ## Define tests
  +   testSuite <- defineTestSuite(name=paste(pkg, "unit testing"),
  +                                           dirs=path)
  +   ## Run
  +   tests <- runTestSuite(testSuite)
  + 
  +   ## Report to stdout
  +   cat("------------------- UNIT TEST SUMMARY ---------------------\n\n")
  +   printTextProtocol(tests, showDetails=FALSE)
  + 
  +   ## Report text files (only if not under R CMD check)
  +   if (!R_CMD_CHECK) {
  +     ## Default report name
  +     pathReport <- file.path(path, "report")
  + 
  +     printTextProtocol(tests, showDetails=FALSE,
  +                       fileName=paste(pathReport, "Summary.txt", sep=""))
  +     printTextProtocol(tests, showDetails=TRUE,
  +                       fileName=paste(pathReport, ".txt", sep=""))
  + 
  +     ## Report to HTML file
  +     printHTMLProtocol(tests, fileName=paste(pathReport, ".html", sep=""))
  +   }
  + 
  +   ## Return stop() to cause R CMD check stop in case of
  +   ##  - failures i.e. FALSE to unit tests or
  +   ##  - errors i.e. R errors
  +   testErrors <- getErrors(tests)
  +   if(testErrors$nFail > 0) {
  +     msg <- paste0(" unit test", if(testErrors$nFail > 1) "s" else "", " failed")
  +     stop("\n", testErrors$nFail, msg, sep="")
  +   }
  +   if(testErrors$nErr > 0) {
  +     msg <- paste0(" unit test", if(testErrors$nErr > 1) "s" else "", " had errors")
  +     stop("\n", testErrors$nErr, msg, sep="")
  +   }
  +   if (testErrors$nTestFunc < 1) {
  +     stop("No test functions ran!")
  +   }
  + } else {
  +   warning("cannot run unit tests -- package RUnit is not available")
  + }
  
  Running unit tests
  $pkg
  [1] "TTR"
  
  $getwd
  [1] "C:/r_packages/pkgcheck/CRAN/TTR/TTR.Rcheck/tests"
  
  $pathToUnitTests
  [1] "C:/r_packages/pkgcheck/CRAN/TTR/TTR.Rcheck/TTR/unitTests"
  
  
  
  Executing test function test.correct_column_names  ...  done successfully.
  
  
  
  Executing test function test.CLV  ...  done successfully.
  
  
  
  Executing test function test.EMV  ...  done successfully.
  
  
  
  Executing test function test.KST  ...  done successfully.
  
  
  
  Executing test function test.ROC.continuous  ...  done successfully.
  
  
  
  Executing test function test.ROC.discrete  ...  done successfully.
  
  
  
  Executing test function test.momentum  ...  done successfully.
  
  
  
  Executing test function test.ALMA.output.length.eq.input.length  ...  done successfully.
  
  
  
  Executing test function test.DEMA  ... Error in DEMA(input$mid$Close) : Series contains non-leading NAs
  In addition: Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  3: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  4: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  5: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  6: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  Error in DEMA(input$all[, 1:2]) : 
    ncol(x) > 1. DEMA only supports univariate 'x'
   done successfully.
  
  
  
  Executing test function test.EMA  ... Error in EMA(input$mid$Close) : Series contains non-leading NAs
  Error in EMA(input$all[, 1:2]) : 
    ncol(x) > 1; EMA only supports univariate 'x'
  Error in EMA(input$all$Close, n = -1) : 
    n = -1 is outside valid range: [1, 250]
  Error in EMA(input$all$Close, n = NROW(input$all) + 1) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.EMA.n.ratio  ...  done successfully.
  
  
  
  Executing test function test.EMA.ratio.eq.0  ... Error in EMA(1:10, ratio = 0) : 
    either 'n' or 'ratio' must be specified and > 0
  
  In addition: Warning message:
  In EMA(1:10, n = 3, ratio = 0.5) :
    both 'n' and 'ratio' are specified; using 'n'
   done successfully.
  
  
  
  Executing test function test.EMA.wilder  ... Error in EMA(input$mid$Close, wilder = TRUE) : 
    Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.EVWMA  ... Error in naCheck(pv, n) : Series contains non-leading NAs
  Error in try.xts(volume, error = as.matrix) : 
    argument "volume" is missing, with no default
  Error in EVWMA(input$all[, 1:2], input$all$Volume) : 
    ncol(price) > 1 or ncol(volume) > 1. EVWMA only supports univariate 'price' and 'volume'
  Error in EVWMA(input$all$Close, input$all[, 1:2]) : 
    ncol(price) > 1 or ncol(volume) > 1. EVWMA only supports univariate 'price' and 'volume'
  Error in try.xts(volume, error = as.matrix) : 
    argument "volume" is missing, with no default
  Error in try.xts(volume, error = as.matrix) : 
    argument "volume" is missing, with no default
   done successfully.
  
  
  
  Executing test function test.HMA  ...  done successfully.
  
  
  
  Executing test function test.HMA.odd.n  ...  done successfully.
  
  
  
  Executing test function test.SMA  ... Error in runSum(x, n) : Series contains non-leading NAs
  Error in runSum(x, n) : ncol(x) > 1. runSum only supports univariate 'x'
   done successfully.
  
  
  
  Executing test function test.WMA  ... Error in WMA(input$mid$Close) : 'x' contains non-leading NAs
  Error in WMA(input$all$Close, wts = 1) : 
    Length of 'wts' must equal the length of 'x' or 'n'
  Error in WMA(input$all[, 1:2]) : 
    ncol(x) > 1 or ncol(wts) > 1. WMA only supports univariate 'x' and 'w'
  Error in WMA(input$all$Close, n = -1) : 
    Length of 'wts' must equal the length of 'x' or 'n'
  Error in WMA(input$all$Close, n = NROW(input$all) + 1) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.WMA_returns_xts  ...  done successfully.
  
  
  
  Executing test function test.WMAvol  ... Error in WMA(input$all$Close, wts = input$mid$Volume) : 
    'wts' contains non-leading NAs
  Error in WMA(input$all[, 1:2], wts = input$all$Volume) : 
    ncol(x) > 1 or ncol(wts) > 1. WMA only supports univariate 'x' and 'w'
  Error in WMA(input$all$Close, wts = input$all[, 1:2]) : 
    ncol(x) > 1 or ncol(wts) > 1. WMA only supports univariate 'x' and 'w'
   done successfully.
  
  
  
  Executing test function test.ZLEMA  ... Error in ZLEMA(input$mid$Close) : Series contains non-leading NAs
  Error in ZLEMA(input$all[, 1:2]) : 
    ncol(x) > 1. ZLEMA only supports univariate 'x'
   done successfully.
  
  
  
  Executing test function test.ZLEMA.n.ratio  ...  done successfully.
  
  
  
  Executing test function test.ZLEMA.ratio.eq.0  ... Error in ZLEMA(1:10, ratio = 0) : 
    either 'n' or 'ratio' must be specified and > 0
  
  In addition: Warning message:
  In ZLEMA(1:10, n = 7, ratio = 0.25) :
    both 'n' and 'ratio' are specified; using 'n'
   done successfully.
  
  
  
  Executing test function test.CMO  ... Error in runSum(up, n) : Series contains non-leading NAs
  In addition: Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
   done successfully.
  
  
  
  Executing test function test.DPO  ... Error in runSum(x, n) : Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.MACD  ... Error in EMA(c(3.08, 3.11, 3.09, 3.1, 3.11, 3.16, 3.22, 3.23, NA, NA,  : 
    Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.RSI  ... Error in EMA(c(NA, 0.0299999999999998, 0, 0.0100000000000002, 0.00999999999999979,  : 
    Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.RSI.does.not.overwrite.maArgs  ...  done successfully.
  
  
  
  Executing test function test.SMI  ... Error in runMax(high, n) : Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.TRIX  ... Error in EMA(c(3.08, 3.11, 3.09, 3.1, 3.11, 3.16, 3.22, 3.23, NA, NA,  : 
    Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.WPR  ... Error in runMax(high, n) : Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.stoch  ... Error in runMax(high, nFastK) : Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.stoch.for.Inf.fastK  ...  done successfully.
  
  
  
  Executing test function test.ultimateOscillator  ... Error in HLC[-NROW(HLC), 3] : subscript out of bounds
   done successfully.
  
  
  
  Executing test function test.ultimateOscillator.monthly.xts  ...  done successfully.
  
  
  
  Executing test function test.BBands  ... Error in BBands(im) : 
    Price series must be either High-Low-Close, or Close/univariate.
  In addition: Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
   done successfully.
  
  
  
  Executing test function test.SAR  ... Error in naCheck(HL, 0) : Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.ZigZag  ... Error in naCheck(HL, 0) : Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.ADX  ...  done successfully.
  
  
  
  Executing test function test.ADX.does.not.overwrite.maArgs  ...  done successfully.
  
  
  
  Executing test function test.ATR.does.not.overwrite.maArgs  ...  done successfully.
  
  
  
  Executing test function test.ATR.orig  ...  done successfully.
  
  
  
  Executing test function test.ATR.xts  ...  done successfully.
  
  
  
  Executing test function test.CCI  ...  done successfully.
  
  
  
  Executing test function test.TDI  ...  done successfully.
  
  
  
  Executing test function test.VHF  ...  done successfully.
  
  
  
  Executing test function test.aroon.orig  ...  done successfully.
  
  
  
  Executing test function test.aroon.xts  ...  done successfully.
  
  
  
  Executing test function test.Close  ... Error in runCov(x, x, n, use = "all.obs", sample = sample, cumulative) : 
    Series contains non-leading NAs
  In addition: Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  3: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  4: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
   done successfully.
  
  
  
  Executing test function test.chaikin  ...  done successfully.
  
  
  
  Executing test function test.garman.klass  ... Timing stopped at: 0.03 0 0.04
  Error in target == current : comparison of these types is not implemented
   done successfully.
  
  
  
  Executing test function test.parkinson  ... Timing stopped at: 0.01 0 0.01
  Error in target == current : comparison of these types is not implemented
   done successfully.
  
  
  
  Executing test function test.rogers.satchell  ... Timing stopped at: 0.02 0 0.02
  Error in target == current : comparison of these types is not implemented
   done successfully.
  
  
  
  Executing test function test.CMF  ... Error in runSum(clv * volume, n) : Series contains non-leading NAs
  In addition: Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  Error in runSum(clv * volume, n) : Series contains non-leading NAs
  Error in runSum(clv * volume, n) : Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.MFI  ... Error in runSum(pmf, n) : Series contains non-leading NAs
  Error in runSum(pmf, n) : Series contains non-leading NAs
  Error in runSum(pmf, n) : Series contains non-leading NAs
   done successfully.
  
  
  
  Executing test function test.MFI.when.volume.does.not.change  ...  done successfully.
  
  
  
  Executing test function test.OBV  ...  done successfully.
  
  
  
  Executing test function test.chaikinAD  ...  done successfully.
  
  
  
  Executing test function test.williamsAD  ...  done successfully.
  
  
  
  Executing test function test.runCor  ... Error in runCov(x, y, n, use = use, sample = sample, cumulative) : 
    Series contains non-leading NAs
  In addition: Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  Error in runCov(x, y, n, use = use, sample = sample, cumulative) : 
    argument "y" is missing, with no default
  Error in runCov(x, y, n, use = use, sample = sample, cumulative) : 
    ncol(x) > 1 or ncol(y) > 1. runCov only supports univariate 'x' and 'y'
  Error in runCov(x, y, n, use = use, sample = sample, cumulative) : 
    argument "y" is missing, with no default
  Error in runCov(x, y, n, use = use, sample = sample, cumulative) : 
    argument "y" is missing, with no default
   done successfully.
  
  
  
  Executing test function test.runCov  ... Error in runCov(input$mid$High, input$mid$Low) : 
    Series contains non-leading NAs
  Error in try.xts(y, error = as.matrix) : 
    argument "y" is missing, with no default
  Error in runCov(input$all[, 1:2], input$all$Low) : 
    ncol(x) > 1 or ncol(y) > 1. runCov only supports univariate 'x' and 'y'
  Error in try.xts(y, error = as.matrix) : 
    argument "y" is missing, with no default
  Error in try.xts(y, error = as.matrix) : 
    argument "y" is missing, with no default
   done successfully.
  
  
  
  Executing test function test.runCov.cumulative  ...  done successfully.
  
  
  
  Executing test function test.runMAD  ... Error in runMedian(x, n, cumulative = cumulative) : 
    Series contains non-leading NAs
  Error in runMAD(input$all[, 1:2]) : 
    ncol(x) > 1. runMAD only supports univariate 'x'
  Error in runMAD(input$all$Close, n = -1) : 
    n = -1 is outside valid range: [1, 250]
  Error in runMAD(input$all$Close, n = NROW(input$all) + 1) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.runMAD.cumulative  ...  done successfully.
  
  
  
  Executing test function test.runMAD.cumulative.leading.NA  ...  done successfully.
  
  
  
  Executing test function test.runMax  ... Error in runMax(input$mid$Close) : Series contains non-leading NAs
  Error in runMax(input$all[, 1:2]) : 
    ncol(x) > 1. runMax only supports univariate 'x'
  Error in runMax(input$all$Close, n = -1) : 
    n = -1 is outside valid range: [1, 250]
  Error in runMax(input$all$Close, n = NROW(input$all) + 1) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.runMax.cumulative  ...  done successfully.
  
  
  
  Executing test function test.runMean  ... Error in runSum(x, n) : Series contains non-leading NAs
  Error in runSum(x, n) : ncol(x) > 1. runSum only supports univariate 'x'
  Error in runSum(x, n) : n = -1 is outside valid range: [1, 250]
  Error in runSum(x, n) : n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.runMean.cumulative  ...  done successfully.
  
  
  
  Executing test function test.runMedian  ... Error in runMedian(input$mid$Close) : Series contains non-leading NAs
  Error in runMedian(input$all[, 1:2]) : 
    ncol(x) > 1. runMedian only supports univariate 'x'
  Error in runMedian(input$all$Close, n = -1) : 
    n = -1 is outside valid range: [1, 250]
  Error in runMedian(input$all$Close, n = NROW(input$all) + 1) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.runMedian.cumulative  ...  done successfully.
  
  
  
  Executing test function test.runMedian.cumulative.leading.NA  ...  done successfully.
  
  
  
  Executing test function test.runMin  ... Error in runMin(input$mid$Close) : Series contains non-leading NAs
  Error in runMin(input$all[, 1:2]) : 
    ncol(x) > 1. runMin only supports univariate 'x'
  Error in runMin(input$all$Close, n = -1) : 
    n = -1 is outside valid range: [1, 250]
  Error in runMin(input$all$Close, n = NROW(input$all) + 1) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.runMin.cumulative  ...  done successfully.
  
  
  
  Executing test function test.runPercentRank_cumulTRUE_exact.multiplier_eq0  ...  done successfully.
  
  
  
  Executing test function test.runPercentRank_cumulTRUE_exact.multiplier_eq0.5  ...  done successfully.
  
  
  
  Executing test function test.runPercentRank_cumulTRUE_exact.multiplier_eq1  ...  done successfully.
  
  
  
  Executing test function test.runPercentRank_exact.multiplier_bounds  ... Error in sprintf("exact.multiplier = %d is outside valid range: [0, 1]",  : 
    invalid format '%d'; use format %f, %e, %g or %a for numeric objects
  Error in sprintf("exact.multiplier = %d is outside valid range: [0, 1]",  : 
    invalid format '%d'; use format %f, %e, %g or %a for numeric objects
   done successfully.
  
  
  
  Executing test function test.runPercentRank_exact.multiplier_eq0  ...  done successfully.
  
  
  
  Executing test function test.runPercentRank_exact.multiplier_eq0.5  ...  done successfully.
  
  
  
  Executing test function test.runPercentRank_exact.multiplier_eq1  ...  done successfully.
  
  
  
  Executing test function test.runSD  ... Error in runCov(x, x, n, use = "all.obs", sample = sample, cumulative) : 
    Series contains non-leading NAs
  Error in runCov(x, x, n, use = "all.obs", sample = sample, cumulative) : 
    ncol(x) > 1 or ncol(y) > 1. runCov only supports univariate 'x' and 'y'
  Error in runCov(x, x, n, use = "all.obs", sample = sample, cumulative) : 
    n = -1 is outside valid range: [1, 250]
  Error in runCov(x, x, n, use = "all.obs", sample = sample, cumulative) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.runSum  ... Error in runSum(input$mid$Close) : Series contains non-leading NAs
  Error in runSum(input$all[, 1:2]) : 
    ncol(x) > 1. runSum only supports univariate 'x'
  Error in runSum(input$all$Close, n = -1) : 
    n = -1 is outside valid range: [1, 250]
  Error in runSum(input$all$Close, n = NROW(input$all) + 1) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.runVar  ... Error in runCov(x, y, n, use = "all.obs", sample = sample, cumulative) : 
    Series contains non-leading NAs
  Error in runCov(x, y, n, use = "all.obs", sample = sample, cumulative) : 
    ncol(x) > 1 or ncol(y) > 1. runCov only supports univariate 'x' and 'y'
  Error in runCov(x, y, n, use = "all.obs", sample = sample, cumulative) : 
    n = -1 is outside valid range: [1, 250]
  Error in runCov(x, y, n, use = "all.obs", sample = sample, cumulative) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  
  
  Executing test function test.wilderSum  ... Error in naCheck(x, n) : Series contains non-leading NAs
  Error in wilderSum(input$all[, 1:2]) : 
    ncol(x) > 1. wilderSum only supports univariate 'x'
  Error in wilderSum(input$all$Close, n = -1) : 
    n = -1 is outside valid range: [1, 250]
  Error in wilderSum(input$all$Close, n = NROW(input$all) + 1) : 
    n = 251 is outside valid range: [1, 250]
   done successfully.
  
  ------------------- UNIT TEST SUMMARY ---------------------
  
  RUNIT TEST PROTOCOL -- Sat Dec  4 22:50:15 2021 
  *********************************************** 
  Number of test functions: 85 
  Number of errors: 3 
  Number of failures: 0 
  
   
  1 Test Suite : 
  TTR unit testing - 85 test functions, 3 errors, 0 failures
  ERROR in test.garman.klass: Error in target == current : comparison of these types is not implemented
  ERROR in test.parkinson: Error in target == current : comparison of these types is not implemented
  ERROR in test.rogers.satchell: Error in target == current : comparison of these types is not implemented
  Error: 
  3 unit tests had errors
  Execution halted