KMP模板

var s,t:array[0..2000000]of char;
    next:array[0..2000000]of longint;
    cas,v,i,n,m,ans:longint;
  
procedure getnext;
var i,j:longint;
begin
 i:=0; j:=1;
 next[1]:=0;
 while j<=n do
 begin
  if (i=0)or(s[i]=s[j]) then
  begin
   inc(i); inc(j);
   next[j]:=i;
  end
   else i:=next[i];
 end;
end;
  
procedure kmp;
var i,j:longint;
begin
 i:=1; j:=1;
 while j<=m do
 begin
  if (i=0)or(s[i]=t[j]) then
  begin
   inc(i); inc(j);
   if i>n then
   begin
    inc(ans);
    i:=next[i];
   end;
  end
   else i:=next[i];
  
 end;
end;
  
begin
  
 readln(cas);
 for v:=1 to cas do
 begin
  n:=0; m:=0;
  while not eoln do
  begin
   inc(n); read(s[n]);
  end;
  readln;
  while not eoln do
  begin
   inc(m); read(t[m]);
  end;
  readln;
  getnext;
  ans:=0;
  kmp;
  writeln(ans);
 end;
  
end.