Add unit tests for MA function colnames

See #131.
joshuaulrich · Feb 13, 2024 · 6add5d9 · 6add5d9
1 parent 001c4da
commit 6add5d9
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/inst/unitTests/runit.TTR.MovingAverages.R b/inst/unitTests/runit.TTR.MovingAverages.R
@@ -161,3 +161,17 @@ test.EMA.non.na.eq.n.does.not.error <- function() {
   return(TRUE)
 }
 
+test.ma.on.xts.objects.have.colnames <- function() {
+  x <- xts::as.xts(ttrc)
+  p <- x[, "Close"]
+  v <- x[, "Volume"]
+  checkEquals("SMA",   colnames(SMA(p)))
+  checkEquals("EMA",   colnames(EMA(p)))
+  checkEquals("DEMA",  colnames(DEMA(p)))
+  checkEquals("WMA",   colnames(WMA(p)))
+  checkEquals("EVWMA", colnames(EVWMA(p, v)))
+  checkEquals("ZLEMA", colnames(ZLEMA(p)))
+  checkEquals("VWAP",  colnames(VWAP(p, v)))
+  checkEquals("HMA",   colnames(HMA(p)))
+  checkEquals("ALMA",  colnames(ALMA(p)))
+}