#=============================================================================
# File: 03_SetRanges.t
# Author: Dave Oberholtzer, (daveo@obernet.com)
# Copyright (c)2005, David Oberholtzer
# Date: 2001/03/23
# Use: Testing file for FameHLI functions
# Editor: vi with tabstops=4
#=============================================================================
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
BEGIN {
$| = 1;
require("./t/subs.pm");
if (!$ENV{FAME}) {
print "1..0 # Skipped: No FAME Environment Variable defined!\n";
exit;
} else {
print "1..5\n";
}
}
END {print "not ok 1\n" unless $loaded;}
$loaded = 1;
print "ok 1\n";
$| = 1;
######################### End of black magic.
use FameHLI::API;
use FameHLI::API::HLI ':all';
$test::num = 0;
$test::num = 1;
my $err = 0;
my $warn = 0;
{
;# ------------------------------------------------------------
;# ------------------------------------------------------------
my $log = StartTest("03_SetRanges");
ShowResults($log, 1,0,"cfmini", FameHLI::API::Cfmini());
;# ------------------------------------------------------------
printf("--> Setting Ranges\n");
;# ------------------------------------------------------------
my $rng;
my $syear = 1999;
my $sprd = 1;
my $eyear = 1999;
my $eprd = 31;
my $numobs = -1;
ShowResults($log, 1,0,"cfmsfis",
FameHLI::API::Cfmsfis(HBUSNS, $syear, $sprd,
$eyear, $eprd, $rng, $numobs),
"sy:%s, sp:%s, ey:%s, ep:%s, n:%s",
$syear, $sprd, $eyear, $eprd, $numobs);
$eyear = -1;
$eprd = -1;
ShowResults($log, 1,0,"cfmsrng",
FameHLI::API::Cfmsrng(HBUSNS, $syear, $sprd,
$eyear, $eprd, $rng, $numobs),
"sy:%s, sp:%s, ey:%s, ep:%s, n:%s",
$syear, $sprd, $eyear, $eprd, $numobs);
ShowResults($log, 1,0,"cfmfin", FameHLI::API::Cfmfin());
}