var
  t,w,i,j:longint;
  a:array[1..4] of int64;
  t1:int64;
begin
  readln(t);
  for w:=1 to t do
  begin
    readln(a[1],a[2],a[3],a[4]);
    for i:=1 to 3 do
      for j:=i+1 to 4 do
      if a[i]<a[j] then begin t1:=a[i];a[i]:=a[j];a[j]:=t1;end;
    if a[4]=0 then begin writeln('No');continue;end;
    if a[1]-a[2]-a[3]<a[4] then writeln('Yes') else writeln('No');
  end;
end.