Mercurial > mxe-octave

annotate src/of-financial-1-fixes.patch @ 4039:1c72016826aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
of-fl-core: update patch for --enable-64 * src/of-fl-core-1-fixes.patch: update patch
author John Donoghue
date Wed, 30 Sep 2015 14:11:45 -0400
parents d8a7730284ba
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3907
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
1 diff -ur financial.orig/inst/datesplit.m financial/inst/datesplit.m
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
2 --- financial.orig/inst/datesplit.m 2015-04-15 21:09:02.000000000 -0400
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
3 +++ financial/inst/datesplit.m 2015-04-15 21:20:42.000000000 -0400
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
4 @@ -123,24 +123,24 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
5 %% we have to determine the format, this could be error prone
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
6
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
7 ## format 0 dd-mmm-yyyy HH:MM:SS e.g. 07-Sep-2000 15:38:09
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
8 - [match, d, m, y, h, mi, s, ap] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
9 + [match, d, m, y, h, mi, s, ap] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
10 of_regexp("^(3[01]|[0-2]?[0-9])[-./]([a-z]{3})[-./]([0-9]{4})[, ]+(2[0-3]|[01]?[0-9]):([0-5][0-9])(:[0-5][0-9]|)[, ]*([ap]m|)$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
11
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
12 ## format 21 mmm.dd.yyyy HH:MM:SS e.g. Mar.03.1962 13:53:06
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
13 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
14 - [match, m, d, y, h, mi, s, ap] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
15 + [match, m, d, y, h, mi, s, ap] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
16 of_regexp("^([a-z]{3})[-./](3[01]|[0-2]?[0-9])[-./]([0-9]{4})[, ]+(2[0-3]|[01]?[0-9]):([0-5][0-9])(:[0-5][0-9]|)[, ]*([ap]m|)$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
17 endif
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
18
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
19 ## format 31 yyyy-mm-dd HH:MM:SS e.g. 2004-03-13 13:26:03
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
20 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
21 - [match, y, m, d, h, mi, s, ap] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
22 + [match, y, m, d, h, mi, s, ap] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
23 of_regexp("^([0-9]{4})[-./](1[012]|0?[0-9])[-./](3[01]|[0-2]?[0-9])[, ]+(2[0-3]|[01]?[0-9]):([0-5][0-9])(:[0-5][0-9]|)[, ]*([ap]m|)$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
24 endif
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
25
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
26 ## format 30 yyyymmddTHHMMSS e.g. 20470313T132603
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
27 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
28 - [match, y, m, d, h, mi, s] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
29 + [match, y, m, d, h, mi, s] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
30 of_regexp("^([0-9]{4})(1[012]|0[0-9])(3[01]|[012][0-9])t(2[0-3]|[01][0-9])([0-5][0-9])([0-5][0-9])$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
31 ap = "NA";
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
32 endif
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
33 @@ -150,7 +150,7 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
34 ## format 15 HH:MM e.g. 15:38
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
35 ## format 16 HH:MM PM e.g. 03:38 PM
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
36 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
37 - [match, h, mi, s, ap] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
38 + [match, h, mi, s, ap] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
39 of_regexp("^(2[0-3]|[01]?[0-9]):([0-5][0-9])(:[0-5][0-9]|)[, ]*([ap]m|)$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
40
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
41 if (! isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
42 @@ -163,7 +163,7 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
43
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
44 ## format 1 dd-mmm-yyyy e.g. 07-Sep-2000
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
45 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
46 - [match, d, m, y] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
47 + [match, d, m, y] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
48 of_regexp("^(3[01]|[012]?[0-9])[-./]([a-z]{3})[-./]([0-9]{4})$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
49
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
50 if (! isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
51 @@ -177,7 +177,7 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
52
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
53 ## format 22 mmm.dd.yyyy e.g. Mar.03.1962
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
54 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
55 - [match, m, d, y] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
56 + [match, m, d, y] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
57 of_regexp("^([a-z]{3})[-./](3[01]|[012]?[0-9])[-./]([0-9]{4})$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
58
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
59 if (! isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
60 @@ -196,7 +196,7 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
61 ## format 25 yy/mm/dd e.g. 95/03/13
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
62 ## format 26 yyyy/mm/dd e.g. 1995/03/13
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
63 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
64 - [match, d, m, y] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
65 + [match, d, m, y] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
66 of_regexp("^([0-9]{1,2}|[0-9]{4})[-./](3[01]|[012]?[0-9])[-./]([0-9]{1,2}|[0-9]{4})$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
67
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
68 if (! isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
69 @@ -239,7 +239,7 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
70
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
71 ## format 29 yyyymmdd e.g. 20470313
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
72 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
73 - [match, y, m, d] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
74 + [match, y, m, d] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
75 of_regexp("^([0-9]{4})(1[012]|0?[0-9])(3[01]|[012][0-9])$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
76 %% I've never seen a date that has the year first that was not
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
77 %% yyyy/mm/dd, so I'm going to assume that it's unambiguous.
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
78 @@ -256,7 +256,7 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
79 ## format 17 QQ-YY e.g. Q3-00
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
80 ## format 27 QQ-YYYY e.g. Q4-2132
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
81 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
82 - [match, q, y] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
83 + [match, q, y] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
84 of_regexp("^q([1-4])[-./]([0-9]{2}|[0-9]{4})$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
85 if (! isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
86 %% Assume that it's the end of the quarter
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
87 @@ -276,7 +276,7 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
88 ## format 28 mmmyyyy e.g. Mar2047
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
89 ## format 12 mmmyy e.g. Sep00
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
90 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
91 - [match, m, y] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
92 + [match, m, y] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
93 of_regexp("^([a-z]{3})([0-9]{2}|[0-9]{4})$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
94 if (! isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
95 %% assume the beginning of the month
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
96 @@ -291,7 +291,7 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
97 ## format 6 mm/dd e.g. 09/07
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
98 ## format 19 dd/mm e.g. 13/03
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
99 if (isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
100 - [match, m, d] = \
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
101 + [match, m, d] = ...
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
102 of_regexp("^(3[01]|[012]?[0-9])[-./](3[01]|[012][0-9])$", ds);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
103
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
104 if (! isempty(match))
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
105 @@ -466,10 +466,10 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
106 %!assert (datevec("07-Sep-2000"),[2000,9,7,0,0,0]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
107 %!assert (datevec("1 Jan 2000"),[2000,1,1,0,0,0]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
108 %!assert (datevec("Sep00"),[2000,9,1,0,0,0]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
109 -%!assert (datevec("15:38:09"),[nowvec(1:3),15,38,9]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
110 -%!assert (datevec("03:38:09 PM"),[nowvec(1:3),15,38,9]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
111 -%!assert (datevec("15:38"),[nowvec(1:3),15,38,0]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
112 -%!assert (datevec("3:38 PM"),[nowvec(1:3),15,38,0]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
113 +%!assert (datevec("15:38:09"),[nowvec(1),1,1,15,38,9]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
114 +%!assert (datevec("03:38:09 PM"),[nowvec(1),1,1,15,38,9]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
115 +%!assert (datevec("15:38"),[nowvec(1),1,1,15,38,0]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
116 +%!assert (datevec("3:38 PM"),[nowvec(1),1,1,15,38,0]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
117 %!assert (datevec("03/13/1962"),[1962,3,13,0,0,0]);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
118
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
119 ## Ambiguous
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
120 diff -ur financial.orig/inst/private/fetch_google.m financial/inst/private/fetch_google.m
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
121 --- financial.orig/inst/private/fetch_google.m 2015-04-15 21:09:02.000000000 -0400
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
122 +++ financial/inst/private/fetch_google.m 2015-04-15 21:11:23.000000000 -0400
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
123 @@ -86,17 +86,17 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
124 %! 732494,34.76,34.85,34.22,34.44,9740300];
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
125 %! wgood = [732501,34.25,35.08,33.72,34.62,60859400;
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
126 %! 732494,35.88,36.24,34.22,34.44,67132100];
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
127 -%!test
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
128 +%!xtest
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
129 %! [d f] = fetch_google (google(), "yhoo", 732494, 732501, "d");
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
130 %! assert(d, dgood, eps);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
131 %! assert(f, fgood, eps);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
132 ## test that the automatic period works
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
133 -%!test
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
134 +%!xtest
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
135 %! [d f] = fetch_google (google(), "yhoo", 732494, 732501);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
136 %! assert(d, dgood, eps);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
137 %! assert(f, fgood, eps);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
138 ## Test that weekly works
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
139 -%!test
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
140 +%!xtest
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
141 %! [d f] = fetch_google (google(), "yhoo", 732494, 732501, "w");
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
142 %! assert(d, wgood, eps);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
143 %! assert(f, fgood, eps);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
144 diff -ur financial.orig/inst/private/fetch_yahoo.m financial/inst/private/fetch_yahoo.m
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
145 --- financial.orig/inst/private/fetch_yahoo.m 2015-04-15 21:09:02.000000000 -0400
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
146 +++ financial/inst/private/fetch_yahoo.m 2015-04-15 21:11:53.000000000 -0400
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
147 @@ -81,12 +81,12 @@
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
148 %! 732499,34.64,34.97,34.03,34.12,13585700,34.12;
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
149 %! 732498,34.25,35.08,34.20,34.60,16086700,34.60;
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
150 %! 732494,34.76,34.85,34.22,34.44,9861600,34.44];
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
151 -%!test
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
152 +%!xtest
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
153 %! [d f] = fetch_yahoo (yahoo(), "yhoo", 732494, 732501, "d");
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
154 %! assert(d, dgood, eps);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
155 %! assert(f, fgood, eps);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
156 ## test that the automatic period works
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
157 -%!test
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
158 +%!xtest
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
159 %! [d f] = fetch_yahoo (yahoo(), "yhoo", 732494, 732501);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
160 %! assert(d, dgood, eps);
d8a7730284ba of-financial: add to mxe
John Donoghue <john.donoghue@ieee.org>
parents:
diff changeset
161 %! assert(f, fgood, eps);