(require 'test-simple)
(load-file "../realgud/debugger/zshdb/init.el")
(load-file "./regexp-helper.el")

(test-simple-start)

(setq prompt-pat (gethash "prompt"             realgud:zshdb-pat-hash))
(setq frame-pat  (gethash "debugger-backtrace" realgud:zshdb-pat-hash))

(note "zshdb prompt matching")
(prompt-match "zshdb<10> "  "10")
(prompt-match	"zshdb<(5)> " "5" "subshell prompt %s")
(prompt-match	"zshdb<<1>> " "1" "nested debug prompt %s")

(note "zshdb frame matching")

(note "debugger-backtrace")
(setq s1
      "->0 in file `/etc/apparmor/functions' at line 24
##1 /etc/apparmor/functions called from file `/etc/init.d/apparmor' at line 35
##2 /etc/init.d/apparmor called from file `/usr/local/bin/zshdb' at line 129
")
(setq frame-re (realgud-loc-pat-regexp frame-pat))
(setq num-group (realgud-loc-pat-num frame-pat))
(setq file-group (realgud-loc-pat-file-group frame-pat))
(setq line-group (realgud-loc-pat-line-group frame-pat))
(assert-equal 0 (string-match frame-re s1))
(assert-equal "0" (substring s1
			     (match-beginning num-group)
			     (match-end num-group)))
(assert-equal "/etc/apparmor/functions"
	      (substring s1
			 (match-beginning file-group)
			 (match-end file-group)))
(assert-equal "24"
	      (substring s1
			 (match-beginning line-group)
			 (match-end line-group)))
(setq pos (match-end 0))

(assert-equal 49 (string-match frame-re s1 pos))
(assert-equal "1" (substring s1
			     (match-beginning num-group)
			     (match-end num-group)))
(assert-equal "/etc/init.d/apparmor"
	      (substring s1
			 (match-beginning file-group)
			 (match-end file-group)))
(assert-equal "35"
	      (substring s1
			 (match-beginning line-group)
			 (match-end line-group)))
(setq pos (match-end 0))
(assert-equal 128 (string-match frame-re s1 pos))
(assert-equal "2" (substring s1
			     (match-beginning num-group)
			     (match-end num-group)))
(assert-equal "/usr/local/bin/zshdb"
	      (substring s1
			 (match-beginning file-group)
			 (match-end file-group)))
(assert-equal "129"
	      (substring s1
			 (match-beginning line-group)
			 (match-end line-group)))

(end-tests)