The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;

use RDF::Trine;

my $foaf	= RDF::Trine::Namespace->new( 'http://xmlns.com/foaf/0.1/' );
isa_ok( $foaf, 'RDF::Trine::Namespace' );

my $uri		= $foaf->homepage;
isa_ok( $uri, 'RDF::Trine::Node' );

is( $uri->uri_value, 'http://xmlns.com/foaf/0.1/homepage' );