Test highlighting of escape sequences

test/highlighters.lua

@@ -8,29 +8,27 @@
 
 ]]
 
--- TODO Test that escape sequences are highlighted in all strings except long strings.
+local lxsh = require 'lxsh'
 
 -- Tests for the Lua highlighter. {{{1
 
-local lua_highlighter = require 'lxsh.highlighters.lua'
-
 -- Constants (true, false and nil). {{{2
-assert(lua_highlighter('true false nil', { external = true }) == [[
+assert(lxsh.highlighters.lua('true false nil', { external = true }) == [[
 <pre class="sourcecode lua"><span class="constant">true</span> <span class="constant">false</span> <span class="constant">nil</span></pre>]])
 
 -- Interactive prompt. {{{2
-assert(lua_highlighter([[
+assert(lxsh.highlighters.lua([[
 Lua 5.1.4  Copyright (C) 1994-2008 Lua.org, PUC-Rio
 > print "Hello world!"]], { external = true }) == [[
 <pre class="sourcecode lua"><span class="prompt">Lua 5.1.4  Copyright (C) 1994-2008 Lua.org, PUC-Rio</span>
 <span class="prompt">&gt;</span> <a href="http://www.lua.org/manual/5.1/manual.html#pdf-print" class="library">print</a> <span class="constant">"Hello world!"</span></pre>]])
 
 -- Numbers. {{{2
-assert(lua_highlighter('1 3.14 1. .1 0x0123456789ABCDEF 1e5', { external = true }) == [[
+assert(lxsh.highlighters.lua('1 3.14 1. .1 0x0123456789ABCDEF 1e5', { external = true }) == [[
 <pre class="sourcecode lua"><span class="number">1</span> <span class="number">3.14</span> <span class="number">1.</span> <span class="number">.1</span> <span class="number">0x0123456789ABCDEF</span> <span class="number">1e5</span></pre>]])
 
 -- String literals. {{{2
-assert(lua_highlighter([==[
+assert(lxsh.highlighters.lua([==[
 'single quoted string'
 "double quoted string"
 [[long string]]
@@ -47,7 +45,7 @@ long string]]</span>
 </pre>]==])
 
 -- Comments. {{{2
-assert(lua_highlighter([==[
+assert(lxsh.highlighters.lua([==[
 #!shebang line
 -- single line comment
 --[=[
@@ -74,20 +72,34 @@ comment
 </pre>]==])
 
 -- Operators. {{{2
-assert(lua_highlighter('not ... and .. ~= == >= <= or ] { = > ^ [ < ; ) * ( % } + - : , / . #', { external = true }) == [==[
+assert(lxsh.highlighters.lua('not ... and .. ~= == >= <= or ] { = > ^ [ < ; ) * ( % } + - : , / . #', { external = true }) == [==[
 <pre class="sourcecode lua"><span class="operator">not</span> <span class="operator">...</span> <span class="operator">and</span> <span class="operator">..</span> <span class="operator">~=</span> <span class="operator">==</span> <span class="operator">&gt;=</span> <span class="operator">&lt;=</span> <span class="operator">or</span> <span class="operator">]</span> <span class="operator">{</span> <span class="operator">=</span> <span class="operator">&gt;</span> <span class="operator">^</span> <span class="operator">[</span> <span class="operator">&lt;</span> <span class="operator">;</span> <span class="operator">)</span> <span class="operator">*</span> <span class="operator">(</span> <span class="operator">%</span> <span class="operator">}</span> <span class="operator">+</span> <span class="operator">-</span> <span class="operator">:</span> <span class="operator">,</span> <span class="operator">/</span> <span class="operator">.</span> <span class="operator">#</span></pre>]==])
 
 -- Keywords. {{{2
-assert(lua_highlighter('break do else elseif end for function if in local repeat return then until while', { external = true }) == [==[
+assert(lxsh.highlighters.lua('break do else elseif end for function if in local repeat return then until while', { external = true }) == [==[
 <pre class="sourcecode lua"><span class="keyword">break</span> <span class="keyword">do</span> <span class="keyword">else</span> <span class="keyword">elseif</span> <span class="keyword">end</span> <span class="keyword">for</span> <span class="keyword">function</span> <span class="keyword">if</span> <span class="keyword">in</span> <span class="keyword">local</span> <span class="keyword">repeat</span> <span class="keyword">return</span> <span class="keyword">then</span> <span class="keyword">until</span> <span class="keyword">while</span></pre>]==])
 
 -- Hyper links embedded in strings/comments and documentation links. {{{2
-assert(lua_highlighter([[
+assert(lxsh.highlighters.lua([[
 -- http://peterodding.com/code/lua/lxsh
 os.execute("firefox http://lua.org")
 ]], { external = true }) == [[
 <pre class="sourcecode lua"><span class="comment">-- </span><a href="http://peterodding.com/code/lua/lxsh">http://peterodding.com/code/lua/lxsh</a><span class="comment">
 </span><a href="http://www.lua.org/manual/5.1/manual.html#pdf-os.execute" class="library">os.execute</a><span class="operator">(</span><span class="constant">"firefox </span><a href="http://lua.org">http://lua.org</a><span class="constant">"</span><span class="operator">)</span>
 </pre>]])
 
+-- Escape sequences in strings. {{{2
+
+-- Escape sequences in single quoted strings are highlighted.
+assert(lxsh.highlighters.lua([['foo\000bar']], { external = true }) == [[
+<pre class="sourcecode lua"><span class="constant">'foo</span><span class="escape">\000</span><span class="constant">bar'</span></pre>]])
+
+-- Escape sequences in double quoted strings are highlighted.
+assert(lxsh.highlighters.lua([["foo\000bar"]], { external = true }) == [[
+<pre class="sourcecode lua"><span class="constant">"foo</span><span class="escape">\000</span><span class="constant">bar"</span></pre>]])
+
+-- Escape sequences in long strings are NOT highlighted.
+assert(lxsh.highlighters.lua('[[foo\\000bar]]', { external = true }) == [=[
+<pre class="sourcecode lua"><span class="constant">[[foo\000bar]]</span></pre>]=])
+
 -- vim: ts=2 sw=2 et