From ce1a2b1b428e95d300af478fb0b36ca3773f7f84 Mon Sep 17 00:00:00 2001 From: Robin Haberkorn Date: Fri, 4 Jul 2025 01:28:36 +0200 Subject: implemented <^B> for returning the current date * It is encoded with the same formula as on VAX/VMS on TECO-11, on TECOC and TECO-64. * As an extension, when colon-modified it returns the number of seconds since the epoch. It might be even more useful to return the microseconds since the epoch, but that would require 64-bit integers, which can theoretically be disabled at build time. --- tests/testsuite.at | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'tests') diff --git a/tests/testsuite.at b/tests/testsuite.at index c50061a..a1b8ada 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -283,6 +283,11 @@ TE_CHECK([[@EC'dd if=/dev/zero bs=512 count=1' Z= Z-512"N(0/0)']], 0, ignore, ig TE_CHECK([[0,128ED @EC'dd if=/dev/zero bs=512 count=1' Z= Z-512"N(0/0)']], 0, ignore, ignore) AT_CLEANUP +AT_SETUP([Timestamps]) +# TODO: Test the date (^B) and time (:^B) variants as well. +TE_CHECK([[::^BUa ::^B-Qa"<(0/0)']], 0, ignore, ignore) +AT_CLEANUP + # # Command-line editing. # -- cgit v1.2.3