Specific test for #95

Author: GearsAD

test/interfaceTests.jl

@@ -181,6 +181,17 @@ end
     dfgSubgraph = getSubgraph(dfg,[:x1, :x2, :x1x2f1])
     # Only returns x1 and x2
     @test symdiff([:x1, :x1x2f1, :x2], [ls(dfgSubgraph)..., lsf(dfgSubgraph)...]) == []
+
+    # DFG issue #95 - confirming that getSubgraphAroundNode retains order
+    # REF: https://github.com/JuliaRobotics/DistributedFactorGraphs.jl/issues/95
+    for fId in getVariableIds(dfg)
+        # Get a subgraph of this and it's related factors+variables
+        dfgSubgraph = getSubgraphAroundNode(dfg, verts[1], 2)
+        # For each factor check that the order the copied graph == original
+        for fact in getFactors(dfgSubgraph)
+            @test fact._variableOrderSymbols == getFactor(dfg, fact.label)._variableOrderSymbols
+        end
+    end
 end
 
 @testset "Producing Dot Files" begin