uses crt;
var f,f1:text; n,d,i,j,k,t,g:longint;
a:array[1..10000000]of longint;
begin
clrscr;
assign(f,'TAMGIAC.INP');reset(f);
readln(f,t);
assign(f1,'TAMGIAC.OUT');rewrite(f1);
for g:=1 to t do
begin
readln(f,n); d:=0;
for i:=1 to n do read(f,a[i]);
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
if (A[i]+a[j]>=a[k])and(A[i]+a[k]>=a[j])and(A[j]+a[k]>=a[i]) then
inc(d);
writeln(f1,d);
end;
close(f1);
close(f);
end.
