LogitModelFit and GeneralizedLinearModelFit can give the exact same estimates:
data = {{1, 0}, {2, 0}, {2, 0}, {2, 1}, {2, 0}, {3, 0}, {3, 0}, {3, 0}, {3, 1}, {3, 1}, {3, 1},
{4, 1}, {4, 1}, {5, 0}, {6, 1}, {7, 1}};
LogitModelFit[data, x, x]["ParameterTable"]

GeneralizedLinearModelFit[data, x, x, ExponentialFamily -> "Binomial"]["ParameterTable"]
