From 03cb4f2b20f98ad6b22e999f0f8186c718007ebb Mon Sep 17 00:00:00 2001 From: c Date: Thu, 7 Nov 2024 19:47:16 +0100 Subject: [PATCH] benches: remove newline --- tests/bench1.el | 2 +- tests/bench2.el | 2 +- tests/bench3.el | 2 +- tests/bench4.el | 2 +- tests/bench5.el | 2 +- tests/uniline-bench.el | 9 ++------- 6 files changed, 7 insertions(+), 12 deletions(-) diff --git a/tests/bench1.el b/tests/bench1.el index 6f1358a..0f96239 100644 --- a/tests/bench1.el +++ b/tests/bench1.el @@ -22,7 +22,7 @@ (uniline-bench "b RET c - C-SPC RET RET + a a a S- RET - " - " + "\ │ bc╶┴─╮ ╰─┰──╯ diff --git a/tests/bench2.el b/tests/bench2.el index 3d25f11..5d31529 100644 --- a/tests/bench2.el +++ b/tests/bench2.el @@ -21,7 +21,7 @@ (uniline-bench "C-c C-c i n i t i a l SPC t e x t e SPC SPC g o o d C-a M-x u n i l i n e - m o d e RET C-SPC R q C-SPC c C-SPC y = s s s o " - " + "\ ╷ │ ╭────────────╮ ╭──╯ ╭────────────╮ ╭──╯ diff --git a/tests/bench3.el b/tests/bench3.el index c674de7..67ecdd4 100644 --- a/tests/bench3.el +++ b/tests/bench3.el @@ -22,7 +22,7 @@ (uniline-bench " # C-SPC r # R C-SPC C-c C-c" - " + "\ ▗▄▄▄▄▄▄▄▄▄▄▄▄▖ ▐╭──────────╮▌ diff --git a/tests/bench4.el b/tests/bench4.el index 03fc0c8..22b0cf1 100644 --- a/tests/bench4.el +++ b/tests/bench4.el @@ -21,7 +21,7 @@ (uniline-bench " M = a a a a s s s x o o o o o C-SPC c C-SPC y " -" +"\ ╔═════╗ ╔═════╗ ║ □ ║ ║ □ ║ diff --git a/tests/bench5.el b/tests/bench5.el index ad38054..f54497d 100644 --- a/tests/bench5.el +++ b/tests/bench5.el @@ -21,7 +21,7 @@ (uniline-bench " a a a a a a a a a a a a a a a a a a a C-SPC c y c y c y c C-SPC C-r C-SPC C-r = R RET" -" +"\ aaaa aa╭─────╦╤╤══aaaaaaaa diff --git a/tests/uniline-bench.el b/tests/uniline-bench.el index 8a5ae6a..fe26b41 100644 --- a/tests/uniline-bench.el +++ b/tests/uniline-bench.el @@ -52,12 +52,7 @@ nil if there was an error.") COMMANDS is a string describing a sequence of keyboard strokes, supposed to draw a sketch using uniline minor-mode. Its format is the one used to store keyboard macros. -RESULT is a string representing the expected result. -Note that RESULT begins with an empty line not part of the result, -making it more human-readable." - (setq result - (substring result (1+ (string-search "\n" result)))) - +RESULT is a string representing the expected result." (ignore-errors (kill-buffer "*uniline-interactive*")) (switch-to-buffer "*uniline-interactive*") (uniline-mode 1) @@ -102,7 +97,7 @@ Do not call it directly." (switch-to-buffer "b.el") (insert "(uniline-bench\n\"") (insert (key-description (kmacro--keys (kmacro last-kbd-macro)))) - (insert "\"\n\"\n") + (insert "\"\n\"\\\n") (insert-buffer-substring "*uniline-interactive*") (insert "\")\n") (lisp-mode))