Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding missing ; in string hex escapes required by r7rs

Browse source
This commit is contained in:
Alex Shinn 2016-03-19 15:26:10 +09:00
parent 0251d14653
commit 2e0aa1b36d
1 changed files with 38 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

76
lib/chibi/term/ansi-test.sld
View file

@ -92,18 +92,18 @@
(test-error (rgb-escape 6 0 0))
(test-error (rgb-escape 0 6 0))
(test-error (rgb-escape 0 0 6))
(test-escape-procedure (lambda () (rgb-escape 0 0 0)) "\x1B[38;5;16m")
(test-escape-procedure (lambda () (rgb-escape 5 0 0)) "\x1B[38;5;196m")
(test-escape-procedure (lambda () (rgb-escape 0 5 0)) "\x1B[38;5;46m")
(test-escape-procedure (lambda () (rgb-escape 0 0 5)) "\x1B[38;5;21m")
(test-escape-procedure (lambda () (rgb-escape 1 1 1)) "\x1B[38;5;59m")
(test-escape-procedure (lambda () (rgb-escape 2 2 2)) "\x1B[38;5;102m")
(test-escape-procedure (lambda () (rgb-escape 3 3 3)) "\x1B[38;5;145m")
(test-escape-procedure (lambda () (rgb-escape 4 4 4)) "\x1B[38;5;188m")
(test-escape-procedure (lambda () (rgb-escape 5 5 5)) "\x1B[38;5;231m")
(test-escape-procedure (lambda () (rgb-escape 1 3 5)) "\x1B[38;5;75m")
(test-escape-procedure (lambda () (rgb-escape 5 1 3)) "\x1B[38;5;205m")
(test-escape-procedure (lambda () (rgb-escape 3 5 1)) "\x1B[38;5;155m")
(test-escape-procedure (lambda () (rgb-escape 0 0 0)) "\x1B;[38;5;16m")
(test-escape-procedure (lambda () (rgb-escape 5 0 0)) "\x1B;[38;5;196m")
(test-escape-procedure (lambda () (rgb-escape 0 5 0)) "\x1B;[38;5;46m")
(test-escape-procedure (lambda () (rgb-escape 0 0 5)) "\x1B;[38;5;21m")
(test-escape-procedure (lambda () (rgb-escape 1 1 1)) "\x1B;[38;5;59m")
(test-escape-procedure (lambda () (rgb-escape 2 2 2)) "\x1B;[38;5;102m")
(test-escape-procedure (lambda () (rgb-escape 3 3 3)) "\x1B;[38;5;145m")
(test-escape-procedure (lambda () (rgb-escape 4 4 4)) "\x1B;[38;5;188m")
(test-escape-procedure (lambda () (rgb-escape 5 5 5)) "\x1B;[38;5;231m")
(test-escape-procedure (lambda () (rgb-escape 1 3 5)) "\x1B;[38;5;75m")
(test-escape-procedure (lambda () (rgb-escape 5 1 3)) "\x1B;[38;5;205m")
(test-escape-procedure (lambda () (rgb-escape 3 5 1)) "\x1B;[38;5;155m")
(test-assert (procedure? gray-escape))
(test-error (gray-escape))
@ -111,9 +111,9 @@
(test-error (gray-escape 0.0))
(test-error (gray-escape -1))
(test-error (gray-escape 24))
(test-escape-procedure (lambda () (gray-escape 0)) "\x1B[38;5;232m")
(test-escape-procedure (lambda () (gray-escape 23)) "\x1B[38;5;255m")
(test-escape-procedure (lambda () (gray-escape 12)) "\x1B[38;5;244m")
(test-escape-procedure (lambda () (gray-escape 0)) "\x1B;[38;5;232m")
(test-escape-procedure (lambda () (gray-escape 23)) "\x1B;[38;5;255m")
(test-escape-procedure (lambda () (gray-escape 12)) "\x1B;[38;5;244m")
(test-wrap-procedure black "\x1b;[30mFOO\x1b;[39m")
(test-wrap-procedure red "\x1b;[31mFOO\x1b;[39m")
@ -123,10 +123,10 @@
(test-wrap-procedure cyan "\x1b;[36mFOO\x1b;[39m")
(test-wrap-procedure magenta "\x1b;[35mFOO\x1b;[39m")
(test-wrap-procedure white "\x1b;[37mFOO\x1b;[39m")
(test-wrap-procedure (rgb 0 0 0) "\x1B[38;5;16mFOO\x1b;[39m")
(test-wrap-procedure (rgb 5 5 5) "\x1B[38;5;231mFOO\x1b;[39m")
(test-wrap-procedure (gray 0) "\x1B[38;5;232mFOO\x1b;[39m")
(test-wrap-procedure (gray 23) "\x1B[38;5;255mFOO\x1b;[39m")
(test-wrap-procedure (rgb 0 0 0) "\x1B;[38;5;16mFOO\x1b;[39m")
(test-wrap-procedure (rgb 5 5 5) "\x1B;[38;5;231mFOO\x1b;[39m")
(test-wrap-procedure (gray 0) "\x1B;[38;5;232mFOO\x1b;[39m")
(test-wrap-procedure (gray 23) "\x1B;[38;5;255mFOO\x1b;[39m")
(test-escape-procedure black-background-escape "\x1b;[40m")
(test-escape-procedure red-background-escape "\x1b;[41m")
@ -153,29 +153,29 @@
(test-error (rgb-background-escape 0 6 0))
(test-error (rgb-background-escape 0 0 6))
(test-escape-procedure
(lambda () (rgb-background-escape 0 0 0)) "\x1B[48;5;16m")
(lambda () (rgb-background-escape 0 0 0)) "\x1B;[48;5;16m")
(test-escape-procedure
(lambda () (rgb-background-escape 5 0 0)) "\x1B[48;5;196m")
(lambda () (rgb-background-escape 5 0 0)) "\x1B;[48;5;196m")
(test-escape-procedure
(lambda () (rgb-background-escape 0 5 0)) "\x1B[48;5;46m")
(lambda () (rgb-background-escape 0 5 0)) "\x1B;[48;5;46m")
(test-escape-procedure
(lambda () (rgb-background-escape 0 0 5)) "\x1B[48;5;21m")
(lambda () (rgb-background-escape 0 0 5)) "\x1B;[48;5;21m")
(test-escape-procedure
(lambda () (rgb-background-escape 1 1 1)) "\x1B[48;5;59m")
(lambda () (rgb-background-escape 1 1 1)) "\x1B;[48;5;59m")
(test-escape-procedure
(lambda () (rgb-background-escape 2 2 2)) "\x1B[48;5;102m")
(lambda () (rgb-background-escape 2 2 2)) "\x1B;[48;5;102m")
(test-escape-procedure
(lambda () (rgb-background-escape 3 3 3)) "\x1B[48;5;145m")
(lambda () (rgb-background-escape 3 3 3)) "\x1B;[48;5;145m")
(test-escape-procedure
(lambda () (rgb-background-escape 4 4 4)) "\x1B[48;5;188m")
(lambda () (rgb-background-escape 4 4 4)) "\x1B;[48;5;188m")
(test-escape-procedure
(lambda () (rgb-background-escape 5 5 5)) "\x1B[48;5;231m")
(lambda () (rgb-background-escape 5 5 5)) "\x1B;[48;5;231m")
(test-escape-procedure
(lambda () (rgb-background-escape 1 3 5)) "\x1B[48;5;75m")
(lambda () (rgb-background-escape 1 3 5)) "\x1B;[48;5;75m")
(test-escape-procedure
(lambda () (rgb-background-escape 5 1 3)) "\x1B[48;5;205m")
(lambda () (rgb-background-escape 5 1 3)) "\x1B;[48;5;205m")
(test-escape-procedure
(lambda () (rgb-background-escape 3 5 1)) "\x1B[48;5;155m")
(lambda () (rgb-background-escape 3 5 1)) "\x1B;[48;5;155m")
(test-assert (procedure? gray-background-escape))
(test-error (gray-background-escape))
@ -184,11 +184,11 @@
(test-error (gray-background-escape -1))
(test-error (gray-background-escape 24))
(test-escape-procedure
(lambda () (gray-background-escape 0)) "\x1B[48;5;232m")
(lambda () (gray-background-escape 0)) "\x1B;[48;5;232m")
(test-escape-procedure
(lambda () (gray-background-escape 23)) "\x1B[48;5;255m")
(lambda () (gray-background-escape 23)) "\x1B;[48;5;255m")
(test-escape-procedure
(lambda () (gray-background-escape 12)) "\x1B[48;5;244m")
(lambda () (gray-background-escape 12)) "\x1B;[48;5;244m")
(test-wrap-procedure black-background "\x1b;[40mFOO\x1b;[49m")
(test-wrap-procedure red-background "\x1b;[41mFOO\x1b;[49m")
@ -198,10 +198,10 @@
(test-wrap-procedure cyan-background "\x1b;[46mFOO\x1b;[49m")
(test-wrap-procedure magenta-background "\x1b;[45mFOO\x1b;[49m")
(test-wrap-procedure white-background "\x1b;[47mFOO\x1b;[49m")
(test-wrap-procedure (rgb-background 0 0 0) "\x1B[48;5;16mFOO\x1b;[49m")
(test-wrap-procedure (rgb-background 5 5 5) "\x1B[48;5;231mFOO\x1b;[49m")
(test-wrap-procedure (gray-background 0) "\x1B[48;5;232mFOO\x1b;[49m")
(test-wrap-procedure (gray-background 23) "\x1B[48;5;255mFOO\x1b;[49m")
(test-wrap-procedure (rgb-background 0 0 0) "\x1B;[48;5;16mFOO\x1b;[49m")
(test-wrap-procedure (rgb-background 5 5 5) "\x1B;[48;5;231mFOO\x1b;[49m")
(test-wrap-procedure (gray-background 0) "\x1B;[48;5;232mFOO\x1b;[49m")
(test-wrap-procedure (gray-background 23) "\x1B;[48;5;255mFOO\x1b;[49m")
(test-escape-procedure bold-escape "\x1b;[1m")
(test-escape-procedure reset-bold-escape "\x1b;[22m")