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

   1 (require 'test-simple)
   2 (require 'load-relative)
   3 (load-file "../realgud/common/bp.el")
   4 (declare-function realgud-bp-remove-icons 'realgud-bp)
   5
   6 (eval-when-compile
   7   (defvar temp-srcbuf)
   8 )
   9
  10
  11 (test-simple-start)
  12
  13 (note "breakpoints")
  14
  15 (set (make-local-variable 'temp-srcbuf)
  16      (generate-new-buffer "*srcbuf-test*"))
  17 (with-current-buffer temp-srcbuf
  18   (insert "abc\ndef\n")
  19   (note "breakpoint reset")
  20   (realgud-bp-remove-icons (point-min) (point-max))
  21   (assert-equal 0 (length (overlays-in (point-min) (point-max)))
  22                 "Should not have any breakpoints in buffer")
  23   )
  24   ;; (note "breakpoint set")
  25   ;; (realgud-bp-put-icon (point-min) 't 1 temp-srcbuf)
  26   ;; (realgud-bp-put-icon (point-max) nil 2 temp-srcbuf)
  27   ;; (assert-equal 2 (length (overlays-in (point-min) (point-max)))
  28   ;;      (format
  29   ;;       "Should find breakpoints in buffer %s"
  30   ;;       temp-srcbuf))
  31   ;; (let* ((ov-list (overlays-in (point-min) (point-min)))
  32   ;;    (ov (car-safe ov-list))
  33   ;;    (before-string)
  34   ;;    )
  35   ;; (assert-equal 1 (length ov-list)
  36   ;;        "Should find 1 breakpoint at (point-min)")
  37   ;; (setq before-string (overlay-get ov 'before-string))
  38   ;;   (assert-equal 1 (get-text-property 0 'realgud-bptno before-string)
  39   ;;        "Should find breakpoint number 1 in overlay's before-string")
  40   ;;  (assert-equal t (get-text-property 0 'enabled before-string)
  41   ;;     "Breakpoint 1 should be enabled")
  42   ;;   )
  43   ;;   (let* ((ov-list (overlays-in (point-max) (point-max)))
  44   ;;   (ov (car-safe ov-list))
  45   ;;   (before-string)
  46   ;;    )
  47   ;;   (assert-equal 1 (length ov-list)
  48   ;;     "Should find 1 breakpoint at (point-max)")
  49   ;;   (setq before-string (overlay-get ov 'before-string))
  50   ;;     (assert-equal 2 (get-text-property 0 'realgud-bptno before-string)
  51   ;;    "Should find breakpoint number 1 in overlay's before-string")
  52   ;;     (assert-equal nil (get-text-property 0 'enabled before-string)
  53   ;;     "Breakpoint 1 should be disabled")
  54   ;;    )
  55
  56 (end-tests)