Mercurial > hg > octave-nkf

diff scripts/time/is_leap_year.m @ 7411:83a8781b529d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-22 21:52:25 by jwe]
author jwe
date Tue, 22 Jan 2008 21:52:26 +0000
parents a1dbe9d80eee
children eb63fbe60fab
line wrap: on
line diff
--- a/scripts/time/is_leap_year.m
+++ b/scripts/time/is_leap_year.m
@@ -47,3 +47,10 @@
             | rem (year, 400) == 0);
 
 endfunction
+
+%!assert((is_leap_year (2000) == 1 && is_leap_year (1976) == 1
+%! && is_leap_year (1000) == 0 && is_leap_year (1800) == 0
+%! && is_leap_year (1600) == 1));
+
+%!error is_leap_year (1, 2);
+