view release on metacpan or  search on metacpan

t/query_misc.t  view on Meta::CPAN

package main;

use 5.006002;

use strict;
use warnings;

use Astro::SpaceTrack;
use Test::More 0.96;	# For subtest

use lib qw{ inc };
use My::Module::Test;

my $st = Astro::SpaceTrack->new();

$st->set( webcmd => undef );

is_success( $st, 'banner', 'Get banner' );

is_success( $st, 'help', 'Get internal help' );

is $st->content_type(), 'help', "Content type is 'help'";

not_defined( $st->content_source(), "Content source is undef" );

is_success( $st, 'names', 'celestrak', 'Retrieve Celestrak catalog names' );

is_not_success( $st, 'names', 'bogus', 'Can not retrieve bogus catalog names' );

$st->set( banner => undef, filter => 1 );
$st->shell( '', '# comment', 'set banner 1', 'exit' );
ok $st->get('banner'), 'Reset an attribute using the shell';

done_testing;

1;

__END__

# ex: set filetype=perl textwidth=72 :