diff --git a/src/@dates/intersect.m b/src/@dates/intersect.m
index 95b8474a6049cf6ca251ac2f0bdf8b44da2491a6..dd2ef9b00c13975ebe0341a9b3f9681591332946 100644
--- a/src/@dates/intersect.m
+++ b/src/@dates/intersect.m
@@ -85,4 +85,17 @@ C.ndat = rows(time);
 %$ t(1) = dassert(c1,d2);
 %$ t(2) = dassert(isempty(c2),true);
 %$ T = all(t);
-%@eof:1
\ No newline at end of file
+%@eof:1
+
+%@test:2
+%$ % Define some dates objects
+%$ d1 = dates('1950Q1'):dates('1969Q4') ;
+%$ d2 = dates('1950Q1'):dates('1969Q4') ;
+%$
+%$ % Call the tested routine.
+%$ c1 = intersect(d1,d2);
+%$
+%$ % Check the results.
+%$ t(1) = dassert(c1,d1);
+%$ T = all(t);
+%@eof:2
\ No newline at end of file