From 2958f1fe56d0b4487a3bb62c1667145f407b203f Mon Sep 17 00:00:00 2001 From: Tom Wyant Date: Fri, 6 Sep 2024 11:54:19 -0400 Subject: [PATCH] Add celestrak catalog 'eutelsat'. --- lib/Astro/SpaceTrack.pm | 1 + xt/author/celestrak_datasets.t | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/Astro/SpaceTrack.pm b/lib/Astro/SpaceTrack.pm index 91ed2d7..f681dda 100644 --- a/lib/Astro/SpaceTrack.pm +++ b/lib/Astro/SpaceTrack.pm @@ -333,6 +333,7 @@ my %catalogs = ( # Catalog names (and other info) for each source. }, # Removed 2022-05-12 # '2019-006' => { name => 'Indian ASAT Test Debris' }, + eutelsat => { name => 'Eutelsat' }, }, celestrak_supplemental => { gps => { diff --git a/xt/author/celestrak_datasets.t b/xt/author/celestrak_datasets.t index 8047cc3..ce65c53 100644 --- a/xt/author/celestrak_datasets.t +++ b/xt/author/celestrak_datasets.t @@ -88,7 +88,7 @@ foreach my $key (sort keys %expect) { } ok ( ! keys %got, 'The above is all there is' ) or do { - diag( 'The following have been added:' ); + diag( 'The following primary data sets have been added:' ); foreach (sort keys %got) { diag( " $_ => '$got{$_}{name}'" ); } @@ -141,7 +141,7 @@ foreach my $key (sort keys %expect) { } ok ( ! keys %got, 'The above is all there is' ) or do { - diag( 'The following have been added:' ); + diag( 'The following supplemental data sets have been added:' ); foreach (sort keys %got) { diag( " $got{$_}{source} $_ => '$got{$_}{name}'" ); }