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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!/usr/bin/perl -w
# Test to see if Finance::Quote can at least be loaded and used.
use strict;
use Test;
BEGIN {plan tests => 19};
use Finance::Quote;
ok(1); # Yup. It loaded okay. Good. :)
my $quote = Finance::Quote->new();
ok($quote); # Did we get an object okay?
# Get Today's date
my ($month, $day, $year2) = (localtime())[4,3,5];
$month++;
my $year4 += $year2 + 1900; # 2007
my $year4m += $year2 + 1900 - 1;# 2006
$year2 -= 100; # 05
my $isotoday = sprintf("%04d-%02d-%02d", $year4, $month, $day);
my $ustoday = sprintf("%02d/%02d/%04d", $month, $day, $year4);
# Test date functions
my %info;
$quote->store_date(\%info, "test", {today => 1});
ok($info{"test","isodate"} eq $isotoday);
ok($info{"test","date"} eq $ustoday);
# Test various permutions of an ISO Date as input
%info = ();
$quote->store_date(\%info, "test", {isodate => "2004-12-31"});
ok($info{"test","date"} eq "12/31/2004");
%info = ();
$quote->store_date(\%info, "test", {isodate => "2004 Dec 31"});
ok($info{"test","date"} eq "12/31/2004");
%info = ();
$quote->store_date(\%info, "test", {isodate => "2004 December 31"});
ok($info{"test","date"} eq "12/31/2004");
# Test various permutions of an US Date as input
%info = ();
$quote->store_date(\%info, "test", {usdate => "12/31/2004"});
ok($info{"test","isodate"} eq "2004-12-31");
%info = ();
$quote->store_date(\%info, "test", {usdate => "Dec 31, 2004"});
ok($info{"test","isodate"} eq "2004-12-31");
%info = ();
$quote->store_date(\%info, "test", {usdate => "December 31 2004"});
ok($info{"test","isodate"} eq "2004-12-31");
# Test various permutions of an European Date as input
%info = ();
$quote->store_date(\%info, "test", {eurodate => "31/12/2004"});
ok($info{"test","isodate"} eq "2004-12-31");
%info = ();
$quote->store_date(\%info, "test", {eurodate => "31 December 2004"});
ok($info{"test","isodate"} eq "2004-12-31");
%info = ();
$quote->store_date(\%info, "test", {eurodate => "31 Dec, 2004"});
ok($info{"test","isodate"} eq "2004-12-31");
# Try some other permutions. A recent change to the date handling
# code changes the behavior if a year is not explicitly provided. Now
# it will look at the month and decide if the date is in the current
# year or is from the previous year. This code still has to handle
# being executed on 12/31, thus the dual tests for each date.
%info = ();
$quote->store_date(\%info, "test", {day=>"31", month=>"12"});
ok($info{"test","date"} eq "12/31/$year4" ||
$info{"test","date"} eq "12/31/$year4m");
ok($info{"test","isodate"} eq "$year4-12-31" ||
$info{"test","isodate"} eq "$year4m-12-31");
%info = ();
$quote->store_date(\%info, "test", {day=>"31", month=>"December"});
ok($info{"test","date"} eq "12/31/$year4" ||
$info{"test","date"} eq "12/31/$year4m");
ok($info{"test","isodate"} eq "$year4-12-31" ||
$info{"test","isodate"} eq "$year4m-12-31");
%info = ();
$quote->store_date(\%info, "test", {day=>"31", month=>"December", year => $year2});
ok($info{"test","date"} eq "12/31/$year4" ||
$info{"test","date"} eq "12/31/$year4m");
ok($info{"test","isodate"} eq "$year4-12-31" ||
$info{"test","isodate"} eq "$year4m-12-31");
|
