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

$|++; # keep stdout and stderr in order on Win32

BEGIN { use_ok( 'Class::InsideOut', 'options' ); }

can_ok( 'main', 'options' );

is_deeply( { options() }, {},
    "No options set"
);

ok( options( {privacy => 'public'} ),
    "Setting options"
);

is_deeply( { options() }, { privacy => 'public' } ,
    "options() provides current options"
);