summary refs log tree commit diff stats
path: root/LICENSE
blob: 481a7fa7cbc7334548f3ef019247ddca4fa5abfc (plain) (blame)
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
BSD 3-Clause License

Mighty Web Video Management System (mwVMS)
Copyright (c) 2021, naglfar@tilde.institute
All rights reserved.

Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:

1. Redistributions of source code must retain the above copyright notice, this
   list of conditions and the following disclaimer.

2. Redistributions in binary form must reproduce the above copyright notice,
   this list of conditions and the following disclaimer in the documentation
   and/or other materials provided with the distribution.

3. Neither the name of the copyright holder nor the names of its
   contributors may be used to endorse or promote products derived from
   this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
n233'>233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>Mu - 504test-screen.mu</title>
<meta name="Generator" content="Vim/8.2">
<meta name="plugin-version" content="vim8.1_v2">
<meta name="syntax" content="none">
<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback">
<meta name="colorscheme" content="minimal-light">
<style>
<!--
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; }
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; }
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
.PreProc { color: #c000c0; }
.muRegEdx { color: #af5f00; }
.Special { color: #ff6060; }
.LineNr { }
.muRegEsi { color: #005faf; }
.muRegEbx { color: #5f00ff; }
.Constant { color: #008787; }
.muRegEdi { color: #00af00; }
.muRegEcx { color: #870000; }
.Delimiter { color: #c000c0; }
.muFunction { color: #af5f00; text-decoration: underline; }
.muTest { color: #5f8700; }
.muComment { color: #005faf; }
-->
</style>

<script>
<!--

/* function to open any folds containing a jumped-to line before jumping to it */
function JumpToLine()
{
  var lineNum;
  lineNum = window.location.hash;
  lineNum = lineNum.substr(1); /* strip off '#' */

  if (lineNum.indexOf('L') == -1) {
    lineNum = 'L'+lineNum;
  }
  var lineElem = document.getElementById(lineNum);
  /* Always jump to new location even if the line was hidden inside a fold, or
   * we corrected the raw number to a line ID.
   */
  if (lineElem) {
    lineElem.scrollIntoView(true);
  }
  return true;
}
if ('onhashchange' in window) {
  window.onhashchange = JumpToLine;
}

-->
</script>
</head>
<body onload='JumpToLine();'>
<a href='https://github.com/akkartik/mu/blob/main/504test-screen.mu'>https://github.com/akkartik/mu/blob/main/504test-screen.mu</a>
<pre id='vimCodeElement'>
<span id="L1" class="LineNr">  1 </span><span class="muComment"># Some primitives for checking the state of fake screen objects.</span>
<span id="L2" class="LineNr">  2 </span>
<span id="L3" class="LineNr">  3 </span><span class="muComment"># validate data on screen regardless of attributes (color, bold, etc.)</span>
<span id="L4" class="LineNr">  4 </span><span class="muComment"># Mu doesn't have multi-line strings, so we provide functions for rows or portions of rows.</span>
<span id="L5" class="LineNr">  5 </span><span class="muComment"># Tab characters (that translate into multiple screen cells) not supported.</span>
<span id="L6" class="LineNr">  6 </span>
<span id="L7" class="LineNr">  7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L7'>check-screen-row</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), y: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span>
<span id="L8" class="LineNr">  8 </span>  <a href='504test-screen.mu.html#L11'>check-screen-row-from</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y, expected, msg
<span id="L9" class="LineNr">  9 </span><span class="Delimiter">}</span>
<span id="L10" class="LineNr"> 10 </span>
<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L11'>check-screen-row-from</a></span> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span>
<span id="L12" class="LineNr"> 12 </span>  <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special">&lt;-</span> copy _screen
<span id="L13" class="LineNr"> 13 </span>  <span class="PreProc">var</span> failure-count/<span class="muRegEdi">edi</span>: int <span class="Special">&lt;-</span> copy <span class="Constant">0</span>
<span id="L14" class="LineNr"> 14 </span>  <span class="PreProc">var</span> index/<span class="muRegEcx">ecx</span>: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L244'>screen-cell-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, x, y
<span id="L15" class="LineNr"> 15 </span>  <span class="muComment"># compare 'expected' with the screen contents starting at 'index', grapheme by grapheme</span>
<span id="L16" class="LineNr"> 16 </span>  <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>)
<span id="L17" class="LineNr"> 17 </span>  <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special">&lt;-</span> address e
<span id="L18" class="LineNr"> 18 </span>  <a href='108write.subx.html#L11'>write</a> e-addr, expected
<span id="L19" class="LineNr"> 19 </span>  <span class="Delimiter">{</span>
<span id="L20" class="LineNr"> 20 </span>    <span class="PreProc">var</span> done?/eax: boolean <span class="Special">&lt;-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr
<span id="L21" class="LineNr"> 21 </span>    compare done?, <span class="Constant">0</span>
<span id="L22" class="LineNr"> 22 </span>    <span class="PreProc">break-if-!=</span>
<span id="L23" class="LineNr"> 23 </span>    <span class="Delimiter">{</span>
<span id="L24" class="LineNr"> 24 </span>      <span class="PreProc">var</span> unused?/eax: boolean <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L513'>screen-cell-unused-at-index?</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L25" class="LineNr"> 25 </span>      compare unused?, <span class="Constant">0</span>/false
<span id="L26" class="LineNr"> 26 </span>      <span class="PreProc">break-if-!=</span>
<span id="L27" class="LineNr"> 27 </span>      <span class="PreProc">var</span> _c/eax: code-point <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L531'>screen-code-point-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L28" class="LineNr"> 28 </span>      <span class="PreProc">var</span> c/<span class="muRegEbx">ebx</span>: code-point <span class="Special">&lt;-</span> copy _c
<span id="L29" class="LineNr"> 29 </span>      <span class="PreProc">var</span> expected-grapheme/eax: grapheme <span class="Special">&lt;-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> e-addr
<span id="L30" class="LineNr"> 30 </span>      <span class="PreProc">var</span> expected-code-point/eax: code-point <span class="Special">&lt;-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> expected-grapheme
<span id="L31" class="LineNr"> 31 </span>      <span class="muComment"># compare graphemes</span>
<span id="L32" class="LineNr"> 32 </span>      $check-screen-row-from:compare-graphemes: <span class="Delimiter">{</span>
<span id="L33" class="LineNr"> 33 </span>        <span class="muComment"># if expected-code-point is space, null grapheme is also ok</span>
<span id="L34" class="LineNr"> 34 </span>        <span class="Delimiter">{</span>
<span id="L35" class="LineNr"> 35 </span>          compare expected-code-point, <span class="Constant">0x20</span>
<span id="L36" class="LineNr"> 36 </span>          <span class="PreProc">break-if-!=</span>
<span id="L37" class="LineNr"> 37 </span>          compare c, <span class="Constant">0</span>
<span id="L38" class="LineNr"> 38 </span>          <span class="PreProc">break-if-=</span> $check-screen-row-from:compare-graphemes
<span id="L39" class="LineNr"> 39 </span>        <span class="Delimiter">}</span>
<span id="L40" class="LineNr"> 40 </span>        <span class="muComment"># if (c == expected-code-point) print &quot;.&quot;</span>
<span id="L41" class="LineNr"> 41 </span>        compare c, expected-code-point
<span id="L42" class="LineNr"> 42 </span>        <span class="PreProc">break-if-=</span>
<span id="L43" class="LineNr"> 43 </span>        <span class="muComment"># otherwise print an error</span>
<span id="L44" class="LineNr"> 44 </span>        failure-count <span class="Special">&lt;-</span> increment
<span id="L45" class="LineNr"> 45 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L46" class="LineNr"> 46 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;: expected '&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L47" class="LineNr"> 47 </span>        <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg
<span id="L48" class="LineNr"> 48 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;' at (&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L49" class="LineNr"> 49 </span>        <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L50" class="LineNr"> 50 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;, &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L51" class="LineNr"> 51 </span>        <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L52" class="LineNr"> 52 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;) but observed '&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L53" class="LineNr"> 53 </span>        <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, c, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg
<span id="L54" class="LineNr"> 54 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;'&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L55" class="LineNr"> 55 </span>        <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen
<span id="L56" class="LineNr"> 56 </span>      <span class="Delimiter">}</span>
<span id="L57" class="LineNr"> 57 </span>    <span class="Delimiter">}</span>
<span id="L58" class="LineNr"> 58 </span>    index <span class="Special">&lt;-</span> increment
<span id="L59" class="LineNr"> 59 </span>    increment x
<span id="L60" class="LineNr"> 60 </span>    <span class="PreProc">loop</span>
<span id="L61" class="LineNr"> 61 </span>  <span class="Delimiter">}</span>
<span id="L62" class="LineNr"> 62 </span>  <span class="muComment"># if any assertions failed, count the test as failed</span>
<span id="L63" class="LineNr"> 63 </span>  compare failure-count, <span class="Constant">0</span>
<span id="L64" class="LineNr"> 64 </span>  <span class="Delimiter">{</span>
<span id="L65" class="LineNr"> 65 </span>    <span class="PreProc">break-if-=</span>
<span id="L66" class="LineNr"> 66 </span>    <a href='104test.subx.html#L5'>count-test-failure</a>
<span id="L67" class="LineNr"> 67 </span>    <span class="PreProc">return</span>
<span id="L68" class="LineNr"> 68 </span>  <span class="Delimiter">}</span>
<span id="L69" class="LineNr"> 69 </span>  <span class="muComment"># otherwise print a &quot;.&quot;</span>
<span id="L70" class="LineNr"> 70 </span>  <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;.&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L71" class="LineNr"> 71 </span><span class="Delimiter">}</span>
<span id="L72" class="LineNr"> 72 </span>
<span id="L73" class="LineNr"> 73 </span><span class="muComment"># various variants by screen-cell attribute; spaces in the 'expected' data should not match the attribute</span>
<span id="L74" class="LineNr"> 74 </span>
<span id="L75" class="LineNr"> 75 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), fg: int, y: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span>
<span id="L76" class="LineNr"> 76 </span>  <a href='504test-screen.mu.html#L79'>check-screen-row-in-color-from</a> <a href='500fake-screen.mu.html#L16'>screen</a>, fg, y, <span class="Constant">0</span>/x, expected, msg
<span id="L77" class="LineNr"> 77 </span><span class="Delimiter">}</span>
<span id="L78" class="LineNr"> 78 </span>
<span id="L79" class="LineNr"> 79 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L79'>check-screen-row-in-color-from</a></span> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), fg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span>
<span id="L80" class="LineNr"> 80 </span>  <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special">&lt;-</span> copy _screen
<span id="L81" class="LineNr"> 81 </span>  <span class="PreProc">var</span> index/<span class="muRegEcx">ecx</span>: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L244'>screen-cell-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, x, y
<span id="L82" class="LineNr"> 82 </span>  <span class="muComment"># compare 'expected' with the screen contents starting at 'index', grapheme by grapheme</span>
<span id="L83" class="LineNr"> 83 </span>  <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>)
<span id="L84" class="LineNr"> 84 </span>  <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special">&lt;-</span> address e
<span id="L85" class="LineNr"> 85 </span>  <a href='108write.subx.html#L11'>write</a> e-addr, expected
<span id="L86" class="LineNr"> 86 </span>  <span class="Delimiter">{</span>
<span id="L87" class="LineNr"> 87 </span>    <span class="PreProc">var</span> done?/eax: boolean <span class="Special">&lt;-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr
<span id="L88" class="LineNr"> 88 </span>    compare done?, <span class="Constant">0</span>
<span id="L89" class="LineNr"> 89 </span>    <span class="PreProc">break-if-!=</span>
<span id="L90" class="LineNr"> 90 </span>    <span class="Delimiter">{</span>
<span id="L91" class="LineNr"> 91 </span>      <span class="PreProc">var</span> unused?/eax: boolean <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L513'>screen-cell-unused-at-index?</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L92" class="LineNr"> 92 </span>      compare unused?, <span class="Constant">0</span>/false
<span id="L93" class="LineNr"> 93 </span>      <span class="PreProc">break-if-!=</span>
<span id="L94" class="LineNr"> 94 </span>      <span class="PreProc">var</span> _c/eax: code-point <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L531'>screen-code-point-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L95" class="LineNr"> 95 </span>      <span class="PreProc">var</span> c/<span class="muRegEbx">ebx</span>: code-point <span class="Special">&lt;-</span> copy _c
<span id="L96" class="LineNr"> 96 </span>      <span class="PreProc">var</span> expected-grapheme/eax: grapheme <span class="Special">&lt;-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> e-addr
<span id="L97" class="LineNr"> 97 </span>      <span class="PreProc">var</span> _expected-code-point/eax: code-point <span class="Special">&lt;-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> expected-grapheme
<span id="L98" class="LineNr"> 98 </span>      <span class="PreProc">var</span> expected-code-point/<span class="muRegEdi">edi</span>: code-point <span class="Special">&lt;-</span> copy _expected-code-point
<span id="L99" class="LineNr"> 99 </span>      $check-screen-row-in-color-from:compare-cells: <span class="Delimiter">{</span>
<span id="L100" class="LineNr">100 </span>        <span class="muComment"># if expected-code-point is space, null grapheme is also ok</span>
<span id="L101" class="LineNr">101 </span>        <span class="Delimiter">{</span>
<span id="L102" class="LineNr">102 </span>          compare expected-code-point, <span class="Constant">0x20</span>
<span id="L103" class="LineNr">103 </span>          <span class="PreProc">break-if-!=</span>
<span id="L104" class="LineNr">104 </span>          compare c, <span class="Constant">0</span>
<span id="L105" class="LineNr">105 </span>          <span class="PreProc">break-if-=</span> $check-screen-row-in-color-from:compare-cells
<span id="L106" class="LineNr">106 </span>        <span class="Delimiter">}</span>
<span id="L107" class="LineNr">107 </span>        <span class="muComment"># if expected-code-point is space, a different color is ok</span>
<span id="L108" class="LineNr">108 </span>        <span class="Delimiter">{</span>
<span id="L109" class="LineNr">109 </span>          compare expected-code-point, <span class="Constant">0x20</span>
<span id="L110" class="LineNr">110 </span>          <span class="PreProc">break-if-!=</span>
<span id="L111" class="LineNr">111 </span>          <span class="PreProc">var</span> color/eax: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L549'>screen-color-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L112" class="LineNr">112 </span>          compare color, fg
<span id="L113" class="LineNr">113 </span>          <span class="PreProc">break-if-!=</span> $check-screen-row-in-color-from:compare-cells
<span id="L114" class="LineNr">114 </span>        <span class="Delimiter">}</span>
<span id="L115" class="LineNr">115 </span>        <span class="muComment"># compare graphemes</span>
<span id="L116" class="LineNr">116 </span>        $check-screen-row-in-color-from:compare-graphemes: <span class="Delimiter">{</span>
<span id="L117" class="LineNr">117 </span>          <span class="muComment"># if (c == expected-code-point) print &quot;.&quot;</span>
<span id="L118" class="LineNr">118 </span>          compare c, expected-code-point
<span id="L119" class="LineNr">119 </span>          <span class="Delimiter">{</span>
<span id="L120" class="LineNr">120 </span>            <span class="PreProc">break-if-!=</span>
<span id="L121" class="LineNr">121 </span>            <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;.&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L122" class="LineNr">122 </span>            <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-graphemes
<span id="L123" class="LineNr">123 </span>          <span class="Delimiter">}</span>
<span id="L124" class="LineNr">124 </span>          <span class="muComment"># otherwise print an error</span>
<span id="L125" class="LineNr">125 </span>          <a href='104test.subx.html#L5'>count-test-failure</a>
<span id="L126" class="LineNr">126 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L127" class="LineNr">127 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;: expected '&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L128" class="LineNr">128 </span>          <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg
<span id="L129" class="LineNr">129 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;' at (&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L130" class="LineNr">130 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L131" class="LineNr">131 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;, &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L132" class="LineNr">132 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L133" class="LineNr">133 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;) but observed '&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L134" class="LineNr">134 </span>          <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, c, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg
<span id="L135" class="LineNr">135 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;'&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L136" class="LineNr">136 </span>          <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen
<span id="L137" class="LineNr">137 </span>        <span class="Delimiter">}</span>
<span id="L138" class="LineNr">138 </span>        $check-screen-row-in-color-from:compare-colors: <span class="Delimiter">{</span>
<span id="L139" class="LineNr">139 </span>          <span class="PreProc">var</span> color/eax: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L549'>screen-color-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L140" class="LineNr">140 </span>          compare fg, color
<span id="L141" class="LineNr">141 </span>          <span class="Delimiter">{</span>
<span id="L142" class="LineNr">142 </span>            <span class="PreProc">break-if-!=</span>
<span id="L143" class="LineNr">143 </span>            <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;.&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L144" class="LineNr">144 </span>            <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-colors
<span id="L145" class="LineNr">145 </span>          <span class="Delimiter">}</span>
<span id="L146" class="LineNr">146 </span>          <span class="muComment"># otherwise print an error</span>
<span id="L147" class="LineNr">147 </span>          <a href='104test.subx.html#L5'>count-test-failure</a>
<span id="L148" class="LineNr">148 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L149" class="LineNr">149 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;: expected '&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L150" class="LineNr">150 </span>          <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg
<span id="L151" class="LineNr">151 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;' at (&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L152" class="LineNr">152 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L153" class="LineNr">153 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;, &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L154" class="LineNr">154 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L155" class="LineNr">155 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;) in color &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L156" class="LineNr">156 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, fg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L157" class="LineNr">157 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot; but observed color &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L158" class="LineNr">158 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L159" class="LineNr">159 </span>          <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen
<span id="L160" class="LineNr">160 </span>        <span class="Delimiter">}</span>
<span id="L161" class="LineNr">161 </span>      <span class="Delimiter">}</span>
<span id="L162" class="LineNr">162 </span>    <span class="Delimiter">}</span>
<span id="L163" class="LineNr">163 </span>    index <span class="Special">&lt;-</span> increment
<span id="L164" class="LineNr">164 </span>    increment x
<span id="L165" class="LineNr">165 </span>    <span class="PreProc">loop</span>
<span id="L166" class="LineNr">166 </span>  <span class="Delimiter">}</span>
<span id="L167" class="LineNr">167 </span><span class="Delimiter">}</span>
<span id="L168" class="LineNr">168 </span>
<span id="L169" class="LineNr">169 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L169'>check-screen-row-in-background-color</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), bg: int, y: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span>
<span id="L170" class="LineNr">170 </span>  <a href='504test-screen.mu.html#L173'>check-screen-row-in-background-color-from</a> <a href='500fake-screen.mu.html#L16'>screen</a>, bg, y, <span class="Constant">0</span>/x, expected, msg
<span id="L171" class="LineNr">171 </span><span class="Delimiter">}</span>
<span id="L172" class="LineNr">172 </span>
<span id="L173" class="LineNr">173 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L173'>check-screen-row-in-background-color-from</a></span> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), bg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span>
<span id="L174" class="LineNr">174 </span>  <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special">&lt;-</span> copy _screen
<span id="L175" class="LineNr">175 </span>  <span class="PreProc">var</span> index/<span class="muRegEcx">ecx</span>: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L244'>screen-cell-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, x, y
<span id="L176" class="LineNr">176 </span>  <span class="muComment"># compare 'expected' with the screen contents starting at 'index', grapheme by grapheme</span>
<span id="L177" class="LineNr">177 </span>  <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>)
<span id="L178" class="LineNr">178 </span>  <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special">&lt;-</span> address e
<span id="L179" class="LineNr">179 </span>  <a href='108write.subx.html#L11'>write</a> e-addr, expected
<span id="L180" class="LineNr">180 </span>  <span class="Delimiter">{</span>
<span id="L181" class="LineNr">181 </span>    <span class="PreProc">var</span> done?/eax: boolean <span class="Special">&lt;-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr
<span id="L182" class="LineNr">182 </span>    compare done?, <span class="Constant">0</span>
<span id="L183" class="LineNr">183 </span>    <span class="PreProc">break-if-!=</span>
<span id="L184" class="LineNr">184 </span>    <span class="Delimiter">{</span>
<span id="L185" class="LineNr">185 </span>      <span class="PreProc">var</span> unused?/eax: boolean <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L513'>screen-cell-unused-at-index?</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L186" class="LineNr">186 </span>      compare unused?, <span class="Constant">0</span>/false
<span id="L187" class="LineNr">187 </span>      <span class="PreProc">break-if-!=</span>
<span id="L188" class="LineNr">188 </span>      <span class="PreProc">var</span> _g/eax: code-point <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L531'>screen-code-point-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L189" class="LineNr">189 </span>      <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: code-point <span class="Special">&lt;-</span> copy _g
<span id="L190" class="LineNr">190 </span>      <span class="PreProc">var</span> expected-grapheme/eax: grapheme <span class="Special">&lt;-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> e-addr
<span id="L191" class="LineNr">191 </span>      <span class="PreProc">var</span> _expected-code-point/eax: code-point <span class="Special">&lt;-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> expected-grapheme
<span id="L192" class="LineNr">192 </span>      <span class="PreProc">var</span> expected-code-point/<span class="muRegEdi">edi</span>: code-point <span class="Special">&lt;-</span> copy _expected-code-point
<span id="L193" class="LineNr">193 </span>      $check-screen-row-in-background-color-from:compare-cells: <span class="Delimiter">{</span>
<span id="L194" class="LineNr">194 </span>        <span class="muComment"># if expected-code-point is space, null grapheme is also ok</span>
<span id="L195" class="LineNr">195 </span>        <span class="Delimiter">{</span>
<span id="L196" class="LineNr">196 </span>          compare expected-code-point, <span class="Constant">0x20</span>
<span id="L197" class="LineNr">197 </span>          <span class="PreProc">break-if-!=</span>
<span id="L198" class="LineNr">198 </span>          compare g, <span class="Constant">0</span>
<span id="L199" class="LineNr">199 </span>          <span class="PreProc">break-if-=</span> $check-screen-row-in-background-color-from:compare-cells
<span id="L200" class="LineNr">200 </span>        <span class="Delimiter">}</span>
<span id="L201" class="LineNr">201 </span>        <span class="muComment"># if expected-code-point is space, a different background-color is ok</span>
<span id="L202" class="LineNr">202 </span>        <span class="Delimiter">{</span>
<span id="L203" class="LineNr">203 </span>          compare expected-code-point, <span class="Constant">0x20</span>
<span id="L204" class="LineNr">204 </span>          <span class="PreProc">break-if-!=</span>
<span id="L205" class="LineNr">205 </span>          <span class="PreProc">var</span> background-color/eax: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L568'>screen-background-color-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L206" class="LineNr">206 </span>          compare background-color, bg
<span id="L207" class="LineNr">207 </span>          <span class="PreProc">break-if-!=</span> $check-screen-row-in-background-color-from:compare-cells
<span id="L208" class="LineNr">208 </span>        <span class="Delimiter">}</span>
<span id="L209" class="LineNr">209 </span>        <span class="muComment"># compare graphemes</span>
<span id="L210" class="LineNr">210 </span>        $check-screen-row-in-background-color-from:compare-graphemes: <span class="Delimiter">{</span>
<span id="L211" class="LineNr">211 </span>          <span class="muComment"># if (g == expected-code-point) print &quot;.&quot;</span>
<span id="L212" class="LineNr">212 </span>          compare g, expected-code-point
<span id="L213" class="LineNr">213 </span>          <span class="Delimiter">{</span>
<span id="L214" class="LineNr">214 </span>            <span class="PreProc">break-if-!=</span>
<span id="L215" class="LineNr">215 </span>            <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;.&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L216" class="LineNr">216 </span>            <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes
<span id="L217" class="LineNr">217 </span>          <span class="Delimiter">}</span>
<span id="L218" class="LineNr">218 </span>          <span class="muComment"># otherwise print an error</span>
<span id="L219" class="LineNr">219 </span>          <a href='104test.subx.html#L5'>count-test-failure</a>
<span id="L220" class="LineNr">220 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L221" class="LineNr">221 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;: expected '&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L222" class="LineNr">222 </span>          <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg
<span id="L223" class="LineNr">223 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;' at (&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L224" class="LineNr">224 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L225" class="LineNr">225 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;, &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L226" class="LineNr">226 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L227" class="LineNr">227 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;) but observed '&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L228" class="LineNr">228 </span>          <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, g, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg
<span id="L229" class="LineNr">229 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;'&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L230" class="LineNr">230 </span>          <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen
<span id="L231" class="LineNr">231 </span>          <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes
<span id="L232" class="LineNr">232 </span>        <span class="Delimiter">}</span>
<span id="L233" class="LineNr">233 </span>        $check-screen-row-in-background-color-from:compare-background-colors: <span class="Delimiter">{</span>
<span id="L234" class="LineNr">234 </span>          <span class="PreProc">var</span> background-color/eax: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L568'>screen-background-color-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L235" class="LineNr">235 </span>          compare bg, background-color
<span id="L236" class="LineNr">236 </span>          <span class="Delimiter">{</span>
<span id="L237" class="LineNr">237 </span>            <span class="PreProc">break-if-!=</span>
<span id="L238" class="LineNr">238 </span>            <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;.&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L239" class="LineNr">239 </span>            <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-background-colors
<span id="L240" class="LineNr">240 </span>          <span class="Delimiter">}</span>
<span id="L241" class="LineNr">241 </span>          <span class="muComment"># otherwise print an error</span>
<span id="L242" class="LineNr">242 </span>          <a href='104test.subx.html#L5'>count-test-failure</a>
<span id="L243" class="LineNr">243 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L244" class="LineNr">244 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;: expected '&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L245" class="LineNr">245 </span>          <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg
<span id="L246" class="LineNr">246 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;' at (&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L247" class="LineNr">247 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L248" class="LineNr">248 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;, &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L249" class="LineNr">249 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L250" class="LineNr">250 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;) in background-color &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L251" class="LineNr">251 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L252" class="LineNr">252 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot; but observed background-color &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L253" class="LineNr">253 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L254" class="LineNr">254 </span>          <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen
<span id="L255" class="LineNr">255 </span>        <span class="Delimiter">}</span>
<span id="L256" class="LineNr">256 </span>      <span class="Delimiter">}</span>
<span id="L257" class="LineNr">257 </span>    <span class="Delimiter">}</span>
<span id="L258" class="LineNr">258 </span>    index <span class="Special">&lt;-</span> increment
<span id="L259" class="LineNr">259 </span>    increment x
<span id="L260" class="LineNr">260 </span>    <span class="PreProc">loop</span>
<span id="L261" class="LineNr">261 </span>  <span class="Delimiter">}</span>
<span id="L262" class="LineNr">262 </span><span class="Delimiter">}</span>
<span id="L263" class="LineNr">263 </span>
<span id="L264" class="LineNr">264 </span><span class="muComment"># helpers for checking just background color, not screen contents</span>
<span id="L265" class="LineNr">265 </span><span class="muComment"># these can validate bg for spaces</span>
<span id="L266" class="LineNr">266 </span>
<span id="L267" class="LineNr">267 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), bg: int, y: int, expected-bitmap: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span>
<span id="L268" class="LineNr">268 </span>  <a href='504test-screen.mu.html#L271'>check-background-color-in-screen-row-from</a> <a href='500fake-screen.mu.html#L16'>screen</a>, bg, y, <span class="Constant">0</span>/x, expected-bitmap, msg
<span id="L269" class="LineNr">269 </span><span class="Delimiter">}</span>
<span id="L270" class="LineNr">270 </span>
<span id="L271" class="LineNr">271 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L271'>check-background-color-in-screen-row-from</a></span> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), bg: int, y: int, x: int, expected-bitmap: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span>
<span id="L272" class="LineNr">272 </span>  <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special">&lt;-</span> copy _screen
<span id="L273" class="LineNr">273 </span>  <span class="PreProc">var</span> failure-count: int
<span id="L274" class="LineNr">274 </span>  <span class="PreProc">var</span> index/<span class="muRegEcx">ecx</span>: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L244'>screen-cell-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, x, y
<span id="L275" class="LineNr">275 </span>  <span class="muComment"># compare background color where 'expected-bitmap' is a non-space</span>
<span id="L276" class="LineNr">276 </span>  <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>)
<span id="L277" class="LineNr">277 </span>  <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special">&lt;-</span> address e
<span id="L278" class="LineNr">278 </span>  <a href='108write.subx.html#L11'>write</a> e-addr, expected-bitmap
<span id="L279" class="LineNr">279 </span>  <span class="Delimiter">{</span>
<span id="L280" class="LineNr">280 </span>    <span class="PreProc">var</span> done?/eax: boolean <span class="Special">&lt;-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr
<span id="L281" class="LineNr">281 </span>    compare done?, <span class="Constant">0</span>
<span id="L282" class="LineNr">282 </span>    <span class="PreProc">break-if-!=</span>
<span id="L283" class="LineNr">283 </span>    <span class="Delimiter">{</span>
<span id="L284" class="LineNr">284 </span>      <span class="PreProc">var</span> unused?/eax: boolean <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L513'>screen-cell-unused-at-index?</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L285" class="LineNr">285 </span>      compare unused?, <span class="Constant">0</span>/false
<span id="L286" class="LineNr">286 </span>      <span class="PreProc">break-if-!=</span>
<span id="L287" class="LineNr">287 </span>      <span class="PreProc">var</span> _expected-bit/eax: grapheme <span class="Special">&lt;-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> e-addr
<span id="L288" class="LineNr">288 </span>      <span class="PreProc">var</span> expected-bit/<span class="muRegEdi">edi</span>: grapheme <span class="Special">&lt;-</span> copy _expected-bit
<span id="L289" class="LineNr">289 </span>      $check-background-color-in-screen-row-from:compare-cells: <span class="Delimiter">{</span>
<span id="L290" class="LineNr">290 </span>        <span class="PreProc">var</span> background-color/eax: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L568'>screen-background-color-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index
<span id="L291" class="LineNr">291 </span>        <span class="muComment"># if expected-bit is space, assert that background is NOT bg</span>
<span id="L292" class="LineNr">292 </span>        compare expected-bit, <span class="Constant">0x20</span>
<span id="L293" class="LineNr">293 </span>        <span class="Delimiter">{</span>
<span id="L294" class="LineNr">294 </span>          <span class="PreProc">break-if-!=</span>
<span id="L295" class="LineNr">295 </span>          compare background-color, bg
<span id="L296" class="LineNr">296 </span>          <span class="PreProc">break-if-!=</span> $check-background-color-in-screen-row-from:compare-cells
<span id="L297" class="LineNr">297 </span>          increment failure-count
<span id="L298" class="LineNr">298 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L299" class="LineNr">299 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;: expected (&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L300" class="LineNr">300 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L301" class="LineNr">301 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;, &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L302" class="LineNr">302 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L303" class="LineNr">303 </span>          <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;) to not be in background-color &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L304" class="LineNr">304 </span>          <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L305" class="LineNr">305 </span>          <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen
<span id="L306" class="LineNr">306 </span>          <span class="PreProc">break</span> $check-background-color-in-screen-row-from:compare-cells
<span id="L307" class="LineNr">307 </span>        <span class="Delimiter">}</span>
<span id="L308" class="LineNr">308 </span>        <span class="muComment"># otherwise assert that background IS bg</span>
<span id="L309" class="LineNr">309 </span>        compare background-color, bg
<span id="L310" class="LineNr">310 </span>        <span class="PreProc">break-if-=</span> $check-background-color-in-screen-row-from:compare-cells
<span id="L311" class="LineNr">311 </span>        increment failure-count
<span id="L312" class="LineNr">312 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L313" class="LineNr">313 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;: expected (&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L314" class="LineNr">314 </span>        <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L315" class="LineNr">315 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;, &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L316" class="LineNr">316 </span>        <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L317" class="LineNr">317 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;) in background-color &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L318" class="LineNr">318 </span>        <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L319" class="LineNr">319 </span>        <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot; but observed background-color &quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L320" class="LineNr">320 </span>        <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L321" class="LineNr">321 </span>        <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen
<span id="L322" class="LineNr">322 </span>      <span class="Delimiter">}</span>
<span id="L323" class="LineNr">323 </span>    <span class="Delimiter">}</span>
<span id="L324" class="LineNr">324 </span>    index <span class="Special">&lt;-</span> increment
<span id="L325" class="LineNr">325 </span>    increment x
<span id="L326" class="LineNr">326 </span>    <span class="PreProc">loop</span>
<span id="L327" class="LineNr">327 </span>  <span class="Delimiter">}</span>
<span id="L328" class="LineNr">328 </span>  <span class="muComment"># if any assertions failed, count the test as failed</span>
<span id="L329" class="LineNr">329 </span>  compare failure-count, <span class="Constant">0</span>
<span id="L330" class="LineNr">330 </span>  <span class="Delimiter">{</span>
<span id="L331" class="LineNr">331 </span>    <span class="PreProc">break-if-=</span>
<span id="L332" class="LineNr">332 </span>    <a href='104test.subx.html#L5'>count-test-failure</a>
<span id="L333" class="LineNr">333 </span>    <span class="PreProc">return</span>
<span id="L334" class="LineNr">334 </span>  <span class="Delimiter">}</span>
<span id="L335" class="LineNr">335 </span>  <span class="muComment"># otherwise print a &quot;.&quot;</span>
<span id="L336" class="LineNr">336 </span>  <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">&quot;.&quot;</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L337" class="LineNr">337 </span><span class="Delimiter">}</span>
<span id="L338" class="LineNr">338 </span>
<span id="L339" class="LineNr">339 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L339'>test-draw-single-grapheme</a></span> <span class="Delimiter">{</span>
<span id="L340" class="LineNr">340 </span>  <span class="PreProc">var</span> _screen: <a href='500fake-screen.mu.html#L16'>screen</a>
<span id="L341" class="LineNr">341 </span>  <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special">&lt;-</span> address _screen
<span id="L342" class="LineNr">342 </span>  <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">0</span>/no-pixel-graphics
<span id="L343" class="LineNr">343 </span>  <span class="PreProc">var</span> dummy/eax: int <span class="Special">&lt;-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x61</span>/a, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/fg, <span class="Constant">2</span>/bg
<span id="L344" class="LineNr">344 </span>  <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">&quot;a&quot;</span>, <span class="Constant">&quot;F - test-draw-single-grapheme&quot;</span>  <span class="muComment"># top-left corner of the screen</span>
<span id="L345" class="LineNr">345 </span>  <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">&quot;a&quot;</span>, <span class="Constant">&quot;F - test-draw-single-grapheme-fg&quot;</span>
<span id="L346" class="LineNr">346 </span>  <a href='504test-screen.mu.html#L169'>check-screen-row-in-background-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">&quot;a&quot;</span>, <span class="Constant">&quot;F - test-draw-single-grapheme-bg&quot;</span>
<span id="L347" class="LineNr">347 </span>  <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">&quot;x &quot;</span>, <span class="Constant">&quot;F - test-draw-single-grapheme-bg2&quot;</span>
<span id="L348" class="LineNr">348 </span><span class="Delimiter">}</span>
<span id="L349" class="LineNr">349 </span>
<span id="L350" class="LineNr">350 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L350'>test-draw-multiple-graphemes</a></span> <span class="Delimiter">{</span>
<span id="L351" class="LineNr">351 </span>  <span class="PreProc">var</span> _screen: <a href='500fake-screen.mu.html#L16'>screen</a>
<span id="L352" class="LineNr">352 </span>  <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special">&lt;-</span> address _screen
<span id="L353" class="LineNr">353 </span>  <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x10</span>/rows, <span class="Constant">4</span>/cols, <span class="Constant">0</span>/no-pixel-graphics
<span id="L354" class="LineNr">354 </span>  <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">&quot;Hello, 世界&quot;</span>, <span class="Constant">1</span>/fg, <span class="Constant">2</span>/bg
<span id="L355" class="LineNr">355 </span>  <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">&quot;Hello, 世界&quot;</span>, <span class="Constant">&quot;F - test-draw-multiple-graphemes&quot;</span>
<span id="L356" class="LineNr">356 </span>  <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">&quot;Hello, 世界&quot;</span>, <span class="Constant">&quot;F - test-draw-multiple-graphemes-fg&quot;</span>
<span id="L357" class="LineNr">357 </span>  <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">&quot;xxxxxxxxx &quot;</span>, <span class="Constant">&quot;F - test-draw-multiple-graphemes-bg2&quot;</span>
<span id="L358" class="LineNr">358 </span><span class="Delimiter">}</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->