view release on metacpan or  search on metacpan

t/format_value.t  view on Meta::CPAN

call_m( epoch => [], '2008-10-09 10:53:02', 'Epoch' );
$default{epoch} = { width => '', places => 5 };
call_m( epoch => [ units => 'julian' ], '2454748.95350',
    'Epoch in Julian days' );
call_m( epoch => [ units => 'days_since_epoch' ], '0.00000',
    'Epoch in days since epoch (always 0)' );
delete $default{epoch};
call_m( center => [], epoch => [], '                   ',
    'Epoch of center (unavailable)' );
call_m( appulse => [], epoch => [], '                   ',
    'Epoch of appulse (unavailable)' );
call_m( station => [], epoch => [], '                   ',
    'Epoch of station (unavailable)' );

# Note that the following directly manipulates data inside the formatter
# object, using the references used to set that data. The author will
# not be responsible for what happens if anyone other than the author
# writes code that does this.

call_m( event => [], 'apls ', 'Event' );
$event->{event} = 0;
call_m( event => [], '     ', 'Event (0)' );
$event->{event} = 1;
call_m( event => [], 'shdw ', 'Event (1)' );
$event->{event} = 2;
call_m( event => [], 'lit  ', 'Event (2)' );
$event->{event} = 3;
call_m( event => [], 'day  ', 'Event (3)' );
$event->{event} = 4;
call_m( event => [], 'rise ', 'Event (4)' );
$event->{event} = 5;
call_m( event => [], 'max  ', 'Event (5)' );
$event->{event} = 6;
call_m( event => [], 'set  ', 'Event (6)' );
$event->{event} = 7;
call_m( event => [], 'apls ', 'Event (7)' );
$default{event}{table} = [ undef, undef, undef, undef, undef, undef,
    undef, 'Conj' ];
call_m( event => [], 'Conj ', 'Event with overridden description' );
call_m( event => [ units => 'string' ], 'apls ',
    'Event with string formatting gives the unlocalized string' );
call_m( event => [ units => 'integer' ], '    7',
    'Event with integer formatting gives the event number' );
delete $default{event};

call_m( first_derivative => [], ' 1.2345678900e-08',
    'First derivative (degrees/minute**2)' );
call_m( center => [], first_derivative => [], '                 ',
    'First derivative of center (unavailable)' );
call_m( appulse => [], first_derivative => [], '                 ',
    'First derivative of appulse (unavailable)' );
call_m( station => [], first_derivative => [], '                 ',
    'First derivative of station (unavailable)' );

call_m( fraction_lit => [], '    ',
    'Fraction of object lit (unavailable)' );
call_m( center => [], fraction_lit => [], '    ',
    'Fraction of flare center lit (unavailable)' );
call_m( appulse => [], fraction_lit => [], '0.74',
    'Fraction of appulsed body lit' );
call_m( appulse => [], fraction_lit => [ places => 0, units => 'percent' ],
    '  74',
    'Fraction of appulsed body lit, as percent' );
call_m( station => [], fraction_lit => [], '    ',
    'Fraction of observing station lit (unavailable)' );

call_m( oid => [], ' 25544', 'OID of satellite' );
call_m( center => [], oid => [], '      ',
    'OID of flare center (unavailable)' );
call_m( appulse => [], oid => [], 'Moon  ',
    'OID of appulsing body' );
call_m( station => [], oid => [], '      ',
    'OID of observing station (unavailable)' );

call_m( illumination => [], 'lit  ', 'Illumination' );
call_m( center => [], illumination => [], '     ',
    'Illumination of flare center (unavailable)' );
call_m( appulse => [], illumination => [], '     ',
    'Illumination of appulsed body (unavailable)' );
call_m( station => [], illumination => [], 'lit  ',
    'Illumination of observing station (available, but incorrect)' );

call_m( inclination => [], ' 51.6426', 'Inclination' );
call_m( center => [], inclination => [], '        ',
    'Inclination of flare center (unavailable)' );
call_m( appulse => [], inclination => [], '        ',
    'Inclination of appulsed body (unavailable)' );
call_m( station => [], inclination => [], '        ',
    'Inclination of observing station (unavailable)' );

call_m( inertial => [], '0', 'Inertial indicator' );
call_m( center => [], inertial => [], ' ',
    'Inertial indicator of flare center (unavailable)' );
call_m( appulse => [], inertial => [], '1',
    'Inertial indicator of appulsed body' );
call_m( station => [], inertial => [], '0',
    'Inertial indicator of observing station' );

call_m( international => [], '98067A  ',
    'International launch designator' );
call_m( center => [], international => [], '        ',
    'International launch designator of flare center (unavailable)' );
call_m( appulse => [], international => [], '        ',
    'International launch designator of appulsed body (unavailable)' );
call_m( station => [], international => [], '        ',
    'International launch designator of observing station (unavailable)' );

call_m( latitude => [], ' 34.0765', 'Latitude of satellite' );
call_m( center => [], latitude => [], '        ',
    'Latitude of flare center (unavailable)' );
call_m( appulse => [], latitude => [], '-16.0592',
    'Latitude of appulsed body' );
call_m( station => [], latitude => [], ' 38.8987',
    'Latitude of observing station' );

call_m( longitude => [], ' -74.2084', 'Longitude of satellite' );
call_m( center => [], longitude => [], '         ',
    'Longitude of flare center (unavailable)' );
call_m( appulse => [], longitude => [], ' -51.2625',
    'Longitude of appulsed body' );
call_m( station => [], longitude => [], ' -77.0377',
    'Longitude of observing station' );