use Test::More tests => 1;

use strict;
use warnings;

use PDL;

use Astro::FITS::CFITSIO::Simple qw/ :all /;

BEGIN { require 't/common.pl'; }

my $file = 'data/f003.fits';

# find the image in the haystack
eval {

    rdfits( $file, { hdutype => 'image'  } );
};
ok ( ! $@, "find image extension" ) or diag( $@ );