bash debugger. You can use this tool to debug bash shell script

源代码在线查看: bashdb-test.el.in

软件大小: 1126 K
上传用户: yeling023
关键词: bash debugger script debug
下载地址: 免注册下载 普通下载 VIP

相关代码

				; -*- emacs-lisp -*-				(load-file "@srcdir@/elk-test.el")				(load-file "@srcdir@/bashdb.el")								(defun regexp-test (location-str file-str)				  "Test to see that location-str matches gud-bashdb-marker-regexp"				  (assert-equal 0 (string-match gud-bashdb-marker-regexp location-str))				  (assert-equal file-str						(substring location-str							   (match-beginning gud-bashdb-marker-regexp-file-group) 							   (match-end gud-bashdb-marker-regexp-file-group)))				)				(deftest "bashdb-marker-regexp-test"								  (regexp-test 				   "(e:\\sources\\capfilterscanner\\capanalyzer.sh:3):				"				   "e:\\sources\\capfilterscanner\\capanalyzer.sh"				   )				  (regexp-test 				   "(e:\\Documents and Settings\\jsmith\\My Documents\\cpanalyzer test.sh:3):				"				   "e:\\Documents and Settings\\jsmith\\My Documents\\cpanalyzer test.sh"				   )  				  (regexp-test 				   "(/etc/init.d/network:39):				"				   "/etc/init.d/network"				   )				)								(defun position-regexp-test (location-str file-str line-str)				  "Test to see that location-str matches position-regexp-test with the correct				file and line submatches."				  (assert-equal 0 (string-match pydb-position-re location-str))				  (assert-equal file-str (match-string pydb-marker-regexp-file-group				                                       location-str))				  (assert-equal line-str (match-string pydb-marker-regexp-line-group				                                       location-str))				  )				(deftest "bashdb-position-re-test"								  (position-regexp-test 				   "(e:\\sources\\capfilterscanner\\capanalyzer.py:3):				"				   "e:\\sources\\capfilterscanner\\capanalyzer.py" "3"				   )				  (position-regexp-test 				   "(e:\\Documents and Settings\\jsmith\\My Documents\\cpanalyzer test.py:3):				"				   "e:\\Documents and Settings\\jsmith\\My Documents\\cpanalyzer test.py" "3"				   )  				  (position-regexp-test 				   "(/etc/init.d/network:29):				"				   "/etc/init.d/network" "29"				   )				)  				   				(build-suite "bashdb-suite" "bashdb-marker-regexp-test")				(run-elk-test "bashdb-marker-regexp-test"				              "test regular expression used in tracking lines")  											

相关资源