code.delx.au - gnu-emacs-elpa/blob - packages/realgud/test/test-buf-bt.el

   1 (require 'load-relative)
   2 (require 'test-simple)
   3 (require 'font-lock)
   4
   5
   6 (load-file "../realgud/common/buffer/command.el")
   7 (load-file "../realgud/common/buffer/backtrace.el")
   8
   9 (declare-function realgud-get-buffer-base-name 'realgud-command)
  10
  11 (test-simple-start)
  12
  13 (note "realgud-buffer-backtrace")
  14
  15 (assert-equal "abc" (realgud-get-buffer-base-name "*abc*")
  16               "remove buffer stars")
  17
  18 (assert-equal "abc" (realgud-get-buffer-base-name "abc")
  19               "no buffer stars")
  20
  21 (assert-equal "abc" (realgud-get-buffer-base-name "*abc shell*")
  22               "remove buffer stars and shell")
  23
  24 (end-tests)