travel_times: Fix bug for empty pick names

Also fix the link in the module docstring for Seis.jl.

.gitignore

@@ -0,0 +1 @@
+Manifest.toml

Project.toml

@@ -1,7 +1,7 @@
 name = "SeisTau"
 uuid = "802e1830-4752-5daf-add9-2f2a4d2e763c"
 authors = ["Andy Nowacki <a.nowacki@leeds.ac.uk>"]
-version = "0.2.3"
+version = "0.2.4"
 
 [deps]
 Geodesics = "6aaf26a4-c633-11e8-35ae-8904cb805353"

src/SeisTau.jl

@@ -2,7 +2,7 @@
 # SeisTau
 
 SeisTau integrates the [TauPy](https://github.com/anowacki/TauPy.jl) and
-[Seis](ttps://github.com/anowacki/Seis.jl) packages, allowing one to easily
+[Seis](https://github.com/anowacki/Seis.jl) packages, allowing one to easily
 use seismic travel time predictions for 1D Earth models with `Seis.Trace`s,
 `Seis.Event`s and `Seis.Station`s.
 """
@@ -107,7 +107,8 @@ end
 Return the list of `TauPy.Phase`s associated with each travel time pick in `t`.
 """
 travel_times(t::AbstractTrace; model::AbstractString="iasp91", sphere=false) =
-    [travel_time(t, name; model=model, sphere=sphere) for (_, name) in picks(t) if name[1] in ('p', 's', 'P', 'S')]
+    [travel_time(t, name; model=model, sphere=sphere)
+     for (_, name) in picks(t) if name !== missing && occursin(r"^[psPS]", name)]
 
 "Throw an error if a Trace doesn't contain the right headers to call TauPy.travel_time."
 _check_headers_taup(evt::GeogEvent, sta::GeogStation) = any(ismissing,

test/runtests.jl

@@ -16,7 +16,16 @@ using Test, Seis, SeisTau
                 @test travel_times(t) == []
                 t.picks.P = (0, "P")
                 @test travel_times(t) == [travel_time(t, "P")]
-                t.picks.X = 1
+                t′ = deepcopy(t)
+                # Ignore unnamed picks
+                t′.picks.X = 1
+                @test travel_times(t′) == travel_times(t)
+                # Ignore empty but not missing names
+                t′.picks.S = 2, ""
+                @test travel_times(t′) == travel_times(t)
+                # Ignore picks with the wrong kind of name
+                t′.picks.sS = 3, "asS"
+                @test travel_times(t′) == travel_times(t)
             end
             @testset "Default phases" begin
                 @test travel_time(t) == travel_time(t, "ttall")
@@ -31,6 +40,7 @@ using Test, Seis, SeisTau
             t.evt.lon, t.evt.lat, t.evt.dep = 0, 0, 0
             t.sta.lon, t.sta.lat = 0, 80
             @test path(t) == path(t, "ttall")
+            @test path(t) == path(t.evt, t.sta)
             arr = path(t, "P")
             @test length(arr) == 1
             @test arr[1].name == "P"