var i,j,n,m,s,t,k,test:longint;
  x:array[1..3,1..2] of longint;
  y:array[1..3] of boolean;
  num,nu:int64;
procedure go(s,t,ci,zh:longint);
var i:longint;
begin
  if zh+abs(s-t)<nu then
    nu:=zh+abs(s-t);
  if ci=4 then exit;
  for i:=1 to 3 do
    if not(y[i]) then
      begin
        y[i]:=true;
        go(x[i,2],t,ci+1,zh+1+abs(s-x[i,1]));
        go(x[i,1],t,ci+1,zh+1+abs(s-x[i,2]));
        y[i]:=false;
      end;
end;
begin
  readln(test);
  for k:=1 to test do
    begin
      readln(n,m);
      for i:=1 to 3 do
        for j:=1 to 2 do
          read(x[i,j]);
      num:=0;
      for i:=1 to m do
        begin
          nu:=maxlongint;
          readln(s,t);
          go(s,t,1,0);
          num:=(num+nu*i) mod 1000000007;
        end;
      writeln(num);
    end;
end.