diff --git a/Tests/Unit/Elements/TableHeaderElementTest.st b/Tests/Unit/Elements/TableHeaderElementTest.st
new file mode 100644
index 0000000..ba78b49
--- /dev/null
+++ b/Tests/Unit/Elements/TableHeaderElementTest.st
@@ -0,0 +1,14 @@
+ElementTest subclass: TableHeaderElementTest [
+    
+    <comment: nil>
+    <category: 'Iliad-Tests-Unit-Elements'>
+
+    setUp [
+	e := TableHeaderElement new
+    ]
+
+    testTag [
+	self assert: e tag = 'th'
+    ]
+]
+