|
#!/usr/bin/perl
$| = 1;
my $module = "CASCM::Wrapper" ;
use_ok( $module ) or exit ;
my $cascm = new_ok( $module ) or exit ;
my $context = {
global => {
b => 'harvest' ,
eh => 'my_creds.dfo' ,
},
hco => {
vp => '\repo\myapp\src' ,
up => 1,
},
};
ok( $cascm ->set_context( $context ) );
is_deeply( $cascm ->get_context(), $context );
my $updated = {
global => {
b => 'harvest_new' ,
eh => 'my_creds.dfo' ,
},
hco => {
vp => '\repo\myapp\src' ,
up => 1,
},
hcp => { st => 'dev' , },
};
ok(
$cascm ->update_context(
{
global => { b => 'harvest_new' },
hcp => { st => 'dev' , },
}
)
);
is_deeply( $cascm ->get_context, $updated );
done_testing();
|