guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 8784ddd920b2f26733341c2255ef348c8a185a26
Author: Benjamin Slade <[email protected]>
AuthorDate: Sat Oct 24 13:37:53 2026 -0500

    gnu: Add vttest.
    
    * gnu/packages/terminals.scm (vttest): New variable.
    
    Merges: https://codeberg.org/guix/guix/pulls/12076
    Reviewed-by: bdunahu <[email protected]>
    Signed-off-by: Nguyễn Gia Phong <[email protected]>
---
 gnu/packages/terminals.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm
index e0c49e93902..221121b66ca 100644
--- a/gnu/packages/terminals.scm
+++ b/gnu/packages/terminals.scm
@@ -46,6 +46,7 @@
 ;;; Copyright © 2025 Liam Hupfer <[email protected]>
 ;;; Copyright © 2026 Janneke Nieuwenhuizen <[email protected]>
 ;;; Copyright © 2026 Nemin <[email protected]>
+;;; Copyright © 2026 Benjamin Slade <[email protected]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1753,6 +1754,41 @@ running;
 @end itemize")
     (license license:gpl2+)))
 
+(define-public vttest
+  (package
+    (name "vttest")
+    (version "20251205")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://invisible-island.net/archives/vttest/vttest-"; version
+             ".tgz"))
+       (sha256
+        (base32 "1k3ppy2ajsipyl5n7744f4d9042plmqi59kgarn3yspymvwqcs6d"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f ;; no automated test suite; manual/interactive only
+      #:configure-flags
+      #~(list (string-append "--prefix=" #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'install
+            (lambda _
+              (install-file "vttest"
+                            (string-append #$output "/bin"))
+              (install-file "vttest.1"
+                            (string-append #$output "/share/man/man1")))))))
+    (home-page "https://invisible-island.net/vttest/";)
+    (synopsis "Test VT100-compatible terminals and terminal emulators")
+    (description
+     "Vttest tests the functionality of VT100-compatible terminals and
+terminal emulators.  It exercises display and keyboard handling, including
+ escape-sequence processing, and provides additional tests for VT220,
+VT420, VT520, and xterm features.")
+    (license license:x11)))
+
 ;; See https://github.com/wezterm/wezterm/blob/main/README-DISTRO-MAINTAINER.md
 (define-public wezterm
   (let ((commit "05343b387085842b434d267f91b6b0ec157e4331")

Reply via email to