content: import Solucion_t1
  import Test.HUnit
  import Data.List
  
  main = runTestTT allTests
  
  allTests = test[
      "Tablero 1 x 1" ~: masRepetido [[10]] ~?= 10,
      "Un elemento mas repetido" ~: masRepetido [[1,2,3], [4,1,1], [1, 10,1]] ~?= 1,
      "Tablero con todos numeros iguales" ~: masRepetido [[3,3], [3,3]] ~?= 3,
      "Tablero con todos numeros distintos" ~: expectAny (masRepetido [[10,9,8,7], [6,5,4,3], [2,1,11,12]]) [10,9,8,7,6,5,4,3,2,1,11,12],
      "Tablero con dos numeros mas repetidos" ~: expectAny (masRepetido [[11,23,73,104], [11,20,39,40], [1,2,73,4], [13, 31, 7,9]]) [11, 73]
      ]
  
  -- expectAny permite saber si el elemenot que devuelve la función es alguno de los esperados
  expectAny actual expected = elem actual expected ~? ("expected any of: " ++ show expected ++ "\n but got: " ++ show actual)
      