1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#!/usr/bin/perl -w
#
# HU.pm
#
# Version 0.1 - test of Hungarian (HU) F::Q
# This version based on za.t module
#
# Zoltan Levardy <zoltan at levardy dot org>
# 2009
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 21;
# Test za functions.
my $q = Finance::Quote->new("HU");
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
#getting quotes for shares by ticker (OTP,ANY,RABA),
# shares by ISIN (ticker: MTELEKOM: HU0000073507, MOL: HU0000068952)
# and for funds by ISIN (HU0000702709,HU0000706437)
# and finally an incorrect ticker/isin is ZOL, must fail.
my %quotes = $q->hu("OTP","HU0000068952","HU0000702709","ZOL"); #,"ANY","RABA","HU0000073507","HU0000068952","HU0000702709","HU0000706437","ZOL");
ok(%quotes);
# Check that the last and date values are defined.
ok($quotes{"OTP","success"});
ok($quotes{"OTP","last"} > 0);
ok(length($quotes{"OTP","date"}) > 0);
ok(substr($quotes{"OTP","isodate"},0,4) == $year ||
substr($quotes{"OTP","isodate"},0,4) == $lastyear);
ok(substr($quotes{"OTP","date"},6,4) == $year ||
substr($quotes{"OTP","date"},6,4) == $lastyear);
ok($quotes{"OTP","currency"} eq "HUF");
# MTELEKOM: HU0000073507
ok($quotes{"HU0000068952","success"});
ok($quotes{"HU0000068952","last"} > 0);
ok(length($quotes{"HU0000068952","date"}) > 0);
ok(substr($quotes{"HU0000068952","isodate"},0,4) == $year ||
substr($quotes{"HU0000068952","isodate"},0,4) == $lastyear);
ok(substr($quotes{"HU0000068952","date"},6,4) == $year ||
substr($quotes{"HU0000068952","date"},6,4) == $lastyear);
ok($quotes{"HU0000068952","currency"} eq "HUF");
# Fund: Budapest II, isin: HU0000702709
ok($quotes{"HU0000702709","success"});
ok($quotes{"HU0000702709","last"} > 0);
ok(length($quotes{"HU0000702709","date"}) > 0);
ok(substr($quotes{"HU0000702709","isodate"},0,4) == $year ||
substr($quotes{"HU0000702709","isodate"},0,4) == $lastyear);
ok(substr($quotes{"HU0000702709","date"},6,4) == $year ||
substr($quotes{"HU0000702709","date"},6,4) == $lastyear);
ok($quotes{"HU0000702709","currency"} eq "HUF");
# Check that a ZOL fund returns no-success.
ok(!$quotes{"ZOL","success"});
ok($quotes{"ZOL","errormsg"} eq "Parse error" || $quotes{"ZOL","errormsg"} eq "The provided ISIN/TICKER is invalid. Your symbol was 'ZOL'." || $quotes{"ZOL","errormsg"} eq "Alternate ISIN pickup also not working..." );
|
