var t,n,i,j:longint;
    d:array[1..25000] of integer;
    ok:boolean;
begin
 read(t);
 for i:=1 to t do
 begin
  read(n);ok:=false;
  for j:=1 to n do
  begin
   read(d[j]);
   if d[j]=0 then ok:=true;
  end;
  if not ok then writeln('NO')
   else begin
         for j:=1 to n do
          if d[j]<>0 then
           if d[d[j]]=j then begin ok:=false;writeln('NO');break;end;
         if ok then writeln('YES');
        end;
 end;
end.

var t,n,i,j,k:longint;
    d:array[1..25000] of integer;
    p:array[0..3124] of set of 0..7;
    ok:boolean;
begin
 read(t);
 for i:=1 to t do
 begin
  read(n);ok:=false;
  for j:=1 to n do
  begin
   read(d[j]);
   if d[j]=0 then ok:=true;
  end;
  if not ok then writeln('NO')
   else begin
         fillchar(p,sizeof(p),0);
         for j:=1 to n do
          if (d[j]<>0)and not ((j-1) mod 8 in p[(j-1) div 8]) then
          begin
           p[(j-1) div 8]:=p[(j-1) div 8]+[(j-1) mod 8];k:=j;
           repeat
            k:=d[k];
            if (k-1) in p[(k-1) div 8] then
             begin writeln('NO');ok:=false;break;end;
            p[(k-1) div 8]:=p[(k-1) div 8]+[(k-1) mod 8];
           until d[k]=0;
           fillchar(p,sizeof(p),0);
           if not ok then break;
          end;
         if ok then writeln('YES');
        end;
 end;
end.

"if d[j]=0 then ok:=true;"
"...надо записать «YES» если показания детей, по крайней мере, выглядят непротиворечивыми: РОВНО ОДИН ребёнок признался в том, что он разбил кружку..."