view release on metacpan or  search on metacpan

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

 	isa_ok($response, 'AsposeWordsCloud::Object::RunResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testGetDocumentParagraphRunFont' => sub {
	my $name = 'SampleWordDocument.docx';
	my $index = 0;
	my $runIndex = 0;
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->GetDocumentParagraphRunFont(name=> $name, index=>$index, runIndex=>$runIndex);
 	isa_ok($response, 'AsposeWordsCloud::Object::FontResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostDocumentParagraphRunFont' => sub {
	my $name = 'SampleWordDocument.docx';
	my $index = 0;
	my $runIndex = 0;
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $font = AsposeWordsCloud::Object::Font->new('Name' => 'Arial', 'Bold' => 'True');

	$response = $wordsApi->PostDocumentParagraphRunFont(name=> $name, index=>$index, runIndex=>$runIndex, body=>$font);
 	isa_ok($response, 'AsposeWordsCloud::Object::FontResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPutProtectDocument' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $protectionRequest = AsposeWordsCloud::Object::ProtectionRequest->new('Password' => 'aspose', 'ProtectionType' => 'ReadOnly');

	$response = $wordsApi->PutProtectDocument(name=> $name, body=>$protectionRequest);
 	isa_ok($response, 'AsposeWordsCloud::Object::ProtectionDataResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostChangeDocumentProtection' => sub {
	my $name = 'SampleProtectedBlankWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $protectionRequest = AsposeWordsCloud::Object::ProtectionRequest->new('Password' => 'aspose','NewPassword' => '', 'ProtectionType' => 'NoProtection');

	$response = $wordsApi->PostChangeDocumentProtection(name=> $name, body=>$protectionRequest);
 	isa_ok($response, 'AsposeWordsCloud::Object::ProtectionDataResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testDeleteUnprotectDocument' => sub {
	my $name = 'SampleProtectedBlankWordDocument.docx';
	my $destfilename = "updated-" . $name;
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $protectionRequest = AsposeWordsCloud::Object::ProtectionRequest->new('Password' => 'aspose');

	$response = $wordsApi->DeleteUnprotectDocument(name=> $name, body=>$protectionRequest, filename =>$destfilename);
 	isa_ok($response, 'AsposeWordsCloud::Object::ProtectionDataResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testGetDocumentProtection' => sub {
	my $name = 'SampleProtectedBlankWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->GetDocumentProtection(name=> $name);
 	isa_ok($response, 'AsposeWordsCloud::Object::ProtectionDataResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostReplaceText' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	my $replaceTextRequest = AsposeWordsCloud::Object::ReplaceTextRequest->new('OldValue' => 'aspose', 'NewValue' =>  'aspose.com');
	$response = $wordsApi->PostReplaceText(name=> $name, body=>$replaceTextRequest);
 	isa_ok($response, 'AsposeWordsCloud::Object::ReplaceTextResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testAcceptAllRevisions' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->AcceptAllRevisions(name=> $name);
 	isa_ok($response, 'AsposeWordsCloud::Object::RevisionsModificationResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testRejectAllRevisions' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->RejectAllRevisions(name=> $name);
 	isa_ok($response, 'AsposeWordsCloud::Object::RevisionsModificationResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testGetSections' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");