branch: elpa/raku-mode
commit e4a86350be2c6a9c8d00168017613bf6100ca0d3
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
Fix tests in light of recent changes
---
test/perl6-mode-test.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/test/perl6-mode-test.el b/test/perl6-mode-test.el
index e04abd02fa..023d244787 100644
--- a/test/perl6-mode-test.el
+++ b/test/perl6-mode-test.el
@@ -68,18 +68,18 @@ POS."
(ert-deftest perl6-syntax-propertize/dq-words ()
:tags '(syntax-table syntax-properties)
- (perl6-test-with-temp-buffer "foo «bar» bla <<baz>> quux"
+ (perl6-test-with-temp-buffer "foo «bar1 bar2» bla <<baz1 baz2>> quux"
(should (eq (perl6-test-syntax-at 1) 'word))
(should (eq (perl6-test-syntax-at 5)
'generic-string))
- (should (eq (perl6-test-syntax-at 9)
'generic-string))
(should (eq (perl6-test-syntax-at 15)
'generic-string))
- (should (eq (perl6-test-syntax-at 16)
'punctuation))
- (should (eq (perl6-test-syntax-at 20)
'punctuation))
- (should (eq (perl6-test-syntax-at 21)
'generic-string))))
+ (should (eq (perl6-test-syntax-at 21)
'generic-string))
+ (should (eq (perl6-test-syntax-at 22)
'punctuation))
+ (should (eq (perl6-test-syntax-at 32)
'punctuation))
+ (should (eq (perl6-test-syntax-at 33)
'generic-string))))
(ert-deftest perl6-mode-syntax-table/fontify-dq-string ()
:tags '(fontification syntax-table)
- (should (eq (perl6-test-face-at 8 "$foo = \"bar\"") 'perl6-string)))
+ (should (eq (perl6-test-face-at 9 "$foo = \"bar\"") 'perl6-string)))
(ert-deftest perl6-mode-syntax-table/fontify-set-operator ()
:tags '(fontification syntax-table)
@@ -87,7 +87,7 @@ POS."
(ert-deftest perl6-mode-syntax-table/fontify-sq-string ()
:tags '(fontification syntax-table)
- (should (eq (perl6-test-face-at 8 "$foo = 'bar'") 'perl6-string)))
+ (should (eq (perl6-test-face-at 9 "$foo = 'bar'") 'perl6-string)))
(ert-deftest perl6-mode-syntax-table/fontify-line-comment ()
:tags '(fontification syntax-table)
