From 7354f4e3e657e41781b04640797a47c3aaba1457 Mon Sep 17 00:00:00 2001 From: Matthias Meulien Date: Sun, 18 Sep 2022 13:54:46 +0200 Subject: Extract support of OSC escape sequences from comint * lisp/comint.el (osc): Now requires osc.el. (comint-osc-directory-tracker): Alias to osc-directory-tracker. (comint-osc-hyperlink-handler): Alias to osc-hyperlink-handler. (comint-osc-hyperlink-map): Alias to osc-hyperlink-map. (comint-osc-handlers): Alias to osc-handlers. (comint-osc-hyperlink): Alias to osc-hyperlink. (comint-osc-process-output): Rewritten to call osc-apply-on-region. * lisp/osc.el (osc-handlers): Clone comint-osc-handlers. (osc--marker): Clone comint-osc--marker. (osc-apply-on-region): Implementation taken from comint-osc-process-output. (osc-directory-tracker): Clone from comint-osc-directory-tracker. (osc-hyperlink-map): Clone from comint-osc-hyperlink-map. (osc-hyperlink): Clone from comint-osc-hyperlink. (osc-hyperlink--state): Clone from comint-osc-hyperlink--state. (osc-hyperlink-handler): Clone from comint-osc-hyperlink-handler. * test/lisp/osc-tests.el (osc): Test osc-apply-region (bug#57821). --- test/lisp/osc-tests.el | 57 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100644 test/lisp/osc-tests.el (limited to 'test/lisp/osc-tests.el') diff --git a/test/lisp/osc-tests.el b/test/lisp/osc-tests.el new file mode 100644 index 00000000000..d53bab08d3d --- /dev/null +++ b/test/lisp/osc-tests.el @@ -0,0 +1,57 @@ +;;; osc-tests.el --- Tests for osc.el -*- lexical-binding: t; -*- + +;; Copyright (C) 2022 Free Software Foundation, Inc. + +;; Author: Matthias Meulien +;; Keywords: + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Commentary: + +;; + +;;; Code: + +(require 'osc) +(require 'ert) + +(defvar osc-tests--strings + `( + ("Hello World" "Hello World") + + ;; window title + ("Buffer \e]2;A window title\e\\content" "Buffer content") + + ;; window title + ("Unfinished \e]2;window title" "Unfinished \e]2;window title") + + ;; current directory + ("\e]7;file://127.0.0.1/tmp\e\\user@host$ " "user@host$ ") + + ;; hyperlink + ("\e]8;;http://example.com\e\\This is a link\e]8;;\e\\" "This is a link") + )) +;; Don't output those strings to stdout since they may have +;; side-effects on the environment + +(ert-deftest osc-tests-apply-region-no-handlers () + (let ((osc-handlers nil)) + (pcase-dolist (`(,input ,text) osc-tests--strings) + (with-temp-buffer + (insert input) + (osc-apply-on-region (point-min) (point-max)) + (should (equal (buffer-string) text)))))) -- cgit v1.2.3