Win8 Strawberry 5.8.9.5 (32)  Sun 07/24/2022 21:31:02
C:\@Work\Perl\monks\bliako
>perl CmpDay.t
ok 1 - use CmpDay;
#
# === testing under perl version 5.008009 ===
#
1..41
# invalid weekday names (no wday numbers)
ok 2 - '' -> undef
ok 3 - 'x' -> undef
ok 4 - 'xyz' -> undef
ok 5 - 'xsun' -> undef
ok 6 - 'sunx' -> undef
ok 7 - 'xsunx' -> undef
ok 8 - 'mondaytuesday' -> undef
ok 9 - 'mondayxtuesday' -> undef
ok 10 - 'sunsun' -> undef
# valid weekday names -> wday numbers
ok 11 - 'su' -> 0
ok 12 - 'sun' -> 0
ok 13 - 'sunday' -> 0
ok 14 - 'sU' -> 0
ok 15 - 'Su' -> 0
ok 16 - 'SU' -> 0
ok 17 - 'sUnDaY' -> 0
ok 18 - 'we' -> 3
ok 19 - 'wed' -> 3
ok 20 - 'wednesday' -> 3
ok 21 - 'wE' -> 3
ok 22 - 'We' -> 3
ok 23 - 'WE' -> 3
ok 24 - 'WednEsDaY' -> 3
ok 25 - 'sa' -> 6
ok 26 - 'sat' -> 6
ok 27 - 'saturday' -> 6
ok 28 - 'sA' -> 6
ok 29 - 'Sa' -> 6
ok 30 - 'SA' -> 6
ok 31 - 'sAtUrDaY' -> 6
# invalid weekday numbers (no corresponding wday name)
ok 32 - 7 -> undef
ok 33 - -8 -> undef
# valid weekday numbers -> wday names
ok 34 - 0 -> "sunday"
ok 35 - -7 -> "sunday"
ok 36 - 3 -> "wednesday"
ok 37 - -4 -> "wednesday"
ok 38 - 6 -> "saturday"
ok 39 - -1 -> "saturday"
#
# test sorting of mixed short/long day names
#
ok 40 - shuffled day names
#
# === testing done ===
#
ok 41 - no warnings