From 98724f74aca32230f732f188b6187e921c7085e6 Mon Sep 17 00:00:00 2001
From: Varadinsky <varadinsky@yahoo.com>
Date: Fri, 29 Jan 2016 20:21:01 +0100
Subject: [PATCH] Update plain IRIs to HTML links in tests #54

---
 t/issue_54.t              | 8 ++++----
 t/serializer-sparqlhtml.t | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/t/issue_54.t b/t/issue_54.t
index ceaf62a6..cc21f025 100644
--- a/t/issue_54.t
+++ b/t/issue_54.t
@@ -18,8 +18,8 @@ NAMESPACEMAP:{
 
 	my $s = $sclass->new(namespaces => $map);
 
-	is ($s->node_as_html($n1), '<a href="http://xmlns.com/foaf/0.1/Person">foaf:Person</a>', 'Return HTML link for IRI');
-	is ($s->node_as_html($n2), 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type', 'Return plain IRI - 1');
+	is ($s->node_as_html($n1), '<a href="http://xmlns.com/foaf/0.1/Person">foaf:Person</a>', 'Return HTML link for IRI with abbrev');
+	is ($s->node_as_html($n2), '<a href="http://www.w3.org/1999/02/22-rdf-syntax-ns#type">http://www.w3.org/1999/02/22-rdf-syntax-ns#type</a>', 'Return HTML link for IRI - 1');
 
 }
 
@@ -27,8 +27,8 @@ NO_NAMESPACEMAP:{
 
 	my $s = $sclass->new();
 	
-	is ($s->node_as_html($n1), 'http://xmlns.com/foaf/0.1/Person', 'Return plain IRI - 2');
-	is ($s->node_as_html($n2), 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type', 'Return plain IRI - 3');
+	is ($s->node_as_html($n1), '<a href="http://xmlns.com/foaf/0.1/Person">http://xmlns.com/foaf/0.1/Person</a>', 'Return HTML link for IRI - 2');
+	is ($s->node_as_html($n2), '<a href="http://www.w3.org/1999/02/22-rdf-syntax-ns#type">http://www.w3.org/1999/02/22-rdf-syntax-ns#type</a>', 'Return HTML link for IRI - 3');
 
 }
 
diff --git a/t/serializer-sparqlhtml.t b/t/serializer-sparqlhtml.t
index 4c0b9a2d..74c49ce7 100644
--- a/t/serializer-sparqlhtml.t
+++ b/t/serializer-sparqlhtml.t
@@ -41,11 +41,11 @@ END
 		my @rows	= ($b =~ /(<tr)/g);
 		cmp_ok(scalar(@rows), '>=', 4, 'at least 1 header row and 3 data rows');
 		like($b, qr[<td>x</td>]);
-		like($b, qr[<td>http://example.org/p</td>]);
+		like($b, qr[<td><a href="http://example.org/p">http://example.org/p</a></td>]);
 		like($b, qr[<td>1</td>]);
 		like($b, qr[<td>x</td>]);
 		like($b, qr[<td>2</td>]);
-		like($b, qr[<td>http://perlrdf.org/</td>]);
+		like($b, qr[<td><a href="http://perlrdf.org/">http://perlrdf.org/</a></td>]);
 	};
 
 	subtest 'serialize_iter_to_io' => sub {
@@ -58,11 +58,11 @@ END
 		my @rows	= ($b =~ /(<tr)/g);
 		cmp_ok(scalar(@rows), '>=', 4, 'at least 1 header row and 3 data rows');
 		like($b, qr[<td>x</td>]);
-		like($b, qr[<td>http://example.org/p</td>]);
+		like($b, qr[<td><a href="http://example.org/p">http://example.org/p</a></td>]);
 		like($b, qr[<td>1</td>]);
 		like($b, qr[<td>x</td>]);
 		like($b, qr[<td>2</td>]);
-		like($b, qr[<td>http://perlrdf.org/</td>]);
+		like($b, qr[<td><a href="http://perlrdf.org/">http://perlrdf.org/</a></td>]);
 	};
 }