From 348f6b2b271d3562509420070bd94d6ac00619dc Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Thu, 18 Apr 2019 22:47:01 +0000
Subject: linkify: don't get confused by URLs in Perl code, at least

The URLs at the top of WwwStream.pm weren't getting linkified
correctly.
---
 t/linkify.t | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 't/linkify.t')

diff --git a/t/linkify.t b/t/linkify.t
index f0b3a6d0..bef4ffd6 100644
--- a/t/linkify.t
+++ b/t/linkify.t
@@ -98,4 +98,23 @@ use PublicInbox::Linkify;
 		'Markdown-compatible end of sentence');
 }
 
+# Perl and Ruby code compatibility
+{
+	my $l = PublicInbox::Linkify->new;
+	my $u = 'http://example.com/';
+	foreach my $q ("'%s'", '"%s"', 'q!%s!', 'q(%s)') {
+		# Perl
+		my $s = sprintf("my \$var = $q;", $u);
+		$s = $l->linkify_1($s);
+		$s = $l->linkify_2($s);
+		like($s, qr/>\Q$u\E</, "no quote($q) in URL");
+
+		# applies to Ruby, too
+		$s = sprintf("$q,", $u);
+		$s = $l->linkify_1($s);
+		$s = $l->linkify_2($s);
+		like($s, qr/>\Q$u\E</, "no quote($q) in URL array");
+	}
+}
+
 done_testing();
-- 
cgit v1.2.3-24-ge0c7