Context-Set

 view release on metacpan or  search on metacpan

t/01-basics.t  view on Meta::CPAN

#!perl -T
use strict;
use warnings;
use Test::More tests => 30;
use Test::Fatal qw/dies_ok lives_ok/;
use Context::Set;


my $universe = Context::Set->new();
cmp_ok( $universe->name() , 'eq' , 'UNIVERSE'  , "Ok good universe name");

cmp_ok( $universe->fullname() , 'eq' , 'UNIVERSE' , "Ok good fullname for universe");

$universe->set_property('pi' , 3.14159 );
$universe->set_property('null');

t/02-manager.t  view on Meta::CPAN

#!perl -T
use strict;
use warnings;
use Test::More tests => 42;
use Test::Fatal qw/dies_ok lives_ok/;
use Context::Set::Manager;


my $cm = Context::Set::Manager->new();
my $universe = $cm->universe();
cmp_ok( $universe->name() , 'eq' , 'UNIVERSE'  , "Ok good universe name");

cmp_ok( $universe->fullname() , 'eq' , 'UNIVERSE' , "Ok good fullname for universe");

$universe->set_property('pi' , 3.14159 );

t/03-persist.t  view on Meta::CPAN

#!perl -T
use strict;
use warnings;
use Test::More tests => 68;
use Test::Fatal qw/dies_ok lives_ok/;
use Context::Set::Manager;
use Context::Set::Storage::DBIC;
use Context::Set::Storage::Split;

use DBI;
use DBD::SQLite;

use Log::Log4perl qw/:easy/;
Log::Log4perl->easy_init($DEBUG);

t/04-holderrole.t  view on Meta::CPAN

#!perl -T
use strict;
use warnings;
use Test::More tests => 1;
use Test::Fatal qw/dies_ok lives_ok/;

package My::O;
use Moose;
with qw/Context::Set::Holder/;

sub _build_context{
  ## Returns the universe.
  return Context::Set->new();
}