# Astro::ADS::Result test harness

# strict
use strict;

#load test
use Test;
BEGIN { plan tests => 4 };

# load modules
use Astro::ADS::Result;
use Astro::ADS::Result::Paper;

# T E S T   H A R N E S S --------------------------------------------------

# test the test system
ok(1);

# create a test paper object
my ( $bibcode, $title, @authors, @affil, $journal, $published, @keywords,
     $origin, @links, $URL, @abstract1, @abstract2, $object );

# separate the two abstracts from the __DATA_ block
my @data = <DATA>;
chomp @data;
for my $i ( 0 ... 10 ) {
   push ( @abstract1, $data[$i] );
}
for my $i ( 12 ... 19 ) {
   push ( @abstract2, $data[$i] );
}

# Set the test paper meta-data
$bibcode = "1998MNRAS.295..167A";
$title = "ASCA X-ray observations of EX Hya - Spin-resolved spectroscopy";

$authors[0] = "Allan, Alasdair";
$authors[1] = "Hellier, Coel";
$authors[2] = "Beardmore, Andrew";
$affil[0] = "Keele Univ. 0";
$affil[1] = "Keele Univ. 1";
$affil[2] = "Keele Univ. 2";

$journal = "Royal Astronomical Society, Monthly Notices, vol. 295, p. 167";
$published = "3/1998";

$keywords[0] = "WHITE DWARF STARS";
$keywords[1] = "X RAY ASTRONOMY";
$keywords[2] = "SPECTRAL RESOLUTION";
$keywords[3] = "ASTRONOMICAL"; 
$keywords[4] = "SPECTROSCOPY";
$keywords[5] = "ACCRETION DISKS";
$keywords[6] = "ASTRONOMICAL MODELS";
$keywords[7] = "TEMPERATURE"; 
$keywords[8] = "DISTRIBUTION";
$keywords[9] = "SHOCK WAVES";

$origin = "STI";

$links[0] = "ABSTRACT";
$links[1] = "EJOURNAL";
$links[2] = "ARTICLE";
$links[3] = "GIF";
$links[4] = "REFERENCES";
$links[5] = "CITATIONS";
$links[6] = "SIMBAD";

$URL =
 "http://cdsads.u-strasbg.fr/cgi-bin/nph-bib_query?bibcode=1998MNRAS.295..167A";

$object = "EX Hya";

# create an Astro::ADS::Result::Paper object from the meta-data
my $paper = new Astro::ADS::Result::Paper( Bibcode   => $bibcode,
                                           Title     => $title,
                                           Authors   => \@authors,
                                           Affil     => \@affil,
                                           Journal   => $journal,
                                           Published => $published,
                                           Keywords  => \@keywords,
                                           Origin    => $origin,
                                           Links     => \@links,
                                           URL       => $URL,
                                           Abstract  => \@abstract1,
                                           Object    => $object );

# some new meta-data
$bibcode = "2001adass..10..459A";
$title = "IFU Data Products and Reduction Software";

$authors[0] = "Allan, A.";
$authors[1] = "Allington-Smith, J.";
$authors[2] = "Turner, J.";
$authors[3] = "Johnson, R.";
$authors[4] = "Miller, B.";
$authors[5] = "Valdes, F. G";
$affil[0] = undef;
$affil[1] = undef;
$affil[2] = undef;
$affil[3] = undef;
$affil[4] = undef;
$affil[5] = undef;

$journal = "Astronomical Data Analysis Software and Systems X, ASP Conference 
Proceedings, Vol. 238. Edited by F. R. Harnden, Jr., Francis A. Primini, and 
Harry E. Payne. San Francisco: Astronomical Society of the Pacific, ISSN: 
1080-7926, 2001., p.459";
$published = "1/2001";

$keywords[0] = undef;

$origin = "AUTHOR";

$links[0] = "ABSTRACT";

$URL =
 "http://cdsads.u-strasbg.fr/cgi-bin/nph-bib_query?bibcode=2001adass..10..459A";

# create another Astro::ADS::Result::Paper object from the meta-data
my $other = new Astro::ADS::Result::Paper( Bibcode   => $bibcode,
                                           Title     => $title,
                                           Authors   => \@authors,
                                           Affil     => \@affil,
                                           Journal   => $journal,
                                           Published => $published,
                                           Keywords  => \@keywords,
                                           Origin    => $origin,
                                           Links     => \@links,
                                           URL       => $URL,
                                           Abstract  => \@abstract2 );

my @paper_stack;
push( @paper_stack, $paper, $other);

# create an Astro::ADS::Result object
my $result = new Astro::ADS::Result( Papers => \@paper_stack );

# create another
my $next = new Astro::ADS::Result( );

# push papers onto $next
$next->pushpaper( $paper );
$next->pushpaper( $other );

# should be the same
ok( $result->sizeof(), $next->sizeof() );

# pop one paper off $next
my $ret_paper = $next->poppaper();

# compare with $other
ok( $other->bibcode(), $ret_paper->bibcode() );

# paperbyindex
my $index_paper = $result->paperbyindex(1);

# compare with $ret_paper
ok( $index_paper->bibcode(), $ret_paper->bibcode() );


exit;


# D A T A   B L O C K  ----------------------------------------------------

__DATA__
We analyze the spectral changes over the spin modulation in the 
intermediate polar EX Hya using archival ASCA data. We find that the 
modulation can be modelled as either (1) the effect of occultation of 
the accretion poles by the limb of the white dwarf, or (2) the effect of 
phase-dependent photoelectric absorption. We argue, on the basis of the 
partial X-ray eclipse, that the accretion columns in the system are 
tall, with shock height Rwd, and hence that the spin modulation is 
caused mainly by occultation. We find that the temperature distribution 
along the accretion shocks is incompatible with the calculations of 
Aizu, except for a restricted parameter regime with a high Mwd. Hence 
the material in the shock must cool faster than predicted by theory.             
We present a summary of the current status of Starlink and UK data 
reduction and science product manipulation software for the next 
generation of IFUs, and discuss the implications of the currently 
available analysis software with respect to the scientific output of 
these new instruments. The possibilities of utilising existing software 
for science product analysis is examined. We also examine the competing 
science product data formats, and discuss the conventions for 
representing the data in a multi-extension FITS format.