diff --git a/contrib/topology/test/homology.factor b/contrib/topology/test/homology.factor
new file mode 100644
index 0000000000..56e665f268
--- /dev/null
+++ b/contrib/topology/test/homology.factor
@@ -0,0 +1,9 @@
+IN: temporary
+USING: homology test ;
+
+[ { 1 } ] [ {*} H ] unit-test
+[ { 2 } ] [ S^0 H ] unit-test
+[ { 1 1 } ] [ 1 S^ H ] unit-test
+[ { 1 0 } ] [ 1 D^ H ] unit-test
+[ { 1 0 1 } ] [ 2 S^ H ] unit-test
+[ { 1 0 0 } ] [ 2 D^ H ] unit-test