diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2020-06-22 18:32:01 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-06-22 18:32:01 +0300 |
| commit | 30ff2433b16dba2c4e36c6eda6f808c6f2cb46d1 (patch) | |
| tree | fae44fdb6ed9e62a20c0bdb047441bc55f23c771 /test/src/xfaces-tests.el | |
| parent | bea5eb77b3170203424179274bf26b9ce70de807 (diff) | |
| download | emacs-30ff2433b16dba2c4e36c6eda6f808c6f2cb46d1.tar.gz emacs-30ff2433b16dba2c4e36c6eda6f808c6f2cb46d1.tar.bz2 emacs-30ff2433b16dba2c4e36c6eda6f808c6f2cb46d1.zip | |
Minor improvements as followup to recent RGB string-parsing change
* src/xfaces.c (Finternal_color_values_from_color_spec): Rename to...
(Fcolor_values_from_color_spec): ...this. Callers changed.
Rename the argument to SPEC and improve the doc string.
(parse_color_spec, parse_float_color_comp, parse_hex_color_comp):
Improve commentary.
(parse_color_spec): Rename the argument S to SPEC.
* etc/NEWS: Mention 'color-values-from-color-spec'.
Diffstat (limited to 'test/src/xfaces-tests.el')
| -rw-r--r-- | test/src/xfaces-tests.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/test/src/xfaces-tests.el b/test/src/xfaces-tests.el index 34cda07e5b4..bde3a354229 100644 --- a/test/src/xfaces-tests.el +++ b/test/src/xfaces-tests.el @@ -25,26 +25,26 @@ (color-distance "#ffffff" "#222222")))) (ert-deftest xfaces-internal-color-values-from-color-spec () - (should (equal (internal-color-values-from-color-spec "#f05") + (should (equal (color-values-from-color-spec "#f05") '(#xffff #x0000 #x5555))) - (should (equal (internal-color-values-from-color-spec "#1fb0C5") + (should (equal (color-values-from-color-spec "#1fb0C5") '(#x1f1f #xb0b0 #xc5c5))) - (should (equal (internal-color-values-from-color-spec "#1f8b0AC5e") + (should (equal (color-values-from-color-spec "#1f8b0AC5e") '(#x1f81 #xb0aa #xc5eb))) - (should (equal (internal-color-values-from-color-spec "#1f83b0ADC5e2") + (should (equal (color-values-from-color-spec "#1f83b0ADC5e2") '(#x1f83 #xb0ad #xc5e2))) - (should (equal (internal-color-values-from-color-spec "#1f83b0ADC5e2g") nil)) - (should (equal (internal-color-values-from-color-spec "#1f83b0ADC5e20") nil)) - (should (equal (internal-color-values-from-color-spec "#12345") nil)) - (should (equal (internal-color-values-from-color-spec "rgb:f/23/28a") + (should (equal (color-values-from-color-spec "#1f83b0ADC5e2g") nil)) + (should (equal (color-values-from-color-spec "#1f83b0ADC5e20") nil)) + (should (equal (color-values-from-color-spec "#12345") nil)) + (should (equal (color-values-from-color-spec "rgb:f/23/28a") '(#xffff #x2323 #x28a2))) - (should (equal (internal-color-values-from-color-spec "rgb:1234/5678/09ab") + (should (equal (color-values-from-color-spec "rgb:1234/5678/09ab") '(#x1234 #x5678 #x09ab))) - (should (equal (internal-color-values-from-color-spec "rgb:0//0") nil)) - (should (equal (internal-color-values-from-color-spec "rgbi:0/0.5/0.1") + (should (equal (color-values-from-color-spec "rgb:0//0") nil)) + (should (equal (color-values-from-color-spec "rgbi:0/0.5/0.1") '(0 32768 6554))) - (should (equal (internal-color-values-from-color-spec "rgbi:1e-3/1.0e-2/1e0") + (should (equal (color-values-from-color-spec "rgbi:1e-3/1.0e-2/1e0") '(66 655 65535))) - (should (equal (internal-color-values-from-color-spec "rgbi:0/0.5/10") nil))) + (should (equal (color-values-from-color-spec "rgbi:0/0.5/10") nil))) (provide 'xfaces-tests) |