Improve test coverage.

Author: kellertuer

src/Manopt.jl

@@ -440,6 +440,7 @@ export StopAfter,
     StopWhenChangeLess,
     StopWhenCostLess,
     StopWhenCurvatureIsNegative,
+    StopWhenEntryChangeLess,
     StopWhenGradientChangeLess,
     StopWhenGradientNormLess,
     StopWhenFirstOrderProgress,

src/plans/stopping_criterion.jl

@@ -397,6 +397,9 @@ function update_stopping_criterion!(c::StopWhenEntryChangeLess, ::Val{:Threshold
     c.threshold = v
     return c
 end
+function show(io::IO, c::StopWhenEntryChangeLess)
+    return print(io, "StopWhenEntryChangeLess\n    $(status_summary(c))")
+end
 
 @doc raw"""
     StopWhenGradientChangeLess <: StoppingCriterion

test/plans/test_stopping_criteria.jl

@@ -50,13 +50,13 @@ end
 @testset "Test StopAfter" begin
     p = TestStopProblem()
     o = TestStopState()
-    s = StopAfter(Second(1))
+    s = StopAfter(Millisecond(30))
     @test !Manopt.indicates_convergence(s)
     @test Manopt.status_summary(s) == "stopped after $(s.threshold):\tnot reached"
-    @test repr(s) == "StopAfter(Second(1))\n    $(Manopt.status_summary(s))"
+    @test repr(s) == "StopAfter(Millisecond(30))\n    $(Manopt.status_summary(s))"
     s(p, o, 0) # Start
     @test s(p, o, 1) == false
-    sleep(1.02)
+    sleep(0.05)
     @test s(p, o, 2) == true
     @test_throws ErrorException StopAfter(Second(-1))
     @test_throws ErrorException update_stopping_criterion!(s, :MaxTime, Second(-1))
@@ -170,3 +170,10 @@ end
     update_stopping_criterion!(s1, :MinStepsize, 1e-1)
     @test s1.threshold == 1e-1
 end
+
+@testset "Test further setters" begin
+    swecl = StopWhenEntryChangeLess(:dummy, (p, s, v, w) -> norm(w - v), 1e-5)
+    @test startswith(repr(swecl), "StopWhenEntryChangeLess\n")
+    update_stopping_criterion!(swecl, :Threshold, 1e-1)
+    @test swecl.threshold == 1e-1
+end