view release on metacpan or  search on metacpan

t/01_tasks_api.t  view on Meta::CPAN

subtest 'testGetTaskDocumentWithFormat' => sub {
	my $name = 'sample-project-2.mpp';
	my $format = 'pdf';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->GetTaskDocumentWithFormat(name => $name, format => $format);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetProjectAssignments' => sub {
	my $name = 'sample-project-2.mpp';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->GetProjectAssignments(name => $name);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::AssignmentItemsResponse');
};

subtest 'testPostProjectAssignment' => sub {
	my $name = 'sample-project-2.mpp';
	my $taskUid = 1;
	my $resourceUid = 1;	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->PostProjectAssignment(name => $name, taskUid => $taskUid, resourceUid => $resourceUid);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::AssignmentItemResponse');
};

subtest 'testGetProjectAssignment' => sub {
	my $name = 'sample-project-2.mpp';
	my $assignmentUid = 1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->GetProjectAssignment(name => $name, assignmentUid => $assignmentUid);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::AssignmentResponse');
};

subtest 'testPostProjectCalendar' => sub {
	my $name = 'sample-project.mpp';
	my @calBody = AsposeTasksCloud::Object::Calendar->new('Name' => 'TestCalender', 'Uid' => 0);
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->PostProjectCalendar(name => $name, body => @calBody);
 	is($response->{'Status'}, "Created");
 	isa_ok($response, 'AsposeTasksCloud::Object::CalendarItemResponse');
};

subtest 'testGetProjectCalendars' => sub {
	my $name = 'sample-project-2.mpp';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->GetProjectCalendars(name => $name);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::CalendarItemsResponse');
};

subtest 'testGetProjectCalendar' => sub {
	my $name = 'sample-project-2.mpp';
	my $calendarUid = 1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->GetProjectCalendar(name => $name, calendarUid => $calendarUid);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::CalendarResponse');
};

subtest 'testDeleteProjectCalendar' => sub {
	my $name = 'sample-project.mpp';
	my $calendarUid = 2;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->DeleteProjectCalendar(name => $name, calendarUid => $calendarUid);
 	is($response->{'Status'}, "OK");
};

subtest 'testPostCalendarExceptions' => sub {
	my $name = 'sample-project.mpp';
	my $calendarUid = 2;
	my @calBody = AsposeTasksCloud::Object::Calendar->new('Name' => 'Test', 'FromDate' => '2016-05-26', 'ToDate' => '2016-05-28');
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->PostCalendarExceptions(name => $name, calendarUid => $calendarUid, body =>@calBody);
 	is($response->{'Status'}, "Created");
};

subtest 'testPutCalendarException' => sub {
	my $name = 'sample-project.mpp';
	my $calendarUid = 1;
	my $index = 1;
	my @calBody = AsposeTasksCloud::Object::Calendar->new('Name' => 'Test', 'FromDate' => '2016-05-26', 'ToDate' => '2016-05-28');
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->PutCalendarException(name => $name, calendarUid => $calendarUid, index => $index, body =>@calBody);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetCalendarExceptions' => sub {
	my $name = 'sample-project.mpp';
	my $calendarUid = 1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->GetCalendarExceptions(name => $name, calendarUid => $calendarUid);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::CalendarExceptionsResponse');
};

subtest 'testDeleteCalendarException' => sub {
	my $name = 'sample-project.mpp';
	my $calendarUid = 1;
	my $index = 1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->DeleteCalendarException(name => $name, calendarUid => $calendarUid, index => $index);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetCriticalPath' => sub {
	my $name = 'sample-project.mpp';
	my $assignmentUid = 1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->GetCriticalPath(name => $name, assignmentUid => $assignmentUid);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::TaskItemsResponse');
};

subtest 'testGetDocumentProperties' => sub {
	my $name = 'sample-project.mpp';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->GetDocumentProperties(name => $name);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::DocumentPropertiesResponse');
};

subtest 'testGetDocumentProperty' => sub {
	my $name = 'sample-project.mpp';
	my $propertyName = 'Title';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->GetDocumentProperty(name => $name, propertyName => $propertyName);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::DocumentPropertyResponse');
};

subtest 'testPutDocumentProperty' => sub {
	my $name = 'sample-project.mpp';
	my $propertyName = 'Title';
	my @docpropBody = AsposeTasksCloud::Object::DocumentProperty->new('Name' => 'Title', 'Value' => 'New Title');
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->PutDocumentProperty(name => $name, propertyName => $propertyName, body=>@docpropBody);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::DocumentPropertyResponse');
};

subtest 'testPostDocumentProperty' => sub {
	my $name = 'sample-project.mpp';
	my $propertyName = 'Title';
	my @docpropBody = AsposeTasksCloud::Object::DocumentProperty->new('Name' => 'Title', 'Value' => 'New Title');
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");;
 	$response = $tasksApi->PostDocumentProperty(name => $name, propertyName => $propertyName, body=>@docpropBody);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposeTasksCloud::Object::DocumentPropertyResponse');
};

subtest 'testGetExtendedAttributes' => sub {
	my $name = 'ExtendedAttribute.mpp';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $tasksApi->GetExtendedAttributes(name => $name);
 	is($response->{'Status'}, "OK");