From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 25 Jun 2022 14:56:36 +0000 (-0500)
Subject: ui.tools.inspector: actually test something
X-Git-Tag: 0.99~1349
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=667bb341dc99ccb78dd67832fa296a87936e51e9

ui.tools.inspector: actually test something
---

diff --git a/basis/ui/tools/inspector/inspector-tests.factor b/basis/ui/tools/inspector/inspector-tests.factor
index 7127d5d01a..b640a67b10 100644
--- a/basis/ui/tools/inspector/inspector-tests.factor
+++ b/basis/ui/tools/inspector/inspector-tests.factor
@@ -1,28 +1,6 @@
-USING: assocs formatting kernel math math.parser models
-sequences strings tools.test ui.tools.inspector unicode ;
+USING: kernel math models tools.test ui.tools.inspector ;
 
 { } [ \ + <model> <inspector-gadget> com-edit-slot ] unit-test
 
-! Make sure we can click around in the inspector
-{ } [
-    "abcdefg" [
-        swap [ dup number>string ] dip dup
-        dup unicode:printable? [ 1string ] [
-            dup 0xff <= [
-                H{
-                    { CHAR: \a "\\a" }
-                    { CHAR: \b "\\b" }
-                    { CHAR: \e "\\e" }
-                    { CHAR: \f "\\f" }
-                    { CHAR: \n "\\n" }
-                    { CHAR: \r "\\r" }
-                    { CHAR: \t "\\t" }
-                    { CHAR: \v "\\v" }
-                    { CHAR: \0 "\\0" }
-                } ?at [ "\\x%02x" sprintf ] unless
-            ] [
-                "\\u{%x}" sprintf
-            ] if
-        ] if slot-description boa
-    ] { } map-index-as drop
-] unit-test
\ No newline at end of file
+! Make sure we can click around in the inspector; map-index regression
+{ } [ "abcdefg" make-slot-descriptions drop ] unit-test