From a9b8fe036eca63b2afd794b49af8894f51020a22 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Adjemian=20=28Charybdis=29?=
<stephane.adjemian@univ-lemans.fr>
Date: Wed, 18 Nov 2015 10:24:42 +0100
Subject: [PATCH] Added unit tests.
---
src/@dates/char.m | 95 ++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 93 insertions(+), 2 deletions(-)
diff --git a/src/@dates/char.m b/src/@dates/char.m
index a86c823..d40f291 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
+
--
GitLab