view release on metacpan or  search on metacpan

t/spacetrack_request.t  view on Meta::CPAN

	url => "$base_url/basicspacedata/query/class/gp/format/tle/orderby/NORAD_CAT_ID%20asc/NORAD_CAT_ID/25544",
	version => 2,
    } ],
 );

$st->set( dump_headers => DUMP_NONE );

is_resp( qw{retrieve 25544}, <<'EOD' );
1 25544U First line of data
2 25544 Second line of data
EOD

$st->set( dump_headers => DUMP_REQUEST );

is_resp( qw{retrieve -sort catnum 25544}, [ {
	args => [
	    basicspacedata	=> 'query',
	    class	=> 'gp',
	    format	=> 'tle',
	    orderby	=> 'NORAD_CAT_ID asc',
	    NORAD_CAT_ID => 25544,
	],
	method => 'GET',
	url => "$base_url/basicspacedata/query/class/gp/format/tle/orderby/NORAD_CAT_ID%20asc/NORAD_CAT_ID/25544",
	version => 2,
    } ],
 );

is_resp( qw{retrieve -sort epoch 25544}, [ {
	args => [
	    basicspacedata	=> 'query',
	    class	=> 'gp',
	    format	=> 'tle',
	    orderby	=> 'EPOCH asc',
	    NORAD_CAT_ID => 25544,
	],
	method => 'GET',
	url => "$base_url/basicspacedata/query/class/gp/format/tle/orderby/EPOCH%20asc/NORAD_CAT_ID/25544",
	version => 2,
    } ],
 );

is_resp( qw{retrieve -descending 25544}, [ {
	args => [
	    basicspacedata	=> 'query',
	    class	=> 'gp',
	    format	=> 'tle',
	    orderby	=> 'NORAD_CAT_ID desc',
	    NORAD_CAT_ID => 25544,
	],
	method => 'GET',
	url => "$base_url/basicspacedata/query/class/gp/format/tle/orderby/NORAD_CAT_ID%20desc/NORAD_CAT_ID/25544",
	version => 2,
    } ],
 );

$st->set( dump_headers => DUMP_REQUEST );

{
    no warnings qw{ uninitialized };
    local $ENV{SPACETRACK_REST_FRACTIONAL_DATE} = undef;

    is_resp( qw{retrieve -start_epoch 2009-04-01 25544}, [ {
	    args => [
		basicspacedata	=> 'query',
		class	=> 'gp_history',
		format	=> 'tle',
		orderby	=> 'NORAD_CAT_ID asc',
		EPOCH	=> '2009-04-01 00:00:00--2009-04-02 00:00:00',
		NORAD_CAT_ID => 25544,
	    ],
	    method => 'GET',
	    url => "$base_url/basicspacedata/query/class/gp_history/format/tle/orderby/NORAD_CAT_ID%20asc/EPOCH/2009-04-01%2000:00:00--2009-04-02%2000:00:00/NORAD_CAT_ID/25544",
	    version => 2,
	} ],
    );

    is_resp( qw{retrieve -end_epoch 2009-04-01 25544}, [ {
	    args => [
		basicspacedata	=> 'query',
		class	=> 'gp_history',
		format	=> 'tle',
		orderby	=> 'NORAD_CAT_ID asc',
		EPOCH	=> '2009-03-31 00:00:00--2009-04-01 00:00:00',
		NORAD_CAT_ID => 25544,
	    ],
	    method => 'GET',
	    url => "$base_url/basicspacedata/query/class/gp_history/format/tle/orderby/NORAD_CAT_ID%20asc/EPOCH/2009-03-31%2000:00:00--2009-04-01%2000:00:00/NORAD_CAT_ID/25544",
	    version => 2,
	} ],
    );

    is_resp( qw{retrieve -start_epoch 2009-03-01 -end_epoch 2009-04-01 25544}, [ {
	    args => [
		basicspacedata	=> 'query',
		class	=> 'gp_history',
		format	=> 'tle',
		orderby	=> 'NORAD_CAT_ID asc',
		EPOCH	=> '2009-03-01 00:00:00--2009-04-01 00:00:00',
		NORAD_CAT_ID => 25544,
	    ],
	    method => 'GET',
	    url => "$base_url/basicspacedata/query/class/gp_history/format/tle/orderby/NORAD_CAT_ID%20asc/EPOCH/2009-03-01%2000:00:00--2009-04-01%2000:00:00/NORAD_CAT_ID/25544",
	    version => 2,
	} ],
    );

}

note <<'EOD';
The point of the following test is to ensure that the request is being
properly broken into two pieces, and that the joining of the JSON in the
responses is being handled properly.
EOD

{

    local $Astro::SpaceTrack::RETRIEVAL_SIZE = 50;
    # Force undocumented hack to be turned off.
    no warnings qw{ uninitialized };
    local $ENV{SPACETRACK_REST_RANGE_OPERATOR} = undef;

    is_resp( retrieve => 1 .. 66, [
	{
	    args => [
		basicspacedata	=> 'query',
		class		=> 'gp',
		format		=> 'tle',
		orderby		=> 'NORAD_CAT_ID asc',
		NORAD_CAT_ID	=> '1--50',
	    ],
	    method	=> 'GET',
	    url => "$base_url/basicspacedata/query/class/gp/format/tle/orderby/NORAD_CAT_ID%20asc/NORAD_CAT_ID/1--50",
	    version	=> 2
	},
	{
	    args => [
		basicspacedata	=> 'query',
		class		=> 'gp',
		format		=> 'tle',
		orderby		=> 'NORAD_CAT_ID asc',
		NORAD_CAT_ID	=> '51--66',
	    ],
	    method	=> 'GET',
	    url => "$base_url/basicspacedata/query/class/gp/format/tle/orderby/NORAD_CAT_ID%20asc/NORAD_CAT_ID/51--66",
	    version	=> 2
	},
    ],
    );

    $st->set( dump_headers => DUMP_NONE );

    is_resp( retrieve => 1 .. 66, <<'EOD' );
1 00004U First line of data
2 00004 Second line of data
1 00005U First line of data
2 00005 Second line of data
1 00008U First line of data
2 00008 Second line of data
1 00009U First line of data
2 00009 Second line of data
1 00011U First line of data
2 00011 Second line of data
1 00012U First line of data
2 00012 Second line of data
1 00015U First line of data
2 00015 Second line of data
1 00016U First line of data
2 00016 Second line of data
1 00017U First line of data
2 00017 Second line of data
1 00018U First line of data
2 00018 Second line of data
1 00019U First line of data
2 00019 Second line of data
1 00020U First line of data
2 00020 Second line of data
1 00022U First line of data
2 00022 Second line of data
1 00023U First line of data
2 00023 Second line of data

t/spacetrack_request.t  view on Meta::CPAN

	method => 'GET',
	url => "$base_url/basicspacedata/query/class/satcat/format/json/orderby/NORAD_CAT_ID%20asc/predicates/all/CURRENT/Y/DECAY/null-val/OBJECT_NAME/~~ISS/OBJECT_TYPE/OTHER,PAYLOAD,TBA,UNKNOWN",
	version => 2,
    },
],
);

is_resp( qw{ search_oid 25544 }, [
    {
	args => [
	    basicspacedata	=> 'query',
	    class	=> 'satcat',
	    format	=> 'json',
	    orderby	=> 'NORAD_CAT_ID asc',
	    predicates	=> 'all',
	    CURRENT	=> 'Y',
	    DECAY	=> 'null-val',
	    NORAD_CAT_ID	=> 25544,
	],
	method => 'GET',
	url => "$base_url/basicspacedata/query/class/satcat/format/json/orderby/NORAD_CAT_ID%20asc/predicates/all/CURRENT/Y/DECAY/null-val/NORAD_CAT_ID/25544",
	version => 2,
    },
],
);

$st->set( dump_headers => DUMP_NONE );

is_resp( qw{ search_oid 25544 }, <<'EOD' );
ISS (ZARYA)
1 25544U First line of data
2 25544 Second line of data
EOD

$st->set( dump_headers => DUMP_REQUEST );

is_resp( qw{ search_oid -format json 25544 }, [
    {
	args => [
	    basicspacedata	=> 'query',
	    class	=> 'satcat',
	    format	=> 'json',
	    orderby	=> 'NORAD_CAT_ID asc',
	    predicates	=> 'all',
	    CURRENT	=> 'Y',
	    DECAY	=> 'null-val',
	    NORAD_CAT_ID	=> 25544,
	],
	method => 'GET',
	url => "$base_url/basicspacedata/query/class/satcat/format/json/orderby/NORAD_CAT_ID%20asc/predicates/all/CURRENT/Y/DECAY/null-val/NORAD_CAT_ID/25544",
	version => 2,
    },
],
);

$st->set( dump_headers => DUMP_NONE );

is_resp( qw{ search_oid -format json 25544 },
[
   {
      'COMMENT'	=> 'GENERATED VIA SPACETRACK.ORG API',
      'FILE'	=> '1681502',
      'INTLDES'	=> '98067A',
      'NORAD_CAT_ID'	=> '25544',
      'OBJECT_ID'	=> '1998-067A',
      'OBJECT_NAME'	=> 'ISS (ZARYA)',
      'NORAD_CAT_ID'	=> '25544',
      'OBJECT_TYPE'	=> 'PAYLOAD',
      'TLE_LINE0'	=> '0 ISS (ZARYA)',
      'TLE_LINE1'	=> '1 25544U First line of data',
      'TLE_LINE2'	=> '2 25544 Second line of data',
   }
]
);

$st->set( dump_headers => DUMP_REQUEST );

is_resp( qw{ search_oid -format tle 25544 }, [
    {
	args => [
	    basicspacedata	=> 'query',
	    class	=> 'satcat',
	    format	=> 'json',
	    orderby	=> 'NORAD_CAT_ID asc',
	    predicates	=> 'all',
	    CURRENT	=> 'Y',
	    DECAY	=> 'null-val',
	    NORAD_CAT_ID	=> 25544,
	],
	method => 'GET',
	url => "$base_url/basicspacedata/query/class/satcat/format/json/orderby/NORAD_CAT_ID%20asc/predicates/all/CURRENT/Y/DECAY/null-val/NORAD_CAT_ID/25544",
	version => 2,
    },
],
);

$st->set( dump_headers => DUMP_NONE );

is_resp( qw{ search_oid -format tle 25544 }, <<'EOD' );
1 25544U First line of data
2 25544 Second line of data
EOD

$st->set( dump_headers => DUMP_REQUEST );

is_resp( qw{ search_oid -format 3le 25544 }, [
    {
	args => [
	    basicspacedata	=> 'query',
	    class	=> 'satcat',
	    format	=> 'json',
	    orderby	=> 'NORAD_CAT_ID asc',
	    predicates	=> 'all',
	    CURRENT	=> 'Y',
	    DECAY	=> 'null-val',
	    NORAD_CAT_ID	=> 25544,
	],
	method => 'GET',
	url => "$base_url/basicspacedata/query/class/satcat/format/json/orderby/NORAD_CAT_ID%20asc/predicates/all/CURRENT/Y/DECAY/null-val/NORAD_CAT_ID/25544",
	version => 2,
    },