testEnvioCorreoConCopiaOculta

    | listaDestinatarios|

    clienteCorreo loginUsuario: '[email protected]' contrasenia: 'carlitos'.

    listaDestinatarios := LinkedList new.
    listaDestinatarios add: '[email protected]'.
    listaDestinatarios add: '[email protected]'.

    clienteCorreo enviarCorreoConDestinatario: '[email protected]'
                              conCopiaOculta: listaDestinatarios
                              asunto: 'Saludo Con Copia'
                              mensaje: 'Hola!!'.

    clienteCorreo logout.
    clienteCorreo loginUsuario: '[email protected]' contrasenia: 'anita'.
    self should: (clienteCorreo asuntoUltimoMensajeRecibido)  = 'Saludo Con Copia'.
    self shouldnt: ((clienteCorreo copiadosUltimoMensajeRecibido) includes: listaDestinatarios ).
    clienteCorreo logout.

    clienteCorreo loginUsuario: '[email protected]' contrasenia: 'jorgito'.
    self should: (clienteCorreo asuntoUltimoMensajeRecibido)  = 'Saludo Con Copia'.
    self shouldnt: ((clienteCorreo copiadosUltimoMensajeRecibido) includes: listaDestinatarios ).