Support implicit directory in tt.r -d if inst/tinytest exists

eddelbuettel · Feb 22, 2024 · 0872ca3 · 0872ca3
1 parent d5c586d
commit 0872ca3
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 2 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,10 @@
+2024-02-22  Dirk Eddelbuettel  <[email protected]>
+
+	* DESCRIPTION (Date, Version): Roll micro version and date
+
+	* inst/examples/tt.r: Fill in "inst/tinytest" if `-d | --dir`
+	but the target directory was omitted, and exists
+
 2024-02-20  Dirk Eddelbuettel  <[email protected]>
 
 	* DESCRIPTION (Date, Version): Roll micro version and date

diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: littler
 Type: Package
 Title: R at the Command-Line via 'r'
-Version: 0.3.19.2
-Date: 2024-02-20
+Version: 0.3.19.3
+Date: 2024-02-22
 Author: Dirk Eddelbuettel and Jeff Horner (2006-2008)
 Maintainer: Dirk Eddelbuettel <[email protected]>
 Description: A scripting and command-line front-end

diff --git a/inst/examples/tt.r b/inst/examples/tt.r
@@ -71,6 +71,7 @@ if (opt$all) {
 } else if (opt$file) {
     res <- run_test_file(opt$ARG, side_effects=sideeffects)
 } else if (opt$directory) {
+    if (length(opt$ARG) == 0 && dir.exists("inst/tinytest")) opt$ARG <- "inst/tinytest"
     res <- run_test_dir(opt$ARG, side_effects=sideeffects)
 } else if (opt$package) {
     if (opt$ncpus == 1L) {