[libattean-perl] 02/42: Added tests for turtle parser escape handling (#55).

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag debian/0.019-1
in repository libattean-perl.

commit f37383fe63aa20f350df58a7585dbbf81258c4f3
Author: Gregory Todd Williams <greg at evilfunhouse.com>
Date:   Sat Jun 11 20:54:56 2016 -0700

    Added tests for turtle parser escape handling (#55).
---
 t/parser-turtle.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/t/parser-turtle.t b/t/parser-turtle.t
index e850e67..cc36cb5 100644
--- a/t/parser-turtle.t
+++ b/t/parser-turtle.t
@@ -73,6 +73,20 @@ subtest 'parse_term_from_bytes' => sub {
 	is($term->language, 'en');
 };
 
+subtest 'turtle numeric u escaping' => sub {
+	open(my $fh, '<', \q['\\u006F']);
+	my $l	= AtteanX::Parser::Turtle::Lexer->new($fh);
+	my $t	= $l->get_token;
+	is($t->value, 'o');
+};
+
+subtest 'turtle numeric U escaping' => sub {
+	open(my $fh, '<', \q['\\U0000006F']);
+	my $l	= AtteanX::Parser::Turtle::Lexer->new($fh);
+	my $t	= $l->get_token;
+	is($t->value, 'o');
+};
+
 done_testing();
 
 sub expect {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libattean-perl.git