#include <bits/stdc++.h>
using namespace std;
#define int long long int
#define double long double
#define print(a) for(auto x : a) cout << x << " "; cout << endl
const int M = 1000000007;
const int N = 3e5+9;
const int INF = 2e9+1;
const int LINF = 2000000000000000001;
inline int power(int a, int b) {
int x = 1;
a %= M;
while (b) {
if (b & 1) x = (x * a) % M;
a = (a * a) % M;
b >>= 1;
}
return x;
}
//_ ***************************** START Below *******************************
vector<int> a;
int modInverse(int n){
return power(n, M-2);
}
int consistency(int n, int m){
unordered_map<int,int> freq;
vector<int> b;
for(int i=0; i<n; i++){
if(!freq.count(a[i])){
b.push_back(a[i]);
}
freq[a[i]]++;
}
sort(begin(b), end(b));
n = b.size();
int freqM = 1;
int ans = 0;
int s = 0, e = 0;
while(e<n){
freqM = (freqM * freq[b[e]])%M;
if(e-s+1 < m){
e++;
}
else{
while(s<=e && b[e]-b[s] >= m){
freqM = (freqM * modInverse(freq[b[s]])) % M;
s++;
}
if(e-s+1 == m){
ans = (ans + freqM)%M;
}
e++;
}
}
return ans;
}
int practice(int n, int m){
return 0;
}
void solve() {
int n, m;
cin>> n >> m;
a.resize(n);
for(int i=0; i<n; i++) cin >> a[i];
cout << consistency(n, m) << endl;
}
int32_t main() {
ios_base::sync_with_stdio(0); cin.tie(0); cout.tie(0);
int t = 1;
cin >> t;
while (t--) {
solve();
}
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgaW50ICAgICAgICAgICAgICBsb25nIGxvbmcgaW50CiNkZWZpbmUgZG91YmxlICAgICAgICAgICBsb25nIGRvdWJsZQojZGVmaW5lIHByaW50KGEpICAgICAgICAgZm9yKGF1dG8geCA6IGEpIGNvdXQgPDwgeCA8PCAiICI7IGNvdXQgPDwgZW5kbAoKCmNvbnN0IGludCBNID0gMTAwMDAwMDAwNzsKY29uc3QgaW50IE4gPSAzZTUrOTsKY29uc3QgaW50IElORiA9IDJlOSsxOwpjb25zdCBpbnQgTElORiA9IDIwMDAwMDAwMDAwMDAwMDAwMDE7CgppbmxpbmUgaW50IHBvd2VyKGludCBhLCBpbnQgYikgewogICAgaW50IHggPSAxOwogICAgYSAlPSBNOwogICAgd2hpbGUgKGIpIHsKICAgICAgICBpZiAoYiAmIDEpIHggPSAoeCAqIGEpICUgTTsgCiAgICAgICAgYSA9IChhICogYSkgJSBNOwogICAgICAgIGIgPj49IDE7CiAgICB9CiAgICByZXR1cm4geDsKfQoKCi8vXyAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiBTVEFSVCBCZWxvdyAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqCgp2ZWN0b3I8aW50PiBhOwoKaW50IG1vZEludmVyc2UoaW50IG4pewogICAgcmV0dXJuIHBvd2VyKG4sIE0tMik7Cn0KCmludCBjb25zaXN0ZW5jeShpbnQgbiwgaW50IG0pewogICAgCiAgICB1bm9yZGVyZWRfbWFwPGludCxpbnQ+IGZyZXE7CiAgICB2ZWN0b3I8aW50PiBiOwoKICAgIGZvcihpbnQgaT0wOyBpPG47IGkrKyl7CiAgICAgICAgaWYoIWZyZXEuY291bnQoYVtpXSkpewogICAgICAgICAgICBiLnB1c2hfYmFjayhhW2ldKTsKICAgICAgICB9CiAgICAgICAgZnJlcVthW2ldXSsrOwogICAgfQoKICAgIHNvcnQoYmVnaW4oYiksIGVuZChiKSk7CiAgICBuID0gYi5zaXplKCk7CiAgICAKCiAgICBpbnQgZnJlcU0gPSAxOwogICAgaW50IGFucyA9IDA7CgogICAgaW50IHMgPSAwLCBlID0gMDsKICAgIHdoaWxlKGU8bil7CgogICAgICAgIGZyZXFNID0gKGZyZXFNICogZnJlcVtiW2VdXSklTTsKCiAgICAgICAgaWYoZS1zKzEgPCBtKXsKICAgICAgICAgICAgZSsrOwogICAgICAgIH0KICAgICAgICBlbHNlewoKICAgICAgICAgICAgd2hpbGUoczw9ZSAmJiBiW2VdLWJbc10gPj0gbSl7CiAgICAgICAgICAgICAgICBmcmVxTSA9IChmcmVxTSAqIG1vZEludmVyc2UoZnJlcVtiW3NdXSkpICUgTTsKICAgICAgICAgICAgICAgIHMrKzsKICAgICAgICAgICAgfQoKICAgICAgICAgICAgaWYoZS1zKzEgPT0gbSl7CiAgICAgICAgICAgICAgICBhbnMgPSAoYW5zICsgZnJlcU0pJU07CiAgICAgICAgICAgIH0KICAgICAgICAgICAgZSsrOwogICAgICAgIH0KICAgIH0KCgogICAgcmV0dXJuIGFuczsgICAgCn0KCgoKCgoKCgoKCgoKCgoKaW50IHByYWN0aWNlKGludCBuLCBpbnQgbSl7CgoKICAgIHJldHVybiAwOwp9CgoKCgoKdm9pZCBzb2x2ZSgpIHsKICAgIAogICAgaW50IG4sIG07CiAgICBjaW4+PiBuID4+IG07CiAgICAKICAgIGEucmVzaXplKG4pOwogICAgZm9yKGludCBpPTA7IGk8bjsgaSsrKSBjaW4gPj4gYVtpXTsKICAgIAogICAgY291dCA8PCBjb25zaXN0ZW5jeShuLCBtKSA8PCBlbmRsOwoKCn0KCgoKCgppbnQzMl90IG1haW4oKSB7CiAgICBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKDApOyBjaW4udGllKDApOyBjb3V0LnRpZSgwKTsKCiAgICBpbnQgdCA9IDE7CiAgICBjaW4gPj4gdDsKICAgIHdoaWxlICh0LS0pIHsKICAgICAgICBzb2x2ZSgpOwogICAgfQoKICAgIHJldHVybiAwOwp9
OQo3IDQKOCAxMCAxMCA5IDYgMTEgNwo1IDMKNCAyIDIgMyA2CjggMgoxIDUgMiAyIDMgMSAzIDMKMyAzCjMgMyAzCjUgMQozIDQgMyAxMCA3CjEyIDMKNSAyIDEgMSA0IDMgNSA1IDUgMiA3IDUKMSAxCjEKMyAyCjEgMiAzCjIgMgoxIDIK
9
7 4
8 10 10 9 6 11 7
5 3
4 2 2 3 6
8 2
1 5 2 2 3 1 3 3
3 3
3 3 3
5 1
3 4 3 10 7
12 3
5 2 1 1 4 3 5 5 5 2 7 5
1 1
1
3 2
1 2 3
2 2
1 2