The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package main;

use strict;
use warnings;

use lib qw{ inc };

use Test::More 0.88;
use My::Module::Test::App;

use Astro::App::Satpass2::FormatTime;

class 'Astro::App::Satpass2::FormatTime';

method 'new', INSTANTIATE, 'Instantiate Astro::App::Satpass2::FormatTime';

method gmt => 1, TRUE, 'Turn on gmt';

method 'gmt', 1, 'Confirm gmt is on';

method format_datetime_width => '', 0, 'Width of null template';

method format_datetime_width => 'foo', 3,
    'Width of constant template';

method format_datetime_width => 'foo%%bar', 7,
    'Width of template with literal percent';

done_testing;

1;

# ex: set textwidth=72 :