@testset "ut1tai" begin
    a1, a2 = ut1tai(2453750.5, 0.892104561, -32.6659)
    @test a1 ≈ 2453750.5 atol=1e-6
    @test a2 ≈ 0.8924826385462962963 atol=1e-12
end

@testset "ut1tt" begin
    a1, a2 = ut1tt(2453750.5, 0.892104561, 64.8499)
    @test a1 ≈ 2453750.5 atol=1e-6
    @test a2 ≈ 0.8928551385462962963 atol=1e-15
end

@testset "ut1utc" begin
    a1, a2 = ut1utc(2453750.5, 0.892104561, 0.3341)
    @test a1 ≈ 2453750.5 atol=1e-6
    @test a2 ≈ 0.8921006941018518519 atol=1e-13
end

@testset "utctai" begin
    u1, u2 = utctai(2453750.5, 0.892100694)
    @test u1 ≈ 2453750.5 atol=1e-6
    @test u2 ≈ 0.8924826384444444444 atol=1e-13
    @test_logs (:warn,) utctai(2.4880695e6, 0.0)
    @test_throws ERFAException utctai(typemax(Cdouble), 0.0)
end

@testset "utcut1" begin
    u1, u2 = utcut1(2453750.5, 0.892100694, 0.3341)
    @test u1 ≈ 2453750.5 atol=1e-6
    @test u2 ≈ 0.8921045608981481481 atol=1e-13
end

