The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# Tests for Connector::Builtin::Static
#

use strict;
use warnings;
use English;

use Test::More tests => 9;

# diag "LOAD MODULE\n";

BEGIN {
    use_ok( 'Connector::Builtin::Static' );
}

require_ok( 'Connector::Builtin::Static' );


# diag "Connector::Proxy::Static tests\n";
###########################################################################
my $conn = Connector::Builtin::Static->new(
    {
	LOCATION  => '42',
    });

is($conn->get(), '42');
is($conn->get('foo'), '42');
is($conn->get('bar'), '42');
is( $conn->get_meta('bar')->{TYPE}, 'scalar' );
is( $conn->get_meta('bar')->{VALUE}, '42' );

ok ($conn->exists(''), 'Always exists');
ok ($conn->exists( [] ), 'Exists Array');