now with documentation

src/models/SymbolicModels.jl

@@ -278,7 +278,8 @@ macro symbolic_model(decl, theoryname, body)
   Expr(
     :toplevel,
     module_decl,
-    esc.(generate_function.([theory_overloads; generator_overloads]))...
+    :(Core.@__doc__ $(esc(name))),
+    esc.(generate_function.([theory_overloads; generator_overloads]))...,
   )
 end
 

src/syntax/TheoryInterface.jl

@@ -97,11 +97,16 @@ macro theory(head, body)
   push!(modulelines, :($(GlobalRef(TheoryInterface, :GAT_MODULE_LOOKUP))[$(gettag(newsegment))] = $name))
 
   esc(
-    Expr(:toplevel, :(
-      module $name
-      $(modulelines...)
-      end
-    )))
+    Expr(
+      :toplevel,
+      :(
+        module $name
+        $(modulelines...)
+        end
+      ),
+      :(Core.@__doc__ $(name))
+    )
+  )
 end
 
 end

test/cover.jl

@@ -0,0 +1,10 @@
+using Pkg, Coverage
+
+bashit(str) = run(`bash -c "$str"`)
+
+Pkg.test("GATlab"; coverage=true)
+coverage = process_folder()
+open("lcov.info", "w") do io
+    LCOV.write(io, coverage)
+end;
+bashit("find . -name *.cov -delete")

test/models/SymbolicModels.jl

@@ -24,7 +24,6 @@ f = FreeCategory.Hom{:generator}([:f], [x, y])
 
 """ Theory of monoids.
 """
-
 @theory ThMonoid begin
   Elem::TYPE
   munit()::Elem
@@ -33,7 +32,6 @@ end
 
 """ Syntax for the theory of monoids.
 """
-
 @symbolic_model FreeMonoid{GATExpr} ThMonoid
 
 import .ThMonoid: Elem
@@ -48,8 +46,8 @@ Elem(mod::Module, args...) = Elem(mod.Elem, args...)
 x, y, z = Elem(FreeMonoid,:x), Elem(FreeMonoid,:y), Elem(FreeMonoid,:z)
 @test isa(mtimes(x,y), FreeMonoid.Elem)
 @test isa(munit(FreeMonoid.Elem), FreeMonoid.Elem)
-# @test gat_typeof(x) == :Elem
-# @test gat_typeof(mtimes(x,y)) == :Elem
+@test gat_typeof(x) == :Elem
+@test gat_typeof(mtimes(x,y)) == :Elem
 @test mtimes(mtimes(x,y),z) != mtimes(x,mtimes(y,z))
 
 # # Test equality
@@ -101,15 +99,13 @@ x = Elem(FreeMonoidTyped.Elem, :x)
 
 """ A monoid with two distinguished elements.
 """
-
 @theory ThMonoidTwo <: ThMonoid begin
   one()::Elem
   two()::Elem
 end
 
 """ The free monoid on two generators.
 """
-
 # @symbolic_model FreeMonoidTwo{GATExpr} ThMonoidTwo begin
 #   Elem(::Type{Elem}, value) = error("No extra generators allowed!")
 # end