057immutable.cc « 2.vm « archive - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: 16c2a6abf8710ba4cc4b64af9f9491e5e5ca7939 (plain) (tree)

5203ba0c ^

8bd3f99f ^

5203ba0c ^

4a943d4e ^

5203ba0c ^

4a943d4e ^

5203ba0c ^

d8509b41 ^

5203ba0c ^

c442a5ad ^

5203ba0c ^

6c96a437 ^

5203ba0c ^

5203ba0c ^

2caaa7f1 ^

5203ba0c ^

6c96a437 ^

5203ba0c ^

f222051e ^

5203ba0c ^

2caaa7f1 ^

5203ba0c ^

6c96a437 ^

5203ba0c ^

dc16b228 ^

f222051e generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-18 08:54:32 +0000

an class="nt">span>: grapheme <- copy _expected-grapheme 181 $check-screen-row-in-background-color-from:compare-cells: { 182 # if expected-grapheme is space, null grapheme is also ok 183 { 184 compare expected-grapheme, 0x20 185 break-if-!= 186 compare g, 0 187 break-if-= $check-screen-row-in-background-color-from:compare-cells 188 } 189 # if expected-grapheme is space, a different background-color is ok 190 { 191 compare expected-grapheme, 0x20 192 break-if-!= 193 var background-color/eax: int <- <a href='500fake-screen.mu.html#L471'>screen-background-color-at-idx</a> <a href='500fake-screen.mu.html#L14'>screen</a>, idx 194 compare background-color, bg 195 break-if-!= $check-screen-row-in-background-color-from:compare-cells 196 } 197 # compare graphemes 198 $check-screen-row-in-background-color-from:compare-graphemes: { 199 # if (g == expected-grapheme) print "." 200 compare g, expected-grapheme 201 { 202 break-if-!= 203 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ".", 3/fg/cyan, 0/bg 204 break $check-screen-row-in-background-color-from:compare-graphemes 205 } 206 # otherwise print an error 207 <a href='104test.subx.html#L5'>count-test-failure</a> 208 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, msg, 3/fg/cyan, 0/bg 209 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ": expected '", 3/fg/cyan, 0/bg 210 <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> 0/screen, expected-grapheme, 3/cyan, 0/bg 211 <a href='501draw-text.mu.html#L242'>move-cursor-rightward-and-downward</a> 0/screen, 0/xmin, 0x80/xmax=screen-width 212 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, "' at (", 3/fg/cyan, 0/bg 213 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, x, 3/fg/cyan, 0/bg 214 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ", ", 3/fg/cyan, 0/bg 215 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, y, 3/fg/cyan, 0/bg 216 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ") but observed '", 3/fg/cyan, 0/bg 217 <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> 0/screen, g, 3/cyan, 0/bg 218 <a href='501draw-text.mu.html#L242'>move-cursor-rightward-and-downward</a> 0/screen, 0/xmin, 0x80/xmax=screen-width 219 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, "'", 3/fg/cyan, 0/bg 220 <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> 0/screen 221 break $check-screen-row-in-background-color-from:compare-graphemes 222 } 223 $check-screen-row-in-background-color-from:compare-background-colors: { 224 var background-color/eax: int <- <a href='500fake-screen.mu.html#L471'>screen-background-color-at-idx</a> <a href='500fake-screen.mu.html#L14'>screen</a>, idx 225 compare bg, background-color 226 { 227 break-if-!= 228 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ".", 3/fg/cyan, 0/bg 229 break $check-screen-row-in-background-color-from:compare-background-colors 230 } 231 # otherwise print an error 232 <a href='104test.subx.html#L5'>count-test-failure</a> 233 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, msg, 3/fg/cyan, 0/bg 234 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ": expected '", 3/fg/cyan, 0/bg 235 <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> 0/screen, expected-grapheme, 3/cyan, 0/bg 236 <a href='501draw-text.mu.html#L242'>move-cursor-rightward-and-downward</a> 0/screen, 0/xmin, 0x80/xmax=screen-width 237 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, "' at (", 3/fg/cyan, 0/bg 238 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, x, 3/fg/cyan, 0/bg 239 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ", ", 3/fg/cyan, 0/bg 240 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, y, 3/fg/cyan, 0/bg 241 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ") in background-color ", 3/fg/cyan, 0/bg 242 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, bg, 3/fg/cyan, 0/bg 243 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, " but observed background-color ", 3/fg/cyan, 0/bg 244 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, background-color, 3/fg/cyan, 0/bg 245 <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> 0/screen 246 } 247 } 248 idx <- increment 249 increment x 250 loop 251 } 252 } 253 254 # helpers for checking just background color, not screen contents 255 # these can validate bg for spaces 256 257 fn <a href='504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), bg: int, y: int, expected-bitmap: (addr array byte), msg: (addr array byte) { 258 <a href='504test-screen.mu.html#L261'>check-background-color-in-screen-row-from</a> <a href='500fake-screen.mu.html#L14'>screen</a>, bg, y, 0/x, expected-bitmap, msg 259 } 260 261 fn <a href='504test-screen.mu.html#L261'>check-background-color-in-screen-row-from</a> screen-on-stack: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), bg: int, y: int, x: int, expected-bitmap: (addr array byte), msg: (addr array byte) { 262 var <a href='500fake-screen.mu.html#L14'>screen</a>/esi: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <- copy screen-on-stack 263 var failure-count: int 264 var idx/ecx: int <- <a href='500fake-screen.mu.html#L136'>screen-cell-index</a> <a href='500fake-screen.mu.html#L14'>screen</a>, x, y 265 # compare background color where 'expected-bitmap' is a non-space 266 var e: (stream byte 0x100) 267 var e-addr/edx: (addr stream byte) <- address e 268 <a href='108write.subx.html#L11'>write</a> e-addr, expected-bitmap 269 { 270 var done?/eax: boolean <- <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr 271 compare done?, 0 272 break-if-!= 273 var _expected-bit/eax: grapheme <- <a href='403unicode.mu.html#L92'>read-grapheme</a> e-addr 274 var expected-bit/edi: grapheme <- copy _expected-bit 275 $check-background-color-in-screen-row-from:compare-cells: { 276 var background-color/eax: int <- <a href='500fake-screen.mu.html#L471'>screen-background-color-at-idx</a> <a href='500fake-screen.mu.html#L14'>screen</a>, idx 277 # if expected-bit is space, assert that background is NOT bg 278 compare expected-bit, 0x20 279 { 280 break-if-!= 281 compare background-color, bg 282 break-if-!= $check-background-color-in-screen-row-from:compare-cells 283 increment failure-count 284 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, msg, 3/fg/cyan, 0/bg 285 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ": expected (", 3/fg/cyan, 0/bg 286 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, x, 3/fg/cyan, 0/bg 287 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ", ", 3/fg/cyan, 0/bg 288 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, y, 3/fg/cyan, 0/bg 289 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ") to not be in background-color ", 3/fg/cyan, 0/bg 290 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, bg, 3/fg/cyan, 0/bg 291 <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> 0/screen 292 break $check-background-color-in-screen-row-from:compare-cells 293 } 294 # otherwise assert that background IS bg 295 compare background-color, bg 296 break-if-= $check-background-color-in-screen-row-from:compare-cells 297 increment failure-count 298 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, msg, 3/fg/cyan, 0/bg 299 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ": expected (", 3/fg/cyan, 0/bg 300 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, x, 3/fg/cyan, 0/bg 301 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ", ", 3/fg/cyan, 0/bg 302 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, y, 3/fg/cyan, 0/bg 303 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ") in background-color ", 3/fg/cyan, 0/bg 304 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, bg, 3/fg/cyan, 0/bg 305 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, " but observed background-color ", 3/fg/cyan, 0/bg 306 <a href='501draw-text.mu.html#L333'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, background-color, 3/fg/cyan, 0/bg 307 <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> 0/screen 308 } 309 idx <- increment 310 increment x 311 loop 312 } 313 # if any assertions failed, count the test as failed 314 compare failure-count, 0 315 { 316 break-if-= 317 <a href='104test.subx.html#L5'>count-test-failure</a> 318 return 319 } 320 # otherwise print a "." 321 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, ".", 3/fg/cyan, 0/bg 322 } 323 324 fn <a href='504test-screen.mu.html#L324'>test-draw-single-grapheme</a> { 325 var screen-on-stack: <a href='500fake-screen.mu.html#L14'>screen</a> 326 var <a href='500fake-screen.mu.html#L14'>screen</a>/esi: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 327 <a href='500fake-screen.mu.html#L33'>initialize-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 5, 4, 0/no-pixel-graphics 328 <a href='500fake-screen.mu.html#L130'>draw-code-point</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 0x61/a, 0/x, 0/y, 1/fg, 2/bg 329 <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 0/y, "a", "F - test-draw-single-grapheme" # top-left corner of the screen 330 <a href='504test-screen.mu.html#L71'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 1/fg, 0/y, "a", "F - test-draw-single-grapheme-fg" 331 <a href='504test-screen.mu.html#L162'>check-screen-row-in-background-color</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 2/bg, 0/y, "a", "F - test-draw-single-grapheme-bg" 332 <a href='504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 2/bg, 0/y, "x ", "F - test-draw-single-grapheme-bg2" 333 } 334 335 fn <a href='504test-screen.mu.html#L335'>test-draw-multiple-graphemes</a> { 336 var screen-on-stack: <a href='500fake-screen.mu.html#L14'>screen</a> 337 var <a href='500fake-screen.mu.html#L14'>screen</a>/esi: (addr <a href='500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 338 <a href='500fake-screen.mu.html#L33'>initialize-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 0x10/rows, 4/cols, 0/no-pixel-graphics 339 <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, "Hello, 世界", 1/fg, 2/bg 340 <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 0/y, "Hello, 世界", "F - test-draw-multiple-graphemes" 341 <a href='504test-screen.mu.html#L71'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 1/fg, 0/y, "Hello, 世界", "F - test-draw-multiple-graphemes-fg" 342 <a href='504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L14'>screen</a>, 2/bg, 0/y, "xxxxxxxxx ", "F - test-draw-multiple-graphemes-bg2" 343 } </pre> </body> </html>