#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
inline int power(int a, int b) {
int x = 1;
while (b) {
if (b & 1) x *= a;
a *= a;
b >>= 1;
}
return x;
}
const int M = 1000000007;
const int N = 3e5+9;
const int INF = 2e9+1;
const int LINF = 2000000000000000001;
//_ ***************************** START Below *******************************
vector<int> a;
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 total = 0;
int s = 0, e = 0;
while(e<n){
freqM = (freqM * freq[b[e]])%M;
total = (total + freq[b[e]])%M;
if(e-s+1 < m){
e++;
}
else{
if(b[e] == b[e-1]+1){
ans = (ans + freqM)%M;
}
freqM /= freq[b[s]];
s++;
e++;
}
}
if(m==1) return total;
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+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgaW50ICAgICAgICAgICAgICBsb25nIGxvbmcgaW50CiNkZWZpbmUgZG91YmxlICAgICAgICAgICBsb25nIGRvdWJsZQojZGVmaW5lIHByaW50KGEpICAgICAgICAgZm9yKGF1dG8geCA6IGEpIGNvdXQgPDwgeCA8PCAiICI7IGNvdXQgPDwgZW5kbAppbmxpbmUgaW50IHBvd2VyKGludCBhLCBpbnQgYikgewogICAgaW50IHggPSAxOwogICAgd2hpbGUgKGIpIHsKICAgICAgICBpZiAoYiAmIDEpIHggKj0gYTsKICAgICAgICBhICo9IGE7CiAgICAgICAgYiA+Pj0gMTsKICAgIH0KICAgIHJldHVybiB4Owp9CgoKY29uc3QgaW50IE0gPSAxMDAwMDAwMDA3Owpjb25zdCBpbnQgTiA9IDNlNSs5Owpjb25zdCBpbnQgSU5GID0gMmU5KzE7CmNvbnN0IGludCBMSU5GID0gMjAwMDAwMDAwMDAwMDAwMDAwMTsKCi8vXyAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiBTVEFSVCBCZWxvdyAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqCgp2ZWN0b3I8aW50PiBhOwoKaW50IGNvbnNpc3RlbmN5KGludCBuLCBpbnQgbSl7CiAgICAKICAgIHVub3JkZXJlZF9tYXA8aW50LGludD4gZnJlcTsKICAgIHZlY3RvcjxpbnQ+IGI7CgogICAgZm9yKGludCBpPTA7IGk8bjsgaSsrKXsKICAgICAgICBpZighZnJlcS5jb3VudChhW2ldKSl7CiAgICAgICAgICAgIGIucHVzaF9iYWNrKGFbaV0pOwogICAgICAgIH0KICAgICAgICBmcmVxW2FbaV1dKys7CiAgICB9CgogICAgc29ydChiZWdpbihiKSwgZW5kKGIpKTsKICAgIG4gPSBiLnNpemUoKTsKICAgIAoKICAgIGludCBmcmVxTSA9IDE7CiAgICBpbnQgYW5zID0gMDsKICAgIGludCB0b3RhbCA9IDA7CgogICAgaW50IHMgPSAwLCBlID0gMDsKICAgIHdoaWxlKGU8bil7CgogICAgICAgIGZyZXFNID0gKGZyZXFNICogZnJlcVtiW2VdXSklTTsKICAgICAgICB0b3RhbCA9ICh0b3RhbCArIGZyZXFbYltlXV0pJU07CgogICAgICAgIGlmKGUtcysxIDwgbSl7CiAgICAgICAgICAgIGUrKzsKICAgICAgICB9CiAgICAgICAgZWxzZXsKCiAgICAgICAgICAgIGlmKGJbZV0gPT0gYltlLTFdKzEpewogICAgICAgICAgICAgICAgYW5zID0gKGFucyArIGZyZXFNKSVNOwogICAgICAgICAgICB9CiAgICAgICAgICAgIGZyZXFNIC89IGZyZXFbYltzXV07CiAgICAgICAgICAgIHMrKzsKICAgICAgICAgICAgZSsrOwogICAgICAgIH0KICAgIH0KCiAgICBpZihtPT0xKSByZXR1cm4gdG90YWw7CgogICAgcmV0dXJuIGFuczsgICAgCn0KCgoKCgoKCgoKCgoKCgoKaW50IHByYWN0aWNlKGludCBuLCBpbnQgbSl7CgoKICAgIHJldHVybiAwOwp9CgoKCgoKdm9pZCBzb2x2ZSgpIHsKICAgIAogICAgaW50IG4sIG07CiAgICBjaW4+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