view release on metacpan or  search on metacpan

t/bidi.t  view on Meta::CPAN

# -*-perl-*-

# Bi-directional translation test. Converts all the FITS headers
# in the data directory to generic form and back to FITS.

# Author: Tim Jenness <t.jenness@jach.hawaii.edu>

# Copyright (C) 2005 Particle Physics and Astronomy Research Council.
# Copyright (C) 2013 Science and Technology Facilities Council.
# All Rights Reserved.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either Version 2 of the License, or
# (at your option) any later version.

# This program is distributed in the hope that it will be useful,but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place,Suite 330, Boston, MA 02111-1307,
# USA.

use 5.006;
use strict;
use warnings;
use Test::More;

use File::Spec;
use Scalar::Util qw/ looks_like_number /;

# For detailed comparison
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;

eval {
  require Astro::FITS::Header;
};
if ($@) {
  plan skip_all => 'Test requires Astro::FITS::Header module';
} else {
  plan tests => 488;
}

require_ok( "Astro::FITS::HdrTrans" );

# As a basic test, count the number of expected FITS headers
# per instrument
my %COUNT = (
             ufti => 43,
             uist_ifu => 56,
             uist_sp => 56,
             uist_im => 56,
             cgs4 => 53,
             michelle => 57,
             ircam => 44,
             scuba => 38,
             wfcam => 45,
             acsis => 56,
             scuba2 => 44,
            );

my $datadir = File::Spec->catdir( "t","data");

opendir my $dh, $datadir or die "Unable to locate header data directory: $!";

for my $hdrfile (sort readdir $dh) {
  next unless $hdrfile =~ /\.hdr$/;
  #next unless $hdrfile eq 'gsd_ras.hdr';
  print "\n\n# Processing file $hdrfile...\n";

  # Get the ref instrument name.
  my $inst = $hdrfile;
  $inst =~ s/\.hdr$//;

  # Skip if we have a header that is not listed in the test hash.
  next unless exists $COUNT{$inst};

  # Get the Astro::FITS::Header object.
  my $fits = readfits( File::Spec->catfile( $datadir, $hdrfile) );
  die "Error reading fits headers from $hdrfile"
    unless defined $fits;

  # Convert to a hash.
  my %hdr;
  tie %hdr, "Astro::FITS::Header", $fits;

  # Translate from FITS...
  print "# Test translation from FITS...\n";
  my %generic = Astro::FITS::HdrTrans::translate_from_FITS( \%hdr );