view release on metacpan or  search on metacpan

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

	my $propertyName = 'Author';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
 	$response = $wordsApi->GetDocumentProperty(name=> $name, propertyName=>$propertyName);
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentPropertyResponse');
 	is($response->{'Status'}, "OK"); 
};

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

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

subtest 'testGetDocumentDrawingObjectByIndexWithFormat' => sub {
	my $name = 'SampleWordDocument.docx';	
	my $objectIndex = 1;
	my $format = 'jpg';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
 	$response = $wordsApi->GetDocumentDrawingObjectByIndexWithFormat(name=> $name, objectIndex=>$objectIndex, format=>$format); 	
 	is($response->{'Status'}, "OK"); 
};

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

subtest 'testGetDocumentDrawingObjectOleData' => sub {
	my $name = 'sample_EmbeddedOLE.docx';	
	my $objectIndex = 0;
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
 	$response = $wordsApi->GetDocumentDrawingObjectOleData(name=> $name, objectIndex=>$objectIndex); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostDocumentExecuteMailMerge' => sub {
	my $name = 'SampleMailMergeTemplateImage.doc';
	my $document1 =  'aspose-cloud.png';	
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $storageApi->PutCreate(Path => $document1, file => $data_path.$document1);
	is($response->{'Status'}, "OK");
	
 	$response = $wordsApi->PostDocumentExecuteMailMerge(name=> $name, file=>$data_path.'SampleMailMergeTemplateImageData.txt', withRegions=>'False');
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostExecuteTemplate' => sub {
	my $name = 'SampleExecuteTemplate.doc';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->PostExecuteTemplate(name=> $name, file=>$data_path.'SampleExecuteTemplateData.txt');
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

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

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

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

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

subtest 'testPostInsertPageNumbers' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $pageNumberBody = AsposeWordsCloud::Object::PageNumber->new('Format' => '{PAGE} of {NUMPAGES}', 'Alignment' => 'center');
	$response = $wordsApi->PostInsertPageNumbers(name=> $name, body=>$pageNumberBody);
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostInsertWatermarkImage' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->PostInsertWatermarkImage(name=> $name, file => $data_path.'aspose-cloud.png');
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostInsertWatermarkText' => sub {
	my $name = 'SampleWordDocument.docx';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $watermarkText = AsposeWordsCloud::Object::WatermarkText->new('Text' => 'Welcome Aspose', 'RotationAngle' => '45');
	$response = $wordsApi->PostInsertWatermarkText(name=> $name, body=>$watermarkText);
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

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

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

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

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

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

	my $format = 'text';
	my $from = 1;
	my $to = 2;
	my $zipOutput = 'False';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->PostSplitDocument(name=> $name, format=>$format, 
										from=>$from, to=>$to, zipOutput=>$zipOutput );
 	isa_ok($response, 'AsposeWordsCloud::Object::SplitDocumentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

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

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

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

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

subtest 'testPostInsertDocumentWatermarkImage' => sub {
	my $name = 'SampleWordDocument.docx';
	my $image = 'aspose-cloud.png';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $storageApi->PutCreate(Path => $image, file => $data_path.$image);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->PostInsertDocumentWatermarkImage(name=> $name, file => $data_path.$image);
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostInsertDocumentWatermarkText' => sub {
	my $name = 'SampleWordDocument.docx';
	my $image = 'aspose-cloud.png';
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $watermarkText = AsposeWordsCloud::Object::WatermarkText->new('Text' => 'aspose.com');
	
	$response = $wordsApi->PostInsertDocumentWatermarkText(name=> $name, body => $watermarkText);
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testGetComments' => sub {
	my $name = 'SampleWordDocument.docx';

	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->GetComments(name=> $name);
 	isa_ok($response, 'AsposeWordsCloud::Object::CommentsResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testGetComment' => sub {
	my $name = 'SampleWordDocument.docx';
	my $commentIndex = 0;

	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->GetComment(name=> $name, commentIndex=>$commentIndex);
 	isa_ok($response, 'AsposeWordsCloud::Object::CommentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testDeleteComment' => sub {
	my $name = 'SampleWordDocument.docx';
	my $commentIndex = 0;

	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->DeleteComment(name=> $name, commentIndex=>$commentIndex);
 	isa_ok($response, 'AsposeWordsCloud::Object::SaaSposeResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testSearch' => sub {
	my $name = 'SampleWordDocument.docx';
	my $pattern = 'aspose';

	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	$response = $wordsApi->Search(name=> $name, pattern=>$pattern);
 	isa_ok($response, 'AsposeWordsCloud::Object::SearchResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostComment' => sub {
	my $name = 'SampleWordDocument.docx';