test

.travis.yml

@@ -13,7 +13,6 @@ install:
     # Deal with all of the DZIL dependancies, quickly and quietly
    - cpanm --quiet --notest --skip-satisfied Dist::Zilla
    - dzil authordeps | grep -vP '[^\w:]' | xargs -n 5 -P 10 cpanm --quiet --notest --skip-satisfied
-
    - export RELEASE_TESTING=1 AUTOMATED_TESTING=1 AUTHOR_TESTING=1 HARNESS_OPTIONS=j10:c HARNESS_TIMER=1
    - dzil listdeps | grep -vP '[^\w:]' | cpanm --verbose --notest
 

lib/RDF/Lazy.pm

@@ -271,13 +271,16 @@ sub uri {
 
     my ($prefix,$local,$uri);
 
+    print STDERR "# NODE: $node\n";
+
     if ( $node =~ /^<(.*)>$/ ) {
         return RDF::Lazy::Resource->new( $self, $1 );
     } elsif ( $node =~ /^_:(.*)$/ ) {
         return RDF::Lazy::Blank->new( $self, $1 );
     } elsif ( $node =~ /^\[\s*\]$/ ) {
         return RDF::Lazy::Blank->new( $self );
     } elsif ( $node =~ /^["'+-0-9]|^(true|false)$/ ) {
+        print STDERR "# LITERAL\n";
         return $self->_literal( $node );
     } elsif ( $node =~ /^([^:]*):([^:]*)$/ ) {
         ($prefix,$local) = ($1,$2);

t/10_parse.t

@@ -12,10 +12,14 @@ is( $rdf->size, 4, 'rdf data as first parameter' );
 $rdf = RDF::Lazy->new( rdf => $data );
 is( $rdf->str, "4 triples", 'rdf data with named parameter' );
 
+print STDERR "# 'hello'\n";
 my $s = $rdf->uri('"hello"');
+ok( $s->is_literal, 'parse plain literal');
 is( $s->str, "hello", 'parse plain literal' );
 
+print STDERR "# 'hello'\@en\n";
 $s = $rdf->uri('"hello"@en');
+ok( $s->is_literal, 'parse literal');
 is( $s->lang, "en", 'parse literal with language' );
 
 $s = $rdf->uri('true');