TST: Use temp directory for tests of ACSet JSON serialization.

test/categorical_algebra/CSets.jl

@@ -5,6 +5,14 @@ using Catlab, Catlab.Theories, Catlab.Graphs, Catlab.CategoricalAlgebra,
   Catlab.CategoricalAlgebra.FinSets
 using Catlab.Graphs.BasicGraphs: TheoryGraph
 
+function roundtrip_json_acset(x::T) where T <: AbstractACSet
+  mktempdir() do dir
+    path = joinpath(dir, "acset.json")
+    write_json_acset(x, path)
+    read_json_acset(T, path)
+  end
+end
+
 # FinSets interop
 #################
 
@@ -17,10 +25,7 @@ f = FinFunction(g, :src)
 @test codom(f) == FinSet(6)
 @test collect(f) == 2:4
 @test is_indexed(f)
-
-write_json_acset(g, "graph.json")
-@test g == read_json_acset(Graph, "graph.json")
-rm("graph.json")
+@test roundtrip_json_acset(g) == g
 
 f = FinDomFunction(g, :E)
 @test collect(f) == 1:3
@@ -35,10 +40,7 @@ add_edges!(g, 1:2, 2:3, weight=[0.5, 1.5])
 f = FinDomFunction(g, :weight)
 @test codom(f) == TypeSet(Float64)
 @test collect(f) == [0.5, 1.5]
-
-write_json_acset(g, "graph.json")
-@test g == read_json_acset(WeightedGraph{Float64}, "graph.json")
-rm("graph.json")
+@test roundtrip_json_acset(g) == g
 
 # C-set morphisms
 #################
@@ -256,10 +258,7 @@ add_edge!(h, 1, 1, elabel=:f)
 coprod = ob(coproduct(g, h))
 @test subpart(coprod, :vlabel) == [:u, :v, :u]
 @test subpart(coprod, :elabel) == [:e, :f]
-
-write_json_acset(g, "graph.json")
-@test g == read_json_acset(LabeledGraph{Symbol}, "graph.json")
-rm("graph.json")
+@test roundtrip_json_acset(g) == g
 
 # Pushout of labeled graph.
 g0 = LabeledGraph{Symbol}()
@@ -326,10 +325,6 @@ add_parts!(wg, :E, 4, src=[1,2,3,4], tgt=[2,3,4,1], weight=[101, 102, 103, 100])
 @test wg == WeightedGraph{Int}(ldds,
   Dict(:V => :X, :E => :X),
   Dict(:src => id(X), :tgt => :Φ, :weight => [:Φ, :label]))
-
-write_json_acset(ldds, "graph.json")
-@test ldds == read_json_acset(LabeledDDS{Int}, "graph.json")
-rm("graph.json")
-
+@test roundtrip_json_acset(ldds) == ldds
 
 end