use Test::More;
BEGIN {
use_ok( 'Resque' );
}
{
ok ( my $r = Resque->new(), 'Build default object' );
test_namespace( $r => 'resque' );
}
{
ok ( my $r = Resque->new( namespace => 'perl' ), 'Build default object' );
test_namespace( $r => 'perl' );
}
sub test_namespace {
my ( $r, $namespace ) = @_;
is ( $r->namespace, $namespace, "Default namespace is $namespace" );
is ( $r->key( queues => 'test' ), "$namespace:queues:test", 'Key generator use namespace' );
}
done_testing();