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)])
> 
> ok_group("gadget_mainfile_update", {
+     gd <- gadget_directory(tempfile())
+ 
+     # Populate our one bit, fill out absolute minimum
+     mfdb:::gadget_mainfile_update(gd, areafile = "area")
+     ok(cmp_file(gd, "main",
+         ver_string,
+         "timefile\t",
+         "areafile\tarea",
+         "printfiles\t; Required comment",
+         "[stock]",
+         "[tagging]",
+         "[otherfood]",
+         "[fleet]",
+         "[likelihood]"))
+ 
+     # Add some more values
+     mfdb:::gadget_mainfile_update(gd,
+         timefile = "timefile",
+         printfiles = c("a", "b", "c"),
+         stockfiles = 1:3)
+     ok(cmp_file(gd, "main",
+         ver_string,
+         "timefile\ttimefile",
+         "areafile\tarea",
+         "printfiles\ta\tb\tc",  # NB: We've removed the comment
+         "[stock]",
+         "stockfiles\t1\t2\t3",
+         "[tagging]",
+         "[otherfood]",
+         "[fleet]",
+         "[likelihood]"))
+ 
+     # Finish it, appending to some
+     mfdb:::gadget_mainfile_update(gd,
+         timefile = "finefile",
+         printfiles = c("c", "d"),
+         stockfiles = 1:3,
+         tagfiles = "T",
+         otherfoodfiles = "OF",
+         fleetfiles = "F",
+         likelihoodfiles = "LL")
+     ok(cmp_file(gd, "main",
+         ver_string,
+         "timefile\tfinefile",  # NB: We replaced this value
+         "areafile\tarea",
+         "printfiles\ta\tb\tc\td",  # NB: ...but appended here
+         "[stock]",
+         "stockfiles\t1\t2\t3",
+         "[tagging]",
+         "tagfiles\tT",
+         "[otherfood]",
+         "otherfoodfiles\tOF",
+         "[fleet]",
+         "fleetfiles\tF",
+         "[likelihood]",
+         "likelihoodfiles\tLL"))
+ })
# gadget_mainfile_update
ok - cmp_file(gd, "main", ver_string, "timefile\t", "areafile\tar
ok - cmp_file(gd, "main", ver_string, "timefile\ttimefile", "area
ok - cmp_file(gd, "main", ver_string, "timefile\tfinefile", "area
> 
> proc.time()
   user  system elapsed 
   0.62    0.12    0.73 
1..3
# Looks like you passed all 3 tests.