The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
use FindBin qw($Bin);
use Test::More tests => 7;
my $base_uri = 'http://localhost';

use_ok('RDF::LinkedData');

my $store = { storetype => 'Memory',
				  sources => [ { file => $Bin . '/data/basic.ttl',
									 syntax => 'turtle'
								  } ] };

{
	my $ld = RDF::LinkedData->new(store => $store, base_uri=>$base_uri);
	isa_ok($ld, 'RDF::LinkedData');
	is($ld->count, 3, "There are 3 triples in model");
	ok(!$ld->has_endpoint_config, 'No endpoint configged');
}

{
	my $ld = RDF::LinkedData->new(store => $store, endpoint_config => undef, base_uri=>$base_uri);
	isa_ok($ld, 'RDF::LinkedData');
	is($ld->count, 3, "There are 3 triples in model");
	ok(!$ld->has_endpoint_config, 'No endpoint configged');
}

done_testing;