view release on metacpan or  search on metacpan

t/APXCreator.t  view on Meta::CPAN

#!/usr/bin/perl

use 5.006;
use strict;
use warnings;
use Test::More;
use FindBin;
use lib "$FindBin::Bin/../lib";

BEGIN { use_ok('Amibroker::OLE::APXCreator'); }

my $new_apx_file = Amibroker::OLE::APXCreator::create_apx_file(
    {
        afl_file   => "$FindBin::Bin/test_afl.afl",
        symbol     => 'ADANIPORTS-I',
        timeframe  => '20-minute',
        from       => '01-09-2015',
        to         => '20-09-2015',

t/Interface.t  view on Meta::CPAN

#!/usr/bin/perl

use 5.006;
use strict;
use warnings;
use Test::More;
use FindBin;
use lib "$FindBin::Bin/../lib";

BEGIN { use_ok('Amibroker::OLE::Interface'); }
#
# Checking with right parameters
#
my $obj1 = Amibroker::OLE::Interface->new(
    { dbpath => 'C:\TradingTools\Amibroker5.90.1\InOutData' } );
isa_ok( $obj1, 'Amibroker::OLE::Interface' );

my $obj2 = Amibroker::OLE::Interface->new(