diff --git a/src/@dates/char.m b/src/@dates/char.m
index a86c823423d0b41466d75989ff75466d2289bcd2..d40f2917b82334e0b4939b4abe53f14438072362 100644
--- a/src/@dates/char.m
+++ b/src/@dates/char.m
@@ -1,4 +1,4 @@
-function s = char(o)
+function s = char(o) % --*-- Unitary tests --*--
 
 % Given a one element dates object, returns a string with the formatted date.
 %
@@ -27,4 +27,95 @@ if length(o)>1
     error('dates:char:ArgCheck', 'The input argument must be a dates object with one element!')
 end
 
-s = date2string(o.time, o.freq);
\ No newline at end of file
+s = date2string(o.time, o.freq);
+
+%@test:1
+%$ % Define a dates object
+%$ o = dates('1950Q1');
+%$
+%$ % Call the tested routine.
+%$ try
+%$     str = char(o);
+%$     t(1) = true;
+%$ catch
+%$     t(1) = false;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dassert(str,'1950Q1');
+%$ end
+%$ T = all(t);
+%@eof:1
+
+%@test:2
+%$ % Define a dates object
+%$ o = dates('1950M1');
+%$
+%$ % Call the tested routine.
+%$ try
+%$     str = char(o);
+%$     t(1) = true;
+%$ catch
+%$     t(1) = false;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dassert(str,'1950M1');
+%$ end
+%$ T = all(t);
+%@eof:2
+
+%@test:3
+%$ % Define a dates object
+%$ o = dates('1950W50');
+%$
+%$ % Call the tested routine.
+%$ try
+%$     str = char(o);
+%$     t(1) = true;
+%$ catch
+%$     t(1) = false;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dassert(str,'1950W50');
+%$ end
+%$ T = all(t);
+%@eof:3
+
+%@test:4
+%$ % Define a dates object
+%$ o = dates('1950Y');
+%$
+%$ % Call the tested routine.
+%$ try
+%$     str = char(o);
+%$     t(1) = true;
+%$ catch
+%$     t(1) = false;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dassert(str,'1950Y');
+%$ end
+%$ T = all(t);
+%@eof:4
+
+%@test:5
+%$ % Define a dates object
+%$ o = dates('1950A');
+%$
+%$ % Call the tested routine.
+%$ try
+%$     str = char(o);
+%$     t(1) = true;
+%$ catch
+%$     t(1) = false;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dassert(str,'1950Y');
+%$ end
+%$ T = all(t);
+%@eof:5
+