# Running "date -d mon +%a" on a Monday must print Mon.
['dow', "-d $wday_str +%a", {OUT => ucfirst $wday_str}],
# It had better be the same date, too.
- ['dow2', "-d $wday_str +%F", {OUT => strftime("%F", @d)}],
+ ['dow2', "-d $wday_str +%Y-%m-%d", {OUT => strftime("%Y-%m-%d", @d)}],
- ['next-dow', "-d 'next $wday_str' +%F", {OUT => strftime("%F", @d_week)}],
+ ['next-dow', "-d 'next $wday_str' +%Y-%m-%d",
+ {OUT => strftime("%Y-%m-%d", @d_week)}],
);
# Append "\n" to each OUT=> RHS if the expected exit value is either