Index: openacs-4/packages/acs-bootstrap-installer/tcl/test/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/test/Attic/00-proc-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-bootstrap-installer/tcl/test/00-proc-procs.tcl	15 Feb 2021 13:47:49 -0000	1.1.2.1
@@ -0,0 +1,27 @@
+ad_library {
+    Tests for procs in tcl/00-proc-procs.tcl
+}
+
+aa_register_case \
+    -cats {api smoke} \
+    -procs {ad_file} \
+    ad_file {
+        Basic test of ad_file, showing why this has been introduced.
+    } {
+        set non_existing_user [ad_generate_random_string]
+        set tilde_filename ~$non_existing_user
+
+        aa_false "'file tail' works as expected without a tilde character" [catch {
+            file tail $non_existing_user
+        } errmsg]
+
+        set failure [catch {
+            file tail $tilde_filename
+        } errmsg]
+        aa_true "'file tail' fails with a tilde character, revealing existing users! -> '$errmsg'" \
+            $failure
+
+        aa_false "ad_file sanitizes the tilde character from the filename" [catch {
+            ad_file tail $tilde_filename
+        } errmsg]
+    }