added stub unit test files and switched Draw.ml over to use the Cfg font setting

diff --git a/Makefile b/Makefile
index da529fd4fb8926d200a27ddff718bb22921cfda7..5a47793934f5c4a5dd0c3552c0efa109a6197e66 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -42,7 +42,9 @@ LIBOBJS = \
 
 TESTOBJS = \
     tests/test.$(OBJEXT) \
+    tests/buf_tests.$(OBJEXT) \
     tests/rope_tests.$(OBJEXT) \
+    tests/misc_tests.$(OBJEXT) \
     tests/scrollmap_tests.$(OBJEXT)
 
 .PHONY: all clean docs

diff --git a/lib/cfg.ml b/lib/cfg.ml
index ea6b566cd69647e5b57b9501cb34a4ba9710ceb1..6a41fbf609f96a3797d3657fd231ad448869ab82 100644 (file)
--- a/lib/cfg.ml
+++ b/lib/cfg.ml
@@ -28,7 +28,7 @@ let cmd_tags = strvar "tide.ui.font"
 
 (* font settings *)
 let font = strvar "tide.ui.tags.edit"
-    "Liberation Mono:pixelsize=14:antialias=true:autohint=true"
+    "Liberation Sans:size=11:antialias=true:autohint=true"
 let line_spacing = intvar "tide.ui.line_spacing" 1
 
 (* user interface related options *)

diff --git a/lib/draw.ml b/lib/draw.ml
index b636ada43347cdab00f030460d23d28d20dc3065..61312234ef1516d4b6c5baa45dbea91aef4913c0 100644 (file)
--- a/lib/draw.ml
+++ b/lib/draw.ml
@@ -1,5 +1,5 @@
 (* config settings. eventually move to Cfg module *)
-let font = X11.font_load "Verdana:size=11"
+let font = X11.font_load Cfg.font
 let font_height = let open X11 in font.height
 let tabglyph = 0x30
 let tabwidth = 4

diff --git a/lib/view_tests.ml b/lib/view_tests.ml
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/tests/buf_tests.ml b/tests/buf_tests.ml
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/tests/misc_tests.ml b/tests/misc_tests.ml
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/unittests.ml b/unittests.ml
index 7f3f2fe09ff06d6714baf52d846648f816e6d430..4a8ae9f2934b0b4547fddf36707fab9624bf715f 100644 (file)
--- a/unittests.ml
+++ b/unittests.ml
@@ -1,3 +1,5 @@
+open Buf_tests
+open Misc_tests
 open Rope_tests
 open Scrollmap_tests