scalaz lens test