terminfo.tests: two sanity tests

diff --git a/extra/terminfo/terminfo-tests.factor b/extra/terminfo/terminfo-tests.factor
new file mode 100644 (file)
index 0000000..c9cad51
--- /dev/null
+++ b/extra/terminfo/terminfo-tests.factor
@@ -0,0 +1,10 @@
+USING: sequences strings terminfo tools.test ;
+IN: terminfo.tests
+
+{ t } [
+    "vt102" terminfo-names member?
+] unit-test
+
+{ t } [
+    "vt102" terminfo-path string?
+] unit-test