diff --git a/src/@dates/dates.m b/src/@dates/dates.m
index 554d0ef3a34b9bb40c7484ca321c86477bfd131b..71aebea2c5e854118fbb8772a3941a42252fc851 100644
--- a/src/@dates/dates.m
+++ b/src/@dates/dates.m
@@ -1,4 +1,4 @@
-classdef dates<handle
+classdef dates<handle % --*-- Unitary tests --*--
 
 % Copyright (C) 2014-2015 Dynare Team
 %
@@ -125,12 +125,12 @@ end % classdef
 %$ e.freq = 4;
 %$
 %$ % Call the tested routine.
-%$ d = dates(B1,B2,B3,B4);
+%$ d = dates(B1,B2,B3,B4); 
 %$
 %$ % Check the results.
-%$ t(1) = dassert(d.time,e.time);
-%$ t(2) = dassert(d.freq,e.freq);
-%$ t(3) = dassert(d.ndat(),e.ndat());
+%$ t(1) = dassert(d.time, e.time);
+%$ t(2) = dassert(d.freq, e.freq);
+%$ t(3) = dassert(d.ndat(), size(e.time, 1));
 %$ T = all(t);
 %@eof:1
 
@@ -151,7 +151,7 @@ end % classdef
 %$ % Check the results.
 %$ t(1) = dassert(d.time,e.time);
 %$ t(2) = dassert(d.freq,e.freq);
-%$ t(3) = dassert(d.ndat(),e.ndat());
+%$ t(3) = dassert(d.ndat(), size(e.time, 1));
 %$ T = all(t);
 %@eof:2
 
@@ -170,9 +170,9 @@ end % classdef
 %$ d = dates(B1,B2,B3,B4);
 %$
 %$ % Check the results.
-%$ t(1) = dassert(d.time,e.time);
-%$ t(2) = dassert(d.freq,e.freq);
-%$ t(3) = dassert(d.ndat(),e.ndat());
+%$ t(1) = dassert(d.time, e.time);
+%$ t(2) = dassert(d.freq, e.freq);
+%$ t(3) = dassert(d.ndat(), size(e.time, 1));
 %$ T = all(t);
 %@eof:3