Skip to content

Commit 177513b

Browse files
Merge pull request #194 from juergenhoetzel/test-relax-tooltop-match
Test relax tooltop match
2 parents e57122e + d104548 commit 177513b

File tree

3 files changed

+13
-5
lines changed

3 files changed

+13
-5
lines changed

Makefile

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@ load_integration_tests = $(patsubst %,-l %, $(integration_tests))
2525
# Autocomplete binary distribution.
2626
ac_name = fsautocomplete
2727
ac_exe = $(bin_d)/$(ac_name).exe
28-
ac_version = 0.34.0
28+
ac_version = 0.36.0
2929
ac_archive = $(ac_name)-$(ac_version).zip
3030
ac_url = https://github.com/fsharp/FsAutoComplete/releases/download/$(ac_version)/$(ac_name).zip
3131

@@ -100,7 +100,11 @@ test unit-test fake-home:
100100
$(emacs) $(load_files) --batch -f run-fsharp-unit-tests
101101

102102
integration-test : $(ac_exe) packages fake-home
103-
$(emacs) $(load_files) --batch -f run-fsharp-integration-tests
103+
ifdef test-selector
104+
$(emacs) $(load_files) --batch --eval "(let ((fsharp--test-selector \"$(test-selector)\"))(run-fsharp-integration-tests))"
105+
else
106+
$(emacs) $(load_files) --batch --eval "(run-fsharp-integration-tests)"
107+
endif
104108

105109
test-all : unit-test integration-test check-compile check-declares
106110

test/integration-tests.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -143,7 +143,7 @@
143143
(fsharp-ac-parse-current-buffer t)
144144
(fsharp-ac/show-tooltip-at-point)
145145
(wait-for-condition tiptext)
146-
(should-match "val func : x:int -> int\n\nFull name: Program.X.func"
146+
(should-match "val func:[ \n]+x: int[ \n]+-> int"
147147
tiptext))))))
148148

149149
(ert-deftest check-errors ()

test/test-common.el

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,10 @@
22
(require 'package)
33
(require 'cl)
44

5+
6+
(defvar fsharp--test-selector t
7+
"SELECTOR used in ert tests.")
8+
59
(defmacro check (desc &rest body)
610
"Wrap ert-deftest with a simpler interface."
711
(declare (indent 1))
@@ -99,8 +103,8 @@ glob emacs/test/*test.el."
99103
(let ((test-files (if files files fsharp-test-files)))
100104
(mapc 'load-file test-files)
101105
(if noninteractive
102-
(ert-run-tests-batch-and-exit)
103-
(ert-run-tests-interactively t))))
106+
(ert-run-tests-batch-and-exit fsharp--test-selector)
107+
(ert-run-tests-interactively fsharp--test-selector))))
104108

105109
(defconst fsharp-test-files
106110
(directory-files

0 commit comments

Comments
 (0)