R Under development (unstable) (2026-01-23 r89325 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 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(mfdb)
> library(unittest, quietly = TRUE)
> helpers <- c('utils/helpers.R', 'tests/utils/helpers.R') ; source(helpers[file.exists(helpers)])
> 
> mdb <- fake_mdb()
> 
> cap <- function(code) {
+     capture.output({
+         x <- code
+         cat("Return Value:\n")
+         str(x)
+     })
+ }
> 
> ok_group("Aggregates with NULL", local({
+     pre_query(mdb, NULL, "col")  # Just check nothing happens
+     ok(cmp(sample_clause(mdb, NULL, "col", "out"), "0"), "Sample clause")
+     ok(cmp(select_clause(mdb, NULL, "col", "out"), c(
+         "'all' AS out",
+         "MIN(col) AS min_out",
+         "MAX(col) AS max_out",
+         NULL)), "Select clause")
+     ok(cmp(from_clause(mdb, NULL, "col", "out"), c()), "From clause")
+     ok(cmp(where_clause(mdb, NULL, "col", "out"), c()), "Where clause")
+     ok(cmp(agg_summary(mdb, NULL, "col", "out", data.frame(
+         out = 'all',
+         min_out = c(2,2,2),
+         max_out = c(8,8,8),
+         stringsAsFactors = FALSE), 0), list(all = c(2,8))), "Agg summary")
+ }, asNamespace('mfdb')))
# Aggregates with NULL
ok - Sample clause
ok - Select clause
ok - From clause
ok - Where clause
ok - Agg summary
> 
> mdb$ret_rows <- data.frame(name = c('cuthbert', 'dibble', 'grub'), stringsAsFactors = FALSE)
> ok_group("Aggregates with NULL for a taxonomy", local({
+     pre_query(mdb, NULL, "col")  # Just check nothing happens
+     ok(cmp(sample_clause(mdb, NULL, 'tbl.gear_id', 'gear'), "0"), "Sample clause")
+     ok(cmp(select_clause(mdb, NULL, 'tbl.gear_id', 'gear'), c(
+         "'all' AS gear",
+         NULL)), "Select clause (no min or max)")
+     ok(cmp(from_clause(mdb, NULL, 'tbl.gear_id', 'gear'), c()), "From clause")
+     ok(cmp(where_clause(mdb, NULL, 'tbl.gear_id', 'gear'), c()), "Where clause")
+     ok(cmp(cap(agg_summary(mdb, NULL, 'tbl.gear_id', 'gear', data.frame(
+         gear = 'all',
+         stringsAsFactors = FALSE), 0)), c(
+         "SELECT name FROM gear",
+         "Return Value:",
+         "List of 1",
+         " $ all: chr [1:3] \"cuthbert\" \"dibble\" \"grub\"",
+         NULL)), "Agg summary")
+ 
+     ok(cmp(select_clause(mdb, NULL, 'tbl.sampling_type_id', 'sampling_type'), c(
+         "'all' AS sampling_type",
+         NULL)), "Select clause (CS taxonomy)")
+     ok(cmp(cap(agg_summary(mdb, NULL, 'tbl.sampling_type_id', 'sampling_type', data.frame(
+         sampling_type = 'all',
+         stringsAsFactors = FALSE), 0)), c(
+         "SELECT name FROM sampling_type",
+         "Return Value:",
+         "List of 1",
+         " $ all: chr [1:3] \"cuthbert\" \"dibble\" \"grub\"",
+         NULL)), "Agg summary (CS taxonomy)")
+ }, asNamespace('mfdb')))
# Aggregates with NULL for a taxonomy
ok - Sample clause
ok - Select clause (no min or max)
ok - From clause
ok - Where clause
ok - Agg summary
ok - Select clause (CS taxonomy)
ok - Agg summary (CS taxonomy)
> mdb$ret_rows <- NULL
> 
> ok_group("Aggregates with numeric", local({
+     pre_query(mdb, 5, "col")  # Just check nothing happens
+ 
+     ok(cmp(sample_clause(mdb, 5, "col", "out"), "0"), "Sample clause")
+ 
+     ok(cmp(select_clause(mdb, 5, 'col', 'out'), "col AS out"))
+ 
+     ok(cmp(from_clause(mdb, 5, "col", "out"), c()), "From clause")
+ 
+     ok(cmp(where_clause(mdb, 5, 'col'), "(col IN (5))"))
+     ok(cmp(where_clause(mdb, c(1,2,3), 'col'), "(col IN (1,2,3))"))
+     ok(cmp(where_clause(mdb, c(1,NA,3), 'cow'), "(cow IN (1,3) OR cow IS NULL)"))
+ 
+     ok(cmp(agg_summary(mdb, 5, "col", "out", list(data.frame()), 0), list("5" = 5)), "Agg summary (5)")
+     ok(cmp(agg_summary(mdb, c(1,2,3), "col", "out", list(data.frame()), 0), list("1" = 1, "2" = 2, "3" = 3)), "Agg summary (1,2,3)")
+     ok(cmp(agg_summary(mdb, c(1,NA,3), "col", "out", list(data.frame()), 0), list("1" = 1, "3" = 3)), "Agg summary (1,NA,3)")
+ }, asNamespace('mfdb')))
# Aggregates with numeric
ok - Sample clause
ok - cmp(select_clause(mdb, 5, "col", "out"), "col AS out")
ok - From clause
ok - cmp(where_clause(mdb, 5, "col"), "(col IN (5))")
ok - cmp(where_clause(mdb, c(1, 2, 3), "col"), "(col IN (1,2,3))"
ok - cmp(where_clause(mdb, c(1, NA, 3), "cow"), "(cow IN (1,3) OR
ok - Agg summary (5)
ok - Agg summary (1,2,3)
ok - Agg summary (1,NA,3)
> 
> ok_group("Aggregates with character", local({
+     pre_query(mdb, "c", "col")  # Just check nothing happens
+ 
+     ok(cmp(sample_clause(mdb, "c", "col", "out"), "0"), "Sample clause")
+ 
+     ok(cmp(select_clause(mdb, 'a', 'col', 'out'), "col AS out"))
+ 
+     ok(cmp(from_clause(mdb, "c", "col", "out"), c()), "From clause")
+ 
+     ok(cmp(where_clause(mdb, c("a", "b"), 'tbl.boar_id'), "(tbl.boar_id IN ('a','b'))"))
+ 
+     ok(cmp(agg_summary(mdb, c("a", "b"), "col", "out", list(data.frame()), 0), list("a" = "a", "b" = "b")), "Agg summary")
+ }, asNamespace('mfdb')))
# Aggregates with character
ok - Sample clause
ok - cmp(select_clause(mdb, "a", "col", "out"), "col AS out")
ok - From clause
ok - cmp(where_clause(mdb, c("a", "b"), "tbl.boar_id"), "(tbl.boa
ok - Agg summary
> 
> ok_group("Aggregates with global taxonomies", local({
+     pre_query(mdb, "c", "col")  # Just check nothing happens
+ 
+     ok(cmp(sample_clause(mdb, "c", "tbl.gear_id", "out"), "0"), "Sample clause")
+ 
+     ok(cmp(
+         select_clause(mdb, 'a', 'tbl.gear_id', 'out'),
+         "(SELECT name FROM gear WHERE gear_id = tbl.gear_id) AS out"))
+ 
+     ok(cmp(from_clause(mdb, "c", "tbl.gear_id", "out"), c()), "From clause")
+ 
+     ok(cmp(where_clause(mdb, c("GEA"), 'tbl.gear_id'),
+         "(tbl.gear_id IN (SELECT gear_id FROM gear WHERE name IN ('GEA') OR t_group IN ('GEA')))"))
+ 
+     ok(cmp(agg_summary(mdb, c("GEA"), "tbl.gear_id", "gear", list(data.frame()), 0), list("GEA" = "GEA")), "Agg summary")
+ }, asNamespace('mfdb')))
# Aggregates with global taxonomies
ok - Sample clause
ok - cmp(select_clause(mdb, "a", "tbl.gear_id", "out"), "(SELECT 
ok - From clause
ok - cmp(where_clause(mdb, c("GEA"), "tbl.gear_id"), "(tbl.gear_i
ok - Agg summary
> 
> ok_group("Aggregates with CS-specific taxonomies", local({
+     pre_query(mdb, "c", "col")  # Just check nothing happens
+ 
+     ok(cmp(sample_clause(mdb, "c", "tbl.sampling_type_id", "out"), "0"), "Sample clause")
+ 
+     ok(cmp(
+         select_clause(mdb, 'a', 'tbl.sampling_type_id', 'out'),
+         "(SELECT name FROM sampling_type WHERE sampling_type_id = tbl.sampling_type_id) AS out"))
+ 
+     ok(cmp(from_clause(mdb, "c", "tbl.sampling_type_id", "out"), c()), "From clause")
+ 
+     ok(cmp(where_clause(mdb, c("SEA"), 'tbl.sampling_type_id'),
+         "(tbl.sampling_type_id IN (SELECT sampling_type_id FROM sampling_type WHERE name IN ('SEA') OR t_group IN ('SEA')))"))
+ 
+     ok(cmp(agg_summary(mdb, c("SEA"), "tbl.sampling_type_id", "sampling_type", list(data.frame()), 0), list("SEA" = "SEA")), "Agg summary")
+ }, asNamespace('mfdb')))
# Aggregates with CS-specific taxonomies
ok - Sample clause
ok - cmp(select_clause(mdb, "a", "tbl.sampling_type_id", "out"), 
ok - From clause
ok - cmp(where_clause(mdb, c("SEA"), "tbl.sampling_type_id"), "(t
ok - Agg summary
> 
> proc.time()
   user  system elapsed 
   0.59    0.14    0.70 
1..36
# Looks like you passed all 36 tests.