Hola, Ignacio y Tomás:

Sí, en la prueba 2 había un nombre de más. Ya actualicé el enunciado. Respecto a lo que dice Tomás, es cierto que estaba mal el assert, pero lo que proponés cambiaría el requerimiento, ya que no le importaría el orden de los nombres (lo cual es válido para practicar un ejercicio distinto).

Las pruebas quedaron actualizadas así:

test02SeAgreganDosSociosAlClubYSeDevuelveElConjuntoDeSusNombres
    " Arrange "
    | socio1 socio2 nombresSocios |
	
    socio1 := Socio new.
    socio1 establecerNombre: 'Pablo'.
    club agregarSocio: socio1.

    socio2 := Socio new.
    socio2 establecerNombre: 'Joaquin'.

    club agregarSocioVIP: socio2.
	
    " Act "
    nombresSocios := club nombresSocios.
	
    " Assert "
    self assertCollection: nombresSocios equals: (OrderedCollection withAll: #('Pablo' 'Joaquin'))

test06SeAgreganTresSociosAlClubYSeDevuelveElConjuntoDeSusNombres
    " Arrange "
    | socio1 socio2 socio3 nombresSocios |
	
    socio1 := Socio new.
    socio1 establecerNombre: 'Carlos'.
    club agregarSocio: socio1.

    socio2 := Socio new.
    socio2 establecerNombre: 'Marcio'.

    club agregarSocioVIP: socio2.

    socio3 := Socio new.
    socio3 establecerNombre: 'Pablo'.

    club agregarSocio: socio3.
	
    " Act "
    nombresSocios := club nombresSocios.
	
    " Assert "		
    self assertCollection: nombresSocios
        equals: (OrderedCollection withAll: #('Carlos' 'Marcio' 'Pablo'))

Saludos,

Tomás