#include<iostream>
#include<cstdio>
#include<cstdlib>
#include<cstring>
#include<string>
#include<cmath>
#include<algorithm>
using namespace std;
inline long long rd(){long long x=0,f=1;char ch=getchar();for(;!isdigit(ch);ch=getchar()) if(ch=='-') f=-1;for(;isdigit(ch);ch=getchar()) x=x*10+ch-'0';return x*f;
}
inline void write(long long x){if(x<0) putchar('-'),x=-x;if(x>9) write(x/10);putchar(x%10+'0');return ;
}
long long n,m,k,mod;
long long head[1000006];
long long nxt[2000006],to[2000006];
long long v[2000006];
long long total=0;
void add(long long x,long long y,long long z){total++;v[total]=z;to[total]=y;nxt[total]=head[x];head[x]=total;return ;
}
long long q[1000006];
long long l=0,r=0;
long long book[1000006];
long long dis[1000006];
void spfa(long long x){memset(dis,127,sizeof(dis));memset(book,0,sizeof(book));l=0,r=0;book[x]=1;dis[x]=0;q[++r]=x;while(l<r){long long h=q[++l];book[h]=0;for(long long e=head[h];e;e=nxt[e]){if(dis[to[e]]>dis[h]+v[e]){dis[to[e]]=dis[h]+v[e];if(!book[to[e]]){q[++r]=to[e];book[to[e]]=1;}}}book[h]=0;}return ;
}
long long f[100006][56];
long long vis[100006][56];
long long head2[200006];
long long to2[200006];
long long nxt2[200006];
long long v2[200006];
long long total2=0;
void add2(long long x,long long y,long long z){total2++;to2[total2]=y;v2[total2]=z;nxt2[total2]=head2[x];head2[x]=total2;return ;
}
long long set=0;
long long dfs(long long x,long long y){if(f[x][y]!=-1) return f[x][y];vis[x][y]=1;f[x][y]=0;for(long long e=head2[x];e;e=nxt2[e]){long long h1=to2[e],h2=dis[x]-dis[to2[e]]-v2[e]+y;if(h2>=0){if(vis[h1][h2]) set=1;int num=dfs(h1,h2);f[x][y]=(f[x][y]+num)%mod;}}vis[x][y]=0;return f[x][y];
}
int main(){long long T=rd();while(T--){memset(head,0,sizeof(head));memset(head2,0,sizeof(head2));total=total2=0;n=rd(),m=rd(),k=rd(),mod=rd();for(long long i=1;i<=m;i++){long long x=rd(),y=rd(),z=rd();add(x,y,z),add2(y,x,z);}spfa(1);memset(f,-1,sizeof(f));memset(vis,0,sizeof(vis));f[1][0]=1;long long ans=0;set=0;for(long long i=0;i<=k;i++){ans=(ans+dfs(n,i))%mod;}dfs(n,k+1);if(!set) write(ans%mod),puts("");else write(-1),puts("");}return 0;
}