#!perl

use strict;
use Test::More tests => 14;
use Data::Dumper;

require_ok('Astro::WaveBand');
require_ok('Astro::Flux');
require_ok('Astro::FluxColor');
require_ok('Astro::Fluxes');

my $flux1 = new Astro::Flux( 1, 'mag', new Astro::WaveBand( Filter => 'J' ) );
my $flux2 = new Astro::Flux( 4, 'mag', new Astro::WaveBand( Filter => 'H' ) );
my $color1 = new Astro::FluxColor( lower => new Astro::WaveBand( Filter => 'J' ),
                                   upper => new Astro::WaveBand( Filter => 'K' ),
                                   quantity => 10 );
my $color2 = new Astro::FluxColor( lower => new Astro::WaveBand( Filter => 'H' ),
                                   upper => new Astro::WaveBand( Filter => 'K' ),
                                   quantity => 13 );

my $fluxes = new Astro::Fluxes( $flux1, $flux2, $color1, $color2 );

isa_ok( $fluxes, 'Astro::Fluxes' );
is( $fluxes->flux( waveband => new Astro::WaveBand( Filter => 'J' ) )->quantity('mag'), 1, 'Retrieval of non-derived magnitude');

is( $fluxes->flux( waveband => new Astro::WaveBand( Filter => 'R' ) ), undef, 'flux is undef when asking for a derived magnitude' );

is( $fluxes->flux( waveband => new Astro::WaveBand( Filter => 'H') , derived => 1 )->quantity('mag'), 4, 'Explicit retrieval of derived magnitude');

is( $fluxes->color( lower => new Astro::WaveBand( Filter => 'J' ), upper => new Astro::WaveBand( Filter => 'K' ) )->quantity, 10, 'Retrieval of stored color');

is( $fluxes->color( lower => new Astro::WaveBand( Filter => 'J' ), upper => new Astro::WaveBand( Filter => 'H' ) )->quantity, -3, 'Retrieval of derived color');


my @all = $fluxes->allfluxes();
#print Dumper( @all );
is( scalar( @all ), '2', 'all Astro::Flux objects');

my @all_including_derived = $fluxes->allfluxes( 'derived' );
#print Dumper( @all_including_derived );
is( scalar( @all_including_derived ), '6', 'all Astro::Flux objects (including derived)');


my @wavebands = ( "J", "H" ); # original filters only returns filters for Astro::Flux
my @sorted_fluxes =  $fluxes->original_wavebands( 'filters' );
is( @sorted_fluxes, @wavebands, 'original_wavebands( "filters" )' );

my @jband = $fluxes->fluxesbywaveband( waveband => 'J' );
is( scalar( @jband ), 2, 'number of J band Astro::Flux objects' );