(:*******************************************************:)
(: Test: K-YearFromDateFunc-5                            :)
(: Written by: Frans Englich                             :)
(: Date: 2006-10-05T18:29:40+02:00                       :)
(: Purpose: A test whose essence is: `year-from-date(xs:date("2000-02-03")) eq 2000`. :)
(:*******************************************************:)
year-from-date(xs:date("2000-02-03")) eq 2000