Added JuMP.delete extension for link constraints

src/optiedge.jl

@@ -76,6 +76,13 @@ function JuMP.all_variables(edge::OptiEdge)
     return unique(vars)
 end
 
+function _set_dirty(edge::OptiEdge)
+    for graph in containing_optigraphs(edge)
+        graph.is_model_dirty = true
+    end
+    return nothing
+end
+
 ### Edge Constraints
 
 # NOTE: could use one method for node and edge

src/optielement.jl

@@ -144,3 +144,15 @@ function JuMP.all_constraints(
     end
     return constraints
 end
+
+function JuMP.delete(element::OptiElement, cref::ConstraintRef)
+    if element !== JuMP.owner_model(cref)
+        error(
+            "The constraint reference you are trying to delete does not " *
+            "belong to the model.",
+        )
+    end
+    _set_dirty(element)
+    MOI.delete(element, cref)
+    return nothing
+end

src/optigraph.jl

@@ -1423,3 +1423,7 @@ function _set_objective_coefficient(
     )
     return nothing
 end
+
+function JuMP.unregister(graph::OptiGraph, key::Symbol)
+    delete!(object_dictionary(graph), key)
+end

src/optinode.jl

@@ -121,16 +121,8 @@ function JuMP.all_variables(node::OptiNode)
     return NodeVariableRef.(Ref(node), var_inds)
 end
 
-function JuMP.delete(node::OptiNode, cref::ConstraintRef)
-    if node !== JuMP.owner_model(cref)
-        error(
-            "The constraint reference you are trying to delete does not " *
-            "belong to the model.",
-        )
-    end
-    _set_dirty(node)
-    MOI.delete(node, cref)
-    return nothing
+function JuMP.unregister(node::OptiNode, key::Symbol)
+    delete!(object_dictionary(node), (node, key))
 end
 
 ### Duals

test/test_optigraph.jl

@@ -440,6 +440,26 @@ function test_nlp_exceptions()
     @test_throws Exception @NLconstraint(graph, graph[1][:x]^3 >= 0)
 end
 
+function test_delete_extensions()
+    graph = OptiGraph()
+    @optinode(graph, nodes[1:2])
+
+    @variable(nodes[1], x >= 1)
+    @variable(nodes[2], x >= 2)
+    @constraint(nodes[1], n_con, nodes[1][:x]^2 >= 1)
+    @linkconstraint(graph, l_con, nodes[1][:x] + nodes[2][:x] == 4)
+
+    edge = JuMP.owner_model(l_con)
+
+    @test_throws ErrorException JuMP.delete(edge, n_con)
+    @test_throws ErrorException JuMP.delete(nodes[1], l_con)
+
+    JuMP.delete(nodes[1], n_con)
+    @test !(n_con in all_constraints(nodes[1]))
+    JuMP.delete(edge, l_con)
+    @test !(l_con in all_link_constraints(graph))
+end
+
 function run_tests()
     for name in names(@__MODULE__; all=true)
         if !startswith("$(name)", "test_")