Slightly "me too"-ish comment, but I maintain a series of platform check modules for a set of services that depend on an X500 server, my test routines assume that NET::LDAP and IO::Socket work and the modules have internal method tests which use potted return values which test as many edge cases as I can think of
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."