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

use RDF::Trine;
use RDF::Trine::Namespace qw(FOAF DC rdf);

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', 'foaf:homepage' );
is( $DC->title->uri_value, 'http://purl.org/dc/elements/1.1/title', 'dc:title' );
is( $rdf->type->uri_value, 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type', 'rdf:type (lowercased known namespace)' );