use
5.006002;
my
$st
= Astro::SpaceTrack->new();
my
$skip
;
$skip
= site_check(
'celestrak.org'
)
and plan
skip_all
=>
$skip
;
SKIP: {
is_success_or_skip(
$st
,
celestrak
=>
'stations'
,
'Direct-fetch celestrak stations'
, 4 );
is
$st
->content_type(),
'orbit'
,
"Content type is 'orbit'"
;
is
$st
->content_source(),
'celestrak'
,
"Content source is 'celestrak'"
;
my
$resp
= most_recent_http_response( );
is
$st
->content_type(
$resp
),
'orbit'
,
"Result type is 'orbit'"
;
is
$st
->content_source(
$resp
),
'celestrak'
,
"Result source is 'celestrak'"
;
}
SKIP: {
is_success_or_skip(
$st
,
celestrak
=>
'iridium'
,
'Direct-fetch Celestrak iridium'
, 2 );
is
$st
->content_type(),
'orbit'
,
"Content type is 'orbit'"
;
is
$st
->content_source(),
'celestrak'
,
"Content source is 'celestrak'"
;
}
SKIP: {
is_error_or_skip(
$st
,
celestrak
=>
'fubar'
,
404,
'Direct-fetch non-existent Celestrak catalog'
);
}
SKIP: {
is_success_or_skip(
$st
,
celestrak_supplemental
=>
'iss'
,
'Fetch Celestrak supplemental ISS data'
, 2 );
is
$st
->content_type(),
'orbit'
,
"Content type is 'orbit'"
;
is
$st
->content_source(),
'celestrak'
,
"Content source is 'celestrak'"
;
}
SKIP: {
is_success_or_skip(
$st
,
celestrak_supplemental
=>
'-rms'
,
'intelsat'
,
'Fetch Celestrak supplemental Intelsat RMS data'
, 2 );
is
$st
->content_type(),
'rms'
,
"Content type is 'rms'"
;
is
$st
->content_source(),
'celestrak'
,
"Content source is 'celestrak'"
;
}
done_testing;
1;