Extend tests and fix some issue with pkgIndex.tcl

Author: RedFantom

src/pkgIndex.tcl

@@ -1,7 +1,9 @@
 package ifneeded extrafont 1.2  [list apply { dir  {
 	package require Tk
-	
-	set thisDir [file normalize ${dir}]
+
+	if {![info exists $dir]} {
+	    set dir [pwd]
+	}
 
 	set os $::tcl_platform(platform)
 	switch -- $os {
@@ -19,16 +21,16 @@ package ifneeded extrafont 1.2  [list apply { dir  {
 	switch -- $arch {
 		4 { set arch x32  }
 		8 { set arch x64 }
-		default { error "extrafont: Unsupported architecture: Unexpected pointer-size $arch!!! "}
+		default { error "extrafont: Unsupported architecture: Unexpected pointer-size $arch"}
 	}
 
 
 	set libfile_abspath [file join [file normalize $dir] $libfile]
 	load $libfile_abspath
 
 	namespace eval extrafont {}
-	source [file join $thisDir extrafont.tcl]
-	source [file join $thisDir futmp.tcl]
+	source [file join $dir extrafont.tcl]
+	source [file join $dir futmp.tcl]
 
 	package provide extrafont 1.2
 

tests/overhaul.ttf

@@ -6,14 +6,26 @@
 import tkinter as tk
 import tkextrafont
 from unittest import TestCase
+import os
 
 
 class TestTkExtraFont(TestCase):
+    """Test the compiled extrafont binary with a public-domain font"""
+
+    PATH = os.path.abspath(os.path.dirname(__file__))
 
     def setUp(self):
         self.window = tk.Tk()
         tkextrafont.load_extrafont(self.window)
 
     def test_font_load(self):
-        # self.window.load_font()\
-        pass
+        assert not self.window.is_font_available("Overhaul")
+        loaded = set(self.window.loaded_fonts())
+        self.window.load_font(os.path.join(self.PATH, "overhaul.ttf"))
+        assert len(list(set(self.window.loaded_fonts()) - loaded)) != 0
+        assert self.window.is_font_available("Overhaul")
+        assert "Overhaul" in self.window.loaded_fonts()
+
+        label = tk.Label(self.window, text="Overhaul font", font=("Overhaul", 12, "bold"))
+        label.pack()
+        self.window.update()