diff --git a/matlab/@dynDate/eq.m b/matlab/@dynDate/eq.m index 404a04b053b6093ecd007ba3dffdb452af573128..9bd0bcaf31a66c383d918f9d0637c351c742e9af 100644 --- a/matlab/@dynDate/eq.m +++ b/matlab/@dynDate/eq.m @@ -46,8 +46,6 @@ function c = eq(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. -% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr - if nargin~=2 error('dynDate::eq: I need exactly two input arguments!') end @@ -63,8 +61,6 @@ end c = isequal(a.time,b.time); %@test:1 -%$ addpath ../matlab -%$ %$ % Define some dates %$ date_1 = 1950; %$ date_2 = '1950Q2'; @@ -94,3 +90,32 @@ c = isequal(a.time,b.time); %$ T = all(t); %@eof:1 +%@test:2 +%$ % Define some dates +%$ date_1 = 1950; +%$ date_2 = '1950q2'; +%$ date_3 = '1950m10'; +%$ date_4 = '1950w50'; +%$ date_5 = '1950w32'; +%$ +%$ % Call the tested routine. +%$ d1 = dynDate(date_1); +%$ d2 = dynDate(date_2); +%$ d3 = dynDate(date_3); +%$ d4 = dynDate(date_4); +%$ d5 = dynDate(date_5); +%$ try +%$ i1 = (d1==d2); +%$ t1 = 0; +%$ catch +%$ t1 = 1; +%$ end +%$ i2 = (d2==d2); +%$ i3 = (d4==d5); +%$ +%$ % Check the results. +%$ t(1) = t1; +%$ t(2) = dyn_assert(i2,1); +%$ t(3) = dyn_assert(i3,0); +%$ T = all(t); +%@eof:2 \ No newline at end of file