testEnvioCorreoConCopiaOculta

    | listaDestinatarios|

    clienteCorreo loginUsuario: 'carlosperez@gmail.com' contrasenia: 'carlitos'.

    listaDestinatarios := LinkedList new.
    listaDestinatarios add: 'anaperez@gmail.com'.
    listaDestinatarios add: 'jorgeperez@gmail.com'.

    clienteCorreo enviarCorreoConDestinatario: 'juanperez@gmail.com'
                              conCopiaOculta: listaDestinatarios
                              asunto: 'Saludo Con Copia'
                              mensaje: 'Hola!!'.

    clienteCorreo logout.
    clienteCorreo loginUsuario: 'anaperez@gmail.com' contrasenia: 'anita'.
    self should: (clienteCorreo asuntoUltimoMensajeRecibido)  = 'Saludo Con Copia'.
    self shouldnt: ((clienteCorreo copiadosUltimoMensajeRecibido) includes: listaDestinatarios ).
    clienteCorreo logout.

    clienteCorreo loginUsuario: 'jorgeperez@gmail.com' contrasenia: 'jorgito'.
    self should: (clienteCorreo asuntoUltimoMensajeRecibido)  = 'Saludo Con Copia'.
    self shouldnt: ((clienteCorreo copiadosUltimoMensajeRecibido) includes: listaDestinatarios ).