//dij

 #include<stdio.h>

 #include<string.h>

 #include<queue>

 using namespace std;

 #define inf 0x3f3f3f3f

 #define min(x,y) (x<y?x:y)

 int N,M,P,Q;

 int city[],dist[],cost[][];

 bool vis[];

 void dij(){

     for(int i=;i<=M;i++){

         dist[i]=inf;

     }

     dist[Q]=;

     memset(vis,false,sizeof(vis));

     for(int i=;i<=M;i++){

         int mmin=inf,pre=-;

         for(int j=;j<=M;j++){

             if(!vis[j]&&dist[j]<mmin){

                 mmin=dist[j];

                 pre=j;

             }

             }

         vis[pre]=true;

         for(int j=;j<=M;j++){

             if(cost[pre][j]==){

                 continue;

             }

             if(!vis[j]&&cost[pre][j]+dist[pre]<dist[j]){

                 dist[j]=cost[pre][j]+dist[pre];

             }

         }

     }

 }

 int main(){

     int T;

     scanf("%d",&T);

     while(T--){

         scanf("%d%d%d%d",&N,&M,&P,&Q);

         for(int i=;i<N;i++){

             scanf("%d",&city[i]);

         }

         memset(cost,,sizeof(cost));

         for(int i=;i<P;i++){

             int a,b,c;

             scanf("%d%d%d",&a,&b,&c);

             if(cost[a][b]==){

                 cost[a][b]=cost[b][a]=c;

                 continue;

             }

             cost[a][b]=cost[b][a]=min(cost[a][b],c);

         }

         dij();

         int ans=dist[city[]];

         for(int i=;i<N;i++){

             ans=min(ans,dist[city[i]]);

         }

         printf("%d\n",ans);

     }

 }