view release on metacpan or  search on metacpan

t/Chef/REST/cookbooks.t  view on Meta::CPAN

done_testing;
exit 0;

my $obj = new Chef::REST::Client(
              #'chef_server' => 'https://api.opscode.com/organizations/',
              'chef_client_name' => '',
              'chef_version' => '',
          );

# list cookbooks
# endpoint /cookbooks
#diag Dumper $obj->cookbooks->list;

#endpoint /cookbook/yum
#diag Dumper $obj->cookbooks('yum','_latest')->details->attributes;
diag Dumper $obj->cookbooks('yum','_latest')->details->recipes;

#diag Dumper $obj->environments( $environment_name )->details;

# endpoint POST /environments/<env_name>/cookbooks_versions
# post data run_list => [ <cookbook>@<cookbook_version> , .. ]
#___ TESTING not complete ____
#diag Dumper $obj->environments( $environment_name
#                              ,'cookbooks_versions'
#                              , {
#                              	method => 'post'
#                                ,data   => {
#                              					runlist => [ $runlist ]
#                                          }
#                                }

t/Chef/REST/environments.t  view on Meta::CPAN

              'chef_version' => '',
          );

isa_ok( $obj, 'Chef::REST::Client' );
ok( $obj->server, 'get chef server' );
ok( $obj->name, 'get chef client name' );

ok ( $obj->environments->list , 'list environments' );
#diag Dumper $obj->environments->list;

# endpoint /environments/<env_name>/
ok( $obj->environments('devenv')->details, 'environments details' );
diag Dumper $obj->environments('devenv')->details;

# endpoint /environments/<env_name>/cookbooks/<cookbook_name>
diag Dumper $obj->environments('product1','cookbooks','cookbook-name')->details;

# get all the cookbooks for a specific environment.
# endpoint /environments/<env name>/cookbooks
#diag Dumper $obj->environments('environment-prod1','cookbooks');

map {
	print Dumper $obj->environments( $_->name )->details;
} $obj->environments->list;


map {
	print Dumper $obj->environments( $_->name )->details;
} $obj->environments->list;