Allow underscores in host (#56)

Author: joostverdoorn

index.js

@@ -11,7 +11,7 @@ module.exports = options => {
 	const protocol = `(?:(?:[a-z]+:)?//)${options.strict ? '' : '?'}`;
 	const auth = '(?:\\S+(?::\\S*)?@)?';
 	const ip = ipRegex.v4().source;
-	const host = '(?:(?:[a-z\\u00a1-\\uffff0-9]-*)*[a-z\\u00a1-\\uffff0-9]+)';
+	const host = '(?:(?:[a-z\\u00a1-\\uffff0-9][-_]*)*[a-z\\u00a1-\\uffff0-9]+)';
 	const domain = '(?:\\.(?:[a-z\\u00a1-\\uffff0-9]-*)*[a-z\\u00a1-\\uffff0-9]+)*';
 	const tld = `(?:\\.${options.strict ? '(?:[a-z\\u00a1-\\uffff]{2,})' : `(?:${tlds.sort((a, b) => b.length - a.length).join('|')})`})\\.?`;
 	const port = '(?::\\d{2,5})?';

test.js

@@ -10,6 +10,7 @@ test('match exact URLs', t => {
 		'http://www.example.com/wpstyle/?p=364',
 		'https://www.example.com/foo/?bar=baz&inga=42&quux',
 		'http://a.b.c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z.com',
+		'http://a_b.z.com',
 		'http://mw1.google.com/mw-earth-vectordb/kml-samples/gp/seattle/gigapxl/$[level]/r$[y]_c$[x].jpg',
 		'http://user:pass@example.com:123/one/two.three?q1=a1&q2=a2#body',
 		'http://www.microsoft.xn--comindex-g03d.html.irongeek.com',
@@ -118,6 +119,8 @@ test('do not match URLs', t => {
 		'http://.www.foo.bar./',
 		'http://go/ogle.com',
 		'http://foo.bar/ /',
+		'http://a.b_z.com',
+		'http://ab_.z.com',
 		'http://google\\.com',
 		'http://www(google.com',
 		'http://www.example.xn--overly-long-punycode-test-string-test-tests-123-test-test123/',