# This is a test for RT#44879, rdf:resource attribute comes out as empty-string

use strict;
use warnings;

use Data::Dumper;
use Test::More 'no_plan';

use blib;
my $PM;
BEGIN
  {
  $PM = q{RDF::Simple::Parser};
  use_ok($PM);
  } # BEGIN

my $sNSfoo = q{http://foo.com/foo.owl};
my $sNSbase = q{http://base.org/base};
my $sNSrdf = q{http://www.w3.org/1999/02/22-rdf-syntax-ns};
my $node1raw = qq{#bar_id};
my $node1 = qq{$sNSbase$node1raw};
my $node2 = qq{$sNSfoo#baz_id};
my $sRDF = <<"ENDRDF";
<rdf:RDF
xml:base="$sNSbase"
xmlns:foo="$sNSfoo#"
xmlns:rdf="$sNSrdf#"
>
<foo:Baz rdf:about="$node2" />
<foo:Bar rdf:about="$node1">
   <foo:bazProp rdf:resource="$node2" />
   <foo:intProp1 rdf:datatype="integer">999</foo:intProp1>
   <foo:intProp2 rdf:datatype="integer">0</foo:intProp2>
</foo:Bar>
</rdf:RDF>
ENDRDF
my $par = new $PM;
isa_ok($par, $PM);
my @aGot = $par->parse_rdf($sRDF);
# print STDERR Dumper (\@aGot);
# print STDERR Dumper $par->getns;
my @aExpected = (
                 [$node2, qq{$sNSrdf#type}, qq{$sNSfoo#Baz}],
                 [$node1, qq{$sNSrdf#type}, qq{$sNSfoo#Bar}],
                 [$node1, qq{$sNSfoo#bazProp}, $node2],
                 [$node1, qq{$sNSfoo#intProp1}, q{999}],
                 [$node1, qq{$sNSfoo#intProp2}, q{0}],
                );
# print STDERR Dumper(\@aGot);
# @aExpected = sort @aExpected;
# @aGot = sort @aGot;
is_deeply(\@aGot, \@aExpected);

__END__