#!perl

use 5.006;
use strict;
use warnings;

use Test::More;

plan tests => 5;

# Test compilation.
require_ok( 'Astro::FITS::HdrTrans' );

# Set up a header.
my $header = { 'AIRTEMP' => '3.972',
               'AMEND' => '1',
               'AMSTART' => '1',
               'BBTEMP' => '1073',
               'CALAPER' => 'BB_Blank',
               'CAMLENS' => '0.12',
               'CDELT1' => '-3.33e-05',
               'CDELT2' => '3.33e-05',
               'CRPIX1' => '480.5',
               'CRPIX2' => '480.5',
               'CRVAL1' => '20.0985013',
               'CRVAL2' => '237.4130524',
               'CTYPE1' => 'DEC--TAN',
               'CTYPE2' => 'RA---TAN',
               'DATE_END' => '2008-08-09T05:00:38.295',
               'DATE_OBS' => '2008-08-09T04:58:56.526',
               'DCOLUMNS' => '1024',
               'DECBASE' => '20.0985013',
               'DECJ2000' => '0',
               'DECJ2000_INT' => '0',
               'DECOFF' => '-0.002',
               'DEPERDN' => '6.3',
               'DETECTOR' => 'ALADDIN',
               'DEXPTIME' => '100',
               'DOMETEMP' => '5.712',
               'DROWS' => '1024',
               'EQUINOX' => '2000',
               'EXPOSED' => '100',
               'FILENAME' => 'u20080809_00038.sdf',
               'FILTER' => 'black_blank',
               'FILTER1' => 'black_blank',
               'FILTER2' => 'open',
               'GRISM' => 'open',
               'GRISM1' => 'open',
               'GRISM2' => 'open',
               'GRPMEM' => '0',
               'GRPNUM' => '37',
               'HUMIDITY' => '5.768',
               'IDKEY' => '2425285',
               'INSTMODE' => 'imaging',
               'INSTRUME' => 'UIST',
               'LAMP' => 'off',
               'MODE' => 'ND1',
               'MSBID' => 'CAL',
               'NEXP' => '1',
               'OBJECT' => 'None',
               'OBSERVER' => 'BLANK',
               'OBSNUM' => '38',
               'OBSTYPE' => 'DARK',
               'PIXLSIZE' => '0.12',
               'POLARISE' => '0',
               'PROJECT' => 'CAL',
               'RABASE' => '15.8275368',
               'RAJ2000' => '0',
               'RAJ2000_INT' => '0',
               'RAOFF' => '0',
               'RDOUT_X1' => '1',
               'RDOUT_X2' => '1024',
               'RDOUT_Y1' => '1',
               'RDOUT_Y2' => '1024',
               'RECIPE' => 'DARK_AND_BPM',
               'RUN' => '38',
               'SLITNAME' => 'large_field',
               'STANDARD' => '1',
               'TELESCOP' => 'UKIRT',
               'TRUSSENE' => '10.281',
               'TRUSSWSW' => '8.763',
               'UTDATE' => '20080809',
               'UT_DATE' => 'Aug  9 2008 12:00AM',
               'UT_DMF' => '902725136',
               'WAVEFORM' => 'uist_ndr1024_app',
               'WPLANGLE' => '0',
             };

# Translate it.
my %gen = Astro::FITS::HdrTrans::translate_from_FITS( $header );

# Check UT dates.
isa_ok( $gen{'UTSTART'}, "Time::Piece", "UTSTART is a Time::Piece object" );
is( $gen{'UTSTART'}, "Sat Aug  9 04:58:56 2008", "UTSTART translates" );
isa_ok( $gen{'UTEND'}, "Time::Piece", "UTEND is a Time::Piece object" );
is( $gen{'UTEND'}, "Sat Aug  9 05:00:38 2008", "UTEND translates" );