branch: externals/polymode
commit 14b1fd8d2a183f11b123f62e02801dc1139da9c1
Author: iskamag <[email protected]>
Commit: Vitalie Spinu <[email protected]>
test for consistent buffer naming
---
tests/naming-test.el | 43 +++++++++++++++++++++++++++++++++++++++++++
1 file changed, 43 insertions(+)
diff --git a/tests/naming-test.el b/tests/naming-test.el
new file mode 100644
index 0000000000..80f9d2a213
--- /dev/null
+++ b/tests/naming-test.el
@@ -0,0 +1,43 @@
+;;; naming-tests.el -- Tests for Polymode -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2025 Free Software Foundation, Inc.
+
+(require 'polymode-test-utils)
+
+(define-innermode basic-lisp-code-innermode
+ :mode 'lisp-mode
+ :head-matcher "^---s\n"
+ :tail-matcher "^---e\n"
+ :head-mode 'host
+ :tail-mode 'host)
+
+(define-polymode poly-basic-text-mode
+ :hostmode 'poly-text-hostmode
+ :innermodes '(basic-lisp-code-innermode))
+
+(ert-deftest naming/buffer ()
+ (pm-test-run-on-string 'poly-basic-text-mode
+ "this is a
+basic test
+---s
+(+ 1 2)
+(cons 'sym nil)
+---e
+meow." 1
+ (let ((old-host-name (buffer-name))
+ (old-inner-name))
+ (pm-switch-to-buffer)
+ (should (string-equal old-host-name
+ (buffer-name)))
+
+ (goto-line 4)
+ (pm-switch-to-buffer)
+ (setq old-inner-name (buffer-name))
+ (pm-switch-to-buffer)
+ (should (string-equal old-inner-name
+ (buffer-name)))
+
+ (goto-line 1)
+ (pm-switch-to-buffer)
+ (should (string-equal old-host-name
+ (buffer-name))))))
