Mercurial

comparison .cms/lib/codemirror/mode/mscgen/msgenny_test.js @ 0:78edf6b517a0 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
24.10
author Coffee CMS <info@coffee-cms.ru>
date Fri, 11 Oct 2024 22:40:23 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:78edf6b517a0
1 // CodeMirror, copyright (c) by Marijn Haverbeke and others
2 // Distributed under an MIT license: https://codemirror.net/5/LICENSE
3
4 (function() {
5 var mode = CodeMirror.getMode({indentUnit: 2}, "text/x-msgenny");
6 function MT(name) { test.mode(name, mode, Array.prototype.slice.call(arguments, 1), "msgenny"); }
7
8 MT("comments",
9 "[comment // a single line comment]",
10 "[comment # another single line comment /* and */ ignored here]",
11 "[comment /* A multi-line comment even though it contains]",
12 "[comment msc keywords and \"quoted text\"*/]");
13
14 MT("strings",
15 "[string \"// a string\"]",
16 "[string \"a string running over]",
17 "[string two lines\"]",
18 "[string \"with \\\"escaped quote\"]"
19 );
20
21 MT("xù/ msgenny keywords classify as 'keyword'",
22 "[keyword watermark]",
23 "[keyword wordwrapentities]",
24 "[keyword alt]","[keyword loop]","[keyword opt]","[keyword ref]","[keyword else]","[keyword break]","[keyword par]","[keyword seq]","[keyword assert]"
25 );
26
27 MT("xù/ msgenny constants classify as 'variable'",
28 "[variable auto]",
29 "[variable true]", "[variable false]", "[variable on]", "[variable off]"
30 );
31
32 MT("mscgen options classify as keyword",
33 "[keyword hscale]", "[keyword width]", "[keyword arcgradient]", "[keyword wordwraparcs]"
34 );
35
36 MT("mscgen arcs classify as keyword",
37 "[keyword note]","[keyword abox]","[keyword rbox]","[keyword box]",
38 "[keyword |||...---]", "[keyword ..--==::]",
39 "[keyword ->]", "[keyword <-]", "[keyword <->]",
40 "[keyword =>]", "[keyword <=]", "[keyword <=>]",
41 "[keyword =>>]", "[keyword <<=]", "[keyword <<=>>]",
42 "[keyword >>]", "[keyword <<]", "[keyword <<>>]",
43 "[keyword -x]", "[keyword x-]", "[keyword -X]", "[keyword X-]",
44 "[keyword :>]", "[keyword <:]", "[keyword <:>]"
45 );
46
47 MT("within an attribute list, mscgen/ xù attributes classify as base",
48 "[base [[label]",
49 "[base idurl id url]",
50 "[base linecolor linecolour textcolor textcolour textbgcolor textbgcolour]",
51 "[base arclinecolor arclinecolour arctextcolor arctextcolour arctextbgcolor arctextbgcolour]",
52 "[base arcskip]]]"
53 );
54
55 MT("outside an attribute list, mscgen/ xù attributes classify as base",
56 "[base label]",
57 "[base idurl id url]",
58 "[base linecolor linecolour textcolor textcolour textbgcolor textbgcolour]",
59 "[base arclinecolor arclinecolour arctextcolor arctextcolour arctextbgcolor arctextbgcolour]",
60 "[base arcskip]"
61 );
62
63 MT("a typical program",
64 "[comment # typical msgenny program]",
65 "[keyword wordwraparcs][operator =][variable true][base , ][keyword hscale][operator =][string \"0.8\"][base , ][keyword arcgradient][operator =][base 30;]",
66 "[base a : ][string \"Entity A\"][base ,]",
67 "[base b : Entity B,]",
68 "[base c : Entity C;]",
69 "[base a ][keyword =>>][base b: ][string \"Hello entity B\"][base ;]",
70 "[base a ][keyword alt][base c][bracket {]",
71 "[base a ][keyword <<][base b: ][string \"Here's an answer dude!\"][base ;]",
72 "[keyword ---][base : ][string \"sorry, won't march - comm glitch\"]",
73 "[base a ][keyword x-][base b: ][string \"Here's an answer dude! (won't arrive...)\"][base ;]",
74 "[bracket }]",
75 "[base c ][keyword :>][base *: What about me?;]"
76 );
77 })();