debugger2 1.0.0.beta1

data/emacs/test/test-core.el

@@ -0,0 +1,104 @@
+;; -*- emacs-lisp -*-
+;; This program has to be run from the directory it is currently in and
+;; the rdebug code has to be in the parent directory
+(load-file "./elk-test.el")
+
+;; FIXME? Should we use "require 'rdebug" here.
+;; Would have to prepend . to load-path. 
+(load-file "../rdebug.el")
+(load-file "../rdebug-core.el")
+
+;; Redefine functions to make them harmless for testing
+(defun rdebug-process-annotation (name contents)
+  (message name)
+  )
+
+(make-variable-buffer-local 'gud-rdebug-marker-acc)
+
+(deftest "rdebug-get-script-name-test"
+  (assert-equal '("foo" nil) (rdebug-get-script-name '("rdebug" "foo")))
+  (assert-equal '("foo" nil) (rdebug-get-script-name '("rdebug" "-m" "foo")))
+  (assert-equal '("foo" t) (rdebug-get-script-name
+                            '("rdebug" "--emacs" "3" "foo")))
+  (assert-equal '("foo" t) (rdebug-get-script-name
+                            '("myrdebug" "--annotate=1" "foo")))
+  (assert-equal '("foo" t) (rdebug-get-script-name
+                            '("ruby" "rdebug" "--annotate" "1" "foo")))
+  (assert-equal '("foo" nil) (rdebug-get-script-name
+			      '("/usr/bin/ruby19" "rdebug" "--emacs-basic" "foo")))
+  (assert-equal '("foo" nil) (rdebug-get-script-name
+			      '("rdbg.rb" "foo")))
+  (assert-equal '("rdbg.rb" nil) (rdebug-get-script-name
+				  '("rdebug" "rdbg.rb" "foo")))
+  (assert-equal '("foo" t) (rdebug-get-script-name '("rdebug" "-A" "1" "foo")))
+  (assert-equal '("foo" nil)
+		(rdebug-get-script-name
+		 '("rdebug" "--include" "me" "-n" "foo")))
+  (assert-equal '("foo" nil) (rdebug-get-script-name
+			      '("rdebug" "--server" "-d" "--host"
+				"localhost" "foo" "-1")))
+  )
+
+(deftest "rdebug-goto-entry-test"
+  (let ((buf (generate-new-buffer "testing")))
+    (save-excursion
+      (switch-to-buffer buf)
+      (insert "#0 at line /tmp/gcd.rb:4\n")
+      (goto-char (point-min))
+      (assert-equal t (rdebug-goto-entry-try "0"))
+      (assert-equal nil (rdebug-goto-entry-try "1"))
+      (insert "  1 y   at gcd.rb:10\n")
+      (goto-char (point-min))
+      ;; Don't know why this doesn't work.
+      ;;(assert-equal t (rdebug-goto-entry-try "1"))
+      (insert "5: 1 + 2 = 3\n")
+      (goto-char (point-min))
+      (assert-equal t (rdebug-goto-entry-try "5"))
+      (goto-char (point-min))
+      (assert-equal nil (rdebug-goto-entry-try "3")))
+    (kill-buffer buf)))
+
+(defun rdebug-test-call-entry-n (str)
+  "Call `rdebug-goto-entry-n', return the line we landed on."
+  (rdebug-goto-entry-n-internal str)
+  (beginning-of-line)
+  (count-lines (point-min) (point)))
+
+;; The original implementation could not go to "10" if there was no "1" entry.
+(deftest "rdebug-goto-entry-test-2"
+  (let ((buf (generate-new-buffer "testing")))
+    (save-excursion
+      (switch-to-buffer buf)
+      (insert "#0 at line /tmp/gcd.rb:4\n")
+      (insert "#2 at line /tmp/gcd.rb:44\n")
+      (insert "#13 at line /tmp/gcd.rb:444\n")
+      (goto-char (point-min))
+      (setq rdebug-goto-entry-acc "")
+      ;; Goto "0"
+      (assert-equal 0 (rdebug-test-call-entry-n "0"))
+      ;; Goto "2"
+      (assert-equal 1 (rdebug-test-call-entry-n "2"))
+      ;; There is no "1" or "21" or "021", so stay.
+      (assert-equal 1 (rdebug-test-call-entry-n "1"))
+      ;; Goto "13"
+      (assert-equal 2 (rdebug-test-call-entry-n "3"))
+      ;; There is no "5", "35", or "135", so stay.
+      (assert-equal 2 (rdebug-test-call-entry-n "5"))
+      ;; Goto "0"
+      (assert-equal 0 (rdebug-test-call-entry-n "0"))
+      ;; Goto "2"
+      (assert-equal 1 (rdebug-test-call-entry-n "2")))
+    (kill-buffer buf)))
+
+
+;; -------------------------------------------------------------------
+;; Build and run the test suite.
+;;
+
+(build-suite "rdebug-suite" 
+	     "rdebug-get-script-name-test"
+	     "rdebug-goto-entry-test"
+	     "rdebug-goto-entry-test-2")
+(run-elk-test "rdebug-suite"
+              "test things in rdebug-core.el")
+

data/emacs/test/test-fns.el

@@ -0,0 +1,65 @@
+;; -*- emacs-lisp -*-
+;; This program has to be run from the directory it is currently in and
+;; the rdebug code has to be in the parent directory
+(load-file "./elk-test.el")
+
+(setq load-path (cons ".." load-path))
+(require 'rdebug-fns)
+(require 'rdebug-locring)
+(setq load-path (cdr load-path))
+
+;; -------------------------------------------------------------------
+
+(deftest "test-add-to-ring"
+  (let ((location-ring (make-ring 5)))
+    (assert-equal t (ring-empty-p location-ring))
+    (rdebug-locring-add 'first location-ring)
+    (assert-equal 'first (ring-ref location-ring 0))
+    (assert-equal 1 (ring-length location-ring))
+    ;; Trying to add the same entry should not again.
+    (rdebug-locring-add 'first location-ring)
+    (assert-equal 1 (ring-length location-ring))
+
+    ;; Second should go in as last item.
+    (rdebug-locring-add 'second location-ring)
+    (assert-equal 'second (ring-ref location-ring 1))
+    ;; First item is still 0.
+    (assert-equal 'first  (ring-ref location-ring 0))))
+
+(deftest "test-chomp"
+  (assert-equal "" (chomp ""))
+  (assert-equal "hi" (chomp "hi"))
+  (assert-equal "hi" (chomp "hi\n"))
+  (assert-equal "hi\n" (chomp "hi\n\n"))
+  (assert-equal "hi" (chomp "hi\n\n" t)))
+
+(deftest "test-set-frame-arrow"
+  (let ((rdebug-frames-current-frame-number 0))
+    (rdebug-set-frame-arrow (current-buffer))
+    (assert-equal '((overlay-arrow . right-triangle))
+		  fringe-indicator-alist)
+    (setq rdebug-frames-current-frame-number 1)
+    (rdebug-set-frame-arrow (current-buffer))
+    (assert-equal '((overlay-arrow . hollow-right-triangle))
+		  fringe-indicator-alist)))
+
+(require 'shell)
+(deftest "test-dead-process-p"
+  (assert-equal t (rdebug-dead-process-p))
+  (let ((gud-comint-buffer nil))
+    (assert-equal t (rdebug-dead-process-p))
+    (setq gud-comint-buffer (shell))
+    (assert-equal nil (rdebug-dead-process-p))))
+
+;; -------------------------------------------------------------------
+;; Build and run the test suite.
+;;
+
+(build-suite "rdebug-gud-suite"
+	     "test-add-to-ring"
+	     "test-chomp"
+	     "test-dead-process-p"
+	     "test-set-frame-arrow")
+
+(run-elk-test "rdebug-gud-suite"
+              "test some rdebug-error code")

data/emacs/test/test-frames.el

@@ -0,0 +1,62 @@
+;; -*- emacs-lisp -*-
+;; This program has to be run from the directory it is currently in and
+;; the rdebug code has to be in the parent directory
+(load-file "./elk-test.el")
+
+;; FIXME? Should we use "require 'rdebug" here.
+;; Would have to prepend . to load-path. 
+(load-file "../rdebug.el")
+(load-file "../rdebug-regexp.el")
+(load-file "../rdebug-frames.el")
+
+(make-variable-buffer-local 'gud-rdebug-marker-acc)
+
+(deftest "rdebug-stack-buffer-field-test"
+  (let ((buf (generate-new-buffer "testing")))
+    (save-excursion
+      (switch-to-buffer buf)
+      (insert 
+       "--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line /tmp/gcd.rb:4\n")
+      (insert
+       "       at line /foo/bar/custom_require.rb:27\n")
+
+      (goto-char (point-min))
+      (let* ((b (line-beginning-position)) (e (line-end-position))
+	     (s (buffer-substring b e))
+	     (file nil) (line nil))
+	(assert-nonnil (string-match rdebug-stack-frame-regexp s))
+	(assert-equal "/tmp/gcd.rb" (rdebug-stack-buffer-field
+				     s b
+				     rdebug-stack-frame-file-group
+				     font-lock-comment-face))
+	(assert-equal "4" (rdebug-stack-buffer-field
+			   s b
+			   rdebug-stack-frame-line-group
+			   font-lock-constant-face))
+	(forward-line)
+	(setq b (line-beginning-position))
+	(setq e (line-end-position))
+	(setq s (buffer-substring b e))
+	(assert-nonnil (string-match rdebug-stack-frame-2nd-regexp s))
+	(assert-equal "/foo/bar/custom_require.rb" 
+		      (rdebug-stack-buffer-field
+		       s b
+		       rdebug-stack-frame-2nd-file-group
+		       font-lock-comment-face))
+	(assert-equal "27" (rdebug-stack-buffer-field
+			    s b
+			    rdebug-stack-frame-2nd-line-group
+			    font-lock-constant-face))
+	))
+    (kill-buffer buf)))
+
+
+;; -------------------------------------------------------------------
+;; Build and run the test suite.
+;;
+
+(build-suite "rdebug-suite" 
+	     "rdebug-stack-buffer-field-test")
+(run-elk-test "rdebug-suite"
+              "test things in rdebug-frames.el")
+

data/emacs/test/test-gud.el

@@ -0,0 +1,35 @@
+;; -*- emacs-lisp -*-
+;; This program has to be run from the directory it is currently in and
+;; the rdebug code has to be in the parent directory
+(load-file "./elk-test.el")
+
+(setq load-path (cons ".." load-path))
+(require 'rdebug-gud)
+(setq load-path (cdr load-path))
+
+(defun y-or-n-p (prompt)
+  "Replacement of y-or-n-p() for rdebug testing"
+  (assert-nil "y-or-n-p should not have been called"))
+
+(defun error (msg)
+  "Replacement error() for rdebug testing"
+  (assert-nil "error should not have been called"))
+
+;; -------------------------------------------------------------------
+
+(deftest "test-rdebug-find-file"
+  ;; Set to cause a warning in find-file-no-select and 
+  ;; check that it is ignored.
+  (let ((large-file-warning-threshold 1)) 
+    (gud-rdebug-find-file "elk-test.el")))
+
+
+;; -------------------------------------------------------------------
+;; Build and run the test suite.
+;;
+
+(build-suite "rdebug-gud-suite"
+	     "test-rdebug-find-file")
+
+(run-elk-test "rdebug-gud-suite"
+              "test some rdebug-gud code")

data/emacs/test/test-indent.el

@@ -0,0 +1,58 @@
+;; -*- emacs-lisp -*-
+;; This program has to be run from the directory it is currently in and
+;; the rdebug code has to be in the parent directory
+(load-file "./elk-test.el")
+
+;; -------------------------------------------------------------------
+;; Check source code indentation
+;;
+
+(put 'rdebug-debug-enter 'lisp-indent-hook 1)
+
+(defun rdebug-test-reindent-one-file (file)
+  (let ((buf (generate-new-buffer "testing"))
+        (res nil))
+    (save-excursion
+      (switch-to-buffer buf)
+      (insert-file file)
+      (emacs-lisp-mode)
+      (set-buffer-modified-p nil)
+      (undo-boundary)
+      (indent-region (point-min) (point-max))
+      (if (buffer-modified-p)
+          (setq res "Reindentation failed")))
+    (kill-buffer buf)
+    res))
+
+(deftest "rdebug-indent-files"
+  (mapcar (lambda (lisp-file)
+	    (message lisp-file)
+	    (assert-nil (rdebug-test-reindent-one-file lisp-file)))
+	  '("../rdebug.el"
+	    "../rdebug-breaks.el"
+	    "../rdebug-cmd.el"
+	    "../rdebug-core.el"
+	    "../rdebug-dbg.el"
+	    "../rdebug-error.el"
+	    "../rdebug-frames.el"
+	    "../rdebug-fns.el"
+	    "../rdebug-gud.el"
+	    "../rdebug-help.el"
+	    "../rdebug-info.el"
+	    "../rdebug-layouts.el"
+	    "../rdebug-output.el"
+	    "../rdebug-regexp.el"
+	    "../rdebug-secondary.el"
+	    "../rdebug-source.el"
+	    "../rdebug-track.el"
+	    "../rdebug-varbuf.el"
+	    "../rdebug-vars.el"
+	    "../rdebug-watch.el"
+	    "./test-cmd.el"
+	    "./test-core.el"
+	    "./test-indent.el"
+	    "./test-regexp.el"
+	    )))
+
+(run-elk-test "rdebug-indent-files"
+              "test indentation of Lisp files")

data/emacs/test/test-regexp.el

@@ -0,0 +1,144 @@
+;; -*- emacs-lisp -*-
+;; This program has to be run from the directory it is currently in and
+;; the rdebug code has to be in the parent directory
+(load-file "./elk-test.el")
+
+;; FIXME? Should we use "require 'rdebug" here.
+;; Would have to prepend . to load-path. 
+(load-file "../rdebug.el")
+(load-file "../rdebug-core.el")
+
+(make-variable-buffer-local 'gud-rdebug-marker-acc)
+
+(defun regexp-breakpoint-test (location-str pos-str enabled-str file-str line-str)
+  "Test to see that location-str parses rdebug-breakpoint-regexp properly"
+  (assert-equal 0 (string-match rdebug-breakpoint-regexp location-str))
+  (assert-equal pos-str
+		(substring location-str (match-beginning 1)  (match-end 1)))
+  (assert-equal enabled-str
+		(substring location-str (match-beginning 2)  (match-end 2)))
+  (assert-equal file-str
+		(substring location-str (match-beginning 3)  (match-end 3)))
+  (assert-equal line-str
+		(substring location-str (match-beginning 4)  (match-end 4)))
+  )
+(deftest "rdebug-regexp-breakpoint-test"
+
+  (regexp-breakpoint-test 
+   "  1 y   at gcd.rb:6"
+   "1" "y" "gcd.rb" "6"
+   )
+  (regexp-breakpoint-test 
+   "  1 y   at gcd.rb:6 if 1 == a"
+   "1" "y" "gcd.rb" "6"
+   )
+  )
+
+(defun regexp-file-test (location-str file-str)
+  "Test to see that location-str matches gud-rdebug-marker-regexp"
+  (assert-equal 0 (string-match gud-rdebug-marker-regexp location-str))
+  (assert-equal file-str
+		(substring location-str (match-beginning 1)  (match-end 1)))
+  )
+(deftest "rdebug-regexp-file-test"
+
+  (regexp-file-test 
+   "\032\032./hanoi.rb:3\n"
+   "./hanoi.rb"
+   )
+  (regexp-file-test 
+   "\032\032source ./hanoi.rb:3\n"
+   "./hanoi.rb"
+   )
+  (regexp-file-test 
+   "\032\032C:/tmp/gcd.rb:29\n"
+   "C:/tmp/gcd.rb"
+   )
+  (regexp-file-test 
+   "\032\032source \\sources\\capfilterscanner\\capanalyzer.rb:3:  <module>\n"
+   "\\sources\\capfilterscanner\\capanalyzer.rb"
+   )
+  )
+
+(deftest "rdebug-regexp-marker-filter-test"
+  (assert-equal "Testing 1 2 3" (gud-rdebug-marker-filter "Testing 1 2 3"))
+  (assert-equal "ABC" (gud-rdebug-marker-filter 
+                       "\
+breakpoints
+No breakpoints
+
+ABC")))
+
+(defun regexp-stack-test (location-str pos-str file-str line-str)
+  "Test to see that location-str parses rdebug-stack-frame-regexp properly"
+  (assert-equal 0 (string-match rdebug-stack-frame-regexp location-str))
+  (assert-equal pos-str
+		(substring location-str (match-beginning 2)  (match-end 2)))
+  (assert-equal file-str
+		(substring location-str (match-beginning 4)  (match-end 4)))
+  (assert-equal line-str
+		(substring location-str (match-beginning 5)  (match-end 5)))
+  )
+(deftest "rdebug-regexp-stack-test"
+
+  (regexp-stack-test 
+   "--> #0 at line /home/rocky/ruby/gcd.rb:18"
+   "0" "/home/rocky/ruby/gcd.rb" "18"
+   )
+  )
+
+(defun regexp-traceback-test (location-str file-str line-str)
+  "Test to see that location-str matches position-regexp-file-test with the correct
+file and line submatches."
+  (assert-equal 0 (string-match rdebug-traceback-line-re location-str))
+  (assert-equal file-str (match-string 1 location-str))
+  (assert-equal line-str (match-string 2 location-str))
+  )
+
+(deftest "rdebug-regexp-traceback-test"
+
+  (regexp-traceback-test 
+   "	from /home/rocky/ruby/gcd.rb:15:in `gcd'"
+   "/home/rocky/ruby/gcd.rb" "15"
+   )
+  (regexp-traceback-test 
+   "	from /home/rocky/ruby/gcd.rb:19"
+   "/home/rocky/ruby/gcd.rb" "19"
+   )
+  )
+
+(defun regexp-unittest-traceback-test (location-str file-str line-str)
+  "Test to see that location-str matches position-regexp-file-test with the correct
+file and line submatches."
+  (assert-equal 0 (string-match rdebug-dollarbang-traceback-line-re 
+				location-str))
+  (assert-equal file-str (match-string 1 location-str))
+  (assert-equal line-str (match-string 2 location-str))
+  )
+
+(deftest "rdebug-regexp-unittest-traceback-test"
+
+  (regexp-unittest-traceback-test 
+   "    [test-frame.rb:26:in `test_basic'"
+   "test-frame.rb" "26"
+   )
+  (regexp-unittest-traceback-test 
+   "     test-frame.rb:22:in `test_basic']:"
+   "test-frame.rb" "22"
+   )
+  )
+
+;; -------------------------------------------------------------------
+;; Build and run the test suite.
+;;
+
+(build-suite "rdebug-suite" 
+	     "rdebug-regexp-breakpoint-test" 
+	     "rdebug-regexp-file-test" 
+	     "rdebug-regexp-marker-filter-test" 
+	     "rdebug-regexp-stack-test"
+	     "rdebug-regexp-traceback-test" 
+	     "rdebug-regexp-unittest-traceback-test")
+
+(run-elk-test "rdebug-suite"
+              "test regular expressions used in tracking lines")