The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
no warnings 'redefine';

use Test::More;
use FindBin '$Bin';
use lib "$Bin/lib";
use Test::RDF::Trine::Store qw(all_store_tests number_of_tests);

use RDF::Trine qw(iri variable store literal);
use RDF::Trine::Store;

my $tests	= 1 + Test::RDF::Trine::Store::number_of_tests;

SKIP: {
	eval "use RDF::Trine::Store::Redis;";
	if ($@) {
		plan skip_all => "Need Redis to run these tests.";
	} elsif (not exists $ENV{RDFTRINE_STORE_REDIS_SERVER}) {
		plan skip_all => "Set the Redis environment variable to run these tests (RDFTRINE_STORE_REDIS_SERVER)";
	} else {
		plan tests => $tests;
	}
	my $server	= $ENV{RDFTRINE_STORE_REDIS_SERVER};
	
	
	
	my $data = Test::RDF::Trine::Store::create_data;
	my $store	= RDF::Trine::Store::Redis->new( server => $server );
	isa_ok( $store, 'RDF::Trine::Store::Redis' );
	
	$store->nuke;
	Test::RDF::Trine::Store::all_store_tests($store, $data, 0);
	$store->nuke;
}

done_testing;