diff --git a/tests.R b/tests.R
index f0a50749e55dc5819f4245304c6a261f583c03b0..b51c91ddeef09e3741d1da67d6f925d4d6ca08c4 100644
--- a/tests.R
+++ b/tests.R
@@ -11,9 +11,6 @@ dataPath <- "~/Data/SAVE/" # amend to suit local
 
 rawDP <- paste0(dataPath, "/navetas/s3_15m/original/")
 
-# check this works
-fileList <- saveData::getWhFileList(rawDP)
-
 rawF <- paste0(dataPath, "navetas/s3_15m/original/NAX-2017-07-30.csv.gz")
 processedF <- paste0(dataPath, "processed/jan2017clamp15minuteData.csv.gz")
 
@@ -47,9 +44,15 @@ make(plan)
 wHRawDT <- drake::readd(wHRawD)
 wHprocessedDT <- drake::readd(wHprocessedD)
 
-#system.time(u_dt_dplyr <- dplyr::distinct(wHRawDT))
-#system.time(u_dt_data.table <- data.table::unique(energyDT)) # breaks why?
+# test package functions ----
+
+fileList <- saveData::getWhFileList(rawDP)
+
+# > electricity consumption data processing ----
+
 dt <- copy(wHRawDT) # otherwise it acts on original due to 'by reference' nature of data.table
 
 # could put this in drake too
 system.time(procDT <- saveData::processWhData(dt))
+
+