--- parser3/tests/074.html 2003/03/04 11:51:55 1.1
+++ parser3/tests/074.html 2003/07/24 11:25:57 1.2
@@ -0,0 +1,11 @@
+@main[]
+^monthdays(2000;1)
+^monthdays(2000;2)
+^monthdays(2003;1)
+^monthdays(2003;2)
+
+@monthdays[year;month]
+$from[^date::create($year;$month;1)]
+$to[^date::create($from)] ^to.roll[month](+1)
+^eval($to-$from)
+