Many thanks @Hans Milton and @ David Reiss with your help I can solve my problem
Another alternative is:
Equal @@ list
Length[Union[list]]===1
Will test this... Or
MatchQ[list, {x_..}]