R Under development (unstable) (2024-03-11 r86098 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 
> library(ciw)
> 
> ## tests are tricky because of
> ##   a) connectivity (which incoming() checks internally)
> ##   b) random nature of content at the CRAM incoming/ directories
> ## so we keep it simple
> 
> res <- incoming()
> isTRUE(inherits(res, "data.frame"))
[1] TRUE
> 
> n <- nrow(res)
> isTRUE(n >= 0)
[1] TRUE
> 
> k <- if (n > 0) ncol(res) else 0
> isTRUE(k >= 0)
[1] TRUE
> 
> expected_names <- c("Folder", "Name", "Time", "Size", "Age")
> actual_names <- if (k > 0) colnames(res) else expected_names
> isTRUE(all.equal(actual_names, expected_names))
[1] TRUE
> 
> proc.time()
   user  system elapsed 
   0.48    0.04    0.71