1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
; -*- emacs-lisp -*-
(load-file "./elk-test.el")
(load-file "./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")
|
