view release on metacpan or  search on metacpan

t/csv_401k_converter.t  view on Meta::CPAN

use Modern::Perl;

my $DEBUG = 1;

use Test::More tests => 89;
use lib './lib';
use File::Temp qw(tempfile);

use_ok( 'Finance::Bank::SentinelBenefits::Csv401kConverter' );
use_ok( 'Finance::Bank::SentinelBenefits::Csv401kConverter::SymbolMap' );

my $date = DateTime->new( year  => 2009 ,
			  month => 11   ,
			  day   => 02   ,);

my $symbol_map;

diag('constructing helper objects');
{
  my $fh_symbol_map;
  open($fh_symbol_map, "t/csv_401k_converter_data/test_symmap.csv") or die "unable to open symbol map";

  $symbol_map = Finance::Bank::SentinelBenefits::Csv401kConverter::SymbolMap->new(symbol_map => $fh_symbol_map);

										  close $fh_symbol_map or die "unable to close symbol map";
}

diag( 'constructor one param' );
{
    my (undef, $primary_filename) = tempfile(UNLINK=>1);

    diag("Temp file is $primary_filename, will be auto-removed") if $DEBUG;

    my $trade_input;
    open ($trade_input, "t/csv_401k_converter_data/01-one_line.csv") or die "Unable to open input file";

    my $parser = Finance::Bank::SentinelBenefits::Csv401kConverter->new
      (
       primary_output_file => $primary_filename,
       trade_input         => $trade_input,
       trade_date          => $date,
       symbol_map          => $symbol_map,
       account             => '12345',
     );

    close $trade_input or die "Unable to close input file";
  }

diag( 'parse one param' );
{
    my (undef, $primary_filename) = tempfile(UNLINK=>1);

    diag("Temp file is $primary_filename, will be auto-removed") if $DEBUG;

    my $trade_input;
    open ($trade_input, "t/csv_401k_converter_data/01-one_line.csv") or die "Unable to open input file";

    {
      my $parser = Finance::Bank::SentinelBenefits::Csv401kConverter->new
	(
	 primary_output_file => $primary_filename,