improved coverage (#46)

Author: PierreMartinon

Project.toml

@@ -1,7 +1,7 @@
 name = "CTDirect"
 uuid = "790bbbee-bee9-49ee-8912-a9de031322d5"
 authors = ["Olivier Cots <olivier.cots@enseeiht.fr>"]
-version = "0.3.1"
+version = "0.3.2"
 
 [deps]
 ADNLPModels = "54578032-b7ea-4c30-94aa-7cbd1cce6c9a"

src/CTDirect.jl

@@ -20,5 +20,6 @@ include("solve.jl")
 
 # export functions only for user
 export solve
+export is_solvable
 
 end

test/suite/double_integrator.jl

@@ -39,7 +39,7 @@ sol2 = solve(ocp2, grid_size=100, print_level=0, tol=1e-12)
 end
 
 
-# min tf (vectorial)
+# min tf (vector)
 ocp3 = Model(variable=true)
 state!(ocp3, 2)
 control!(ocp3, 1)
@@ -90,6 +90,7 @@ end
 end
 sol = solve(ocp, grid_size=100, print_level=0, tol=1e-12)
 @testset verbose = true showtiming = true ":double_integrator :min_tf :abstract" begin
+    @test is_solvable(ocp)
     @test sol.objective ≈ 2.0 rtol=1e-2
 end
 

test/suite/double_integrator_min_tf.jl

@@ -0,0 +1,19 @@
+using CTDirect
+using CTBase
+
+println("Test: simple integrator")
+
+# min energy
+ocp1 = Model()
+state!(ocp1, 1)
+control!(ocp1, 1)
+time!(ocp1, [0, 1])
+constraint!(ocp1, :initial, -1, :initial_constraint)
+constraint!(ocp1, :final, 0, :final_constraint)
+dynamics!(ocp1, (x, u) -> -x + u)
+objective!(ocp1, :lagrange, (x, u) -> u^2)
+init_constant = [-0.5, 0]
+sol1 = solve(ocp1, grid_size=100, print_level=0, tol=1e-12, init=init_constant)
+@testset verbose = true showtiming = true ":double_integrator :min_tf" begin
+    @test sol1.objective ≈ 0.313 rtol=1e-2
+end