view release on metacpan or  search on metacpan

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

};

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"); 
};

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

subtest 'testGetDocumentParagraphRun' => 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->GetDocumentParagraphRun(name=> $name, index=>$index, runIndex=>$runIndex);
 	isa_ok($response, 'AsposeWordsCloud::Object::RunResponse'); 	

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

	is($response->{'Status'}, "OK");
	
	my $rangeStartNode = AsposeWordsCloud::Object::NodeLink->new('Text' => 'Font Formatting', 'NodeId'=> '0.0.1');
	my $rangeStart = AsposeWordsCloud::Object::DocumentPositionDto->new('Node' => $rangeStartNode);
	
	my $rangeEndNode = AsposeWordsCloud::Object::NodeLink->new('Text' => 'Font Formatting', 'NodeId'=> '0.0.1');
	my $rangeEnd = AsposeWordsCloud::Object::DocumentPositionDto->new('Node' => $rangeEndNode);
	my $commentDtoBody = AsposeWordsCloud::Object::CommentDto->new(
    		'RangeStart'=> $rangeStart,
    		    'RangeEnd'=> $rangeEnd,
        		    'Initial' => 'FS',
        		    'Author' => 'Farooq Sheikh',
        		    'Text'=> 'This is a new comment'
        		    );
	$response = $wordsApi->PostComment(name=> $name, commentIndex=> $commentIndex, body=>$commentDtoBody);
 	isa_ok($response, 'AsposeWordsCloud::Object::CommentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

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

	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $rangeStartNode = AsposeWordsCloud::Object::NodeLink->new('Text' => 'Font Formatting', 'NodeId'=> '0.0.1');
	my $rangeStart = AsposeWordsCloud::Object::DocumentPositionDto->new('Node' => $rangeStartNode);
	
	my $rangeEndNode = AsposeWordsCloud::Object::NodeLink->new('Text' => 'Font Formatting', 'NodeId'=> '0.0.1');
	my $rangeEnd = AsposeWordsCloud::Object::DocumentPositionDto->new('Node' => $rangeEndNode);
	my $commentDtoBody = AsposeWordsCloud::Object::CommentDto->new(
    		'RangeStart'=> $rangeStart,
    		    'RangeEnd'=> $rangeEnd,
        		    'Initial' => 'FS',
        		    'Author' => 'Farooq Sheikh',
        		    'Text'=> 'This is a new comment'
        		    );
	$response = $wordsApi->PutComment(name=> $name, commentIndex=> $commentIndex, body=>$commentDtoBody);
 	isa_ok($response, 'AsposeWordsCloud::Object::CommentResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostFormField' => sub {
	my $name = 'FormFilled.docx';
	my $sectionIndex = 0;
	my $paragraphIndex = 0;
	my $formfieldIndex = 0;
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $xmlBody = '<FormFieldTextInput>'
            . '<Name>MyName</Name>'
            . '<Enabled>true</Enabled>'
            . '<StatusText />'
            . '<OwnStatus>false</OwnStatus>'
            . '<HelpText />'
            . '<OwnHelp>false</OwnHelp>'
            . '<CalculateOnExit>true</CalculateOnExit>'
            . '<EntryMacro />'
            . '<ExitMacro />'
            . '<TextInputFormat>UPPERCASE</TextInputFormat>'
            . '<TextInputType>Regular</TextInputType>'
            . '<TextInputDefault>Farooq Sheikh</TextInputDefault>'
            . '</FormFieldTextInput>';
            															
	$response = $wordsApi->PostFormField(name=> $name, sectionIndex=>$sectionIndex, 
										paragraphIndex=>$paragraphIndex, formfieldIndex=>$formfieldIndex, body=>$xmlBody);
 	isa_ok($response, 'AsposeWordsCloud::Object::FormFieldResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPutFormField' => sub {
	my $name = 'SampleBlankWordDocument.docx';
	my $sectionIndex = 0;
	my $paragraphIndex = 0;
	my $insertBeforeNode = "";
	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	
	my $xmlBody = '<FormFieldTextInput>'
            . '<Name>MyName</Name>'
            . '<Enabled>true</Enabled>'
            . '<StatusText />'
            . '<OwnStatus>false</OwnStatus>'
            . '<HelpText />'
            . '<OwnHelp>false</OwnHelp>'
            . '<CalculateOnExit>true</CalculateOnExit>'
            . '<EntryMacro />'
            . '<ExitMacro />'
            . '<TextInputFormat>UPPERCASE</TextInputFormat>'
            . '<TextInputType>Regular</TextInputType>'
            . '<TextInputDefault>Farooq Sheikh</TextInputDefault>'
            . '</FormFieldTextInput>';
															
	$response = $wordsApi->PutFormField(name=> $name, sectionIndex=>$sectionIndex, 
										paragraphIndex=>$paragraphIndex, insertBeforeNode=>$insertBeforeNode, body=>$xmlBody);
 	isa_ok($response, 'AsposeWordsCloud::Object::FormFieldResponse'); 	
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPostAppendDocument' => sub {
	my $name =  'SampleWordDocument.docx';
	my $document1 =  'SampleWordDocument.docx';
	my $document2 =  'SampleWordDocument.docx';

	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK"); 	
	 	
	my @docEntry1 = AsposeWordsCloud::Object::DocumentEntry->new('Href' => $document1, 'ImportFormatMode' => 'KeepSourceFormatting');
	my @docEntry2 = AsposeWordsCloud::Object::DocumentEntry->new('Href' => $document2, 'ImportFormatMode' => 'KeepSourceFormatting');
	my $documentEntryList = AsposeWordsCloud::Object::DocumentEntryList->new('DocumentEntries' => [@docEntry1, @docEntry2]);

 	$response = $wordsApi->PostAppendDocument(name=> $name, body=> $documentEntryList); 	
 	isa_ok($response, 'AsposeWordsCloud::Object::DocumentResponse');
 	is($response->{'Status'}, "OK");
};

subtest 'testPutExecuteMailMergeOnline' => sub {
	my $name = 'SampleMailMergeTemplate.docx';
	my $data = 'SampleMailMergeTemplateData.txt';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	$response = $storageApi->PutCreate(Path => $data, file => $data_path.$data);
	is($response->{'Status'}, "OK");
 	$response = $wordsApi->PutExecuteMailMergeOnline(withRegions => 'False', file => $data_path.$name, data=>$data_path.$data);
 	isa_ok($response, 'AsposeWordsCloud::Object::ResponseMessage');
 	is($response->{'Status'}, "OK"); 
};

subtest 'testPutExecuteTemplateOnline' => sub {
	my $name = 'SampleExecuteTemplate.doc';
	my $data = 'SampleExecuteTemplateData.txt';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
	is($response->{'Status'}, "OK");
	$response = $storageApi->PutCreate(Path => $data, file => $data_path.$data);
	is($response->{'Status'}, "OK");
 	$response = $wordsApi->PutExecuteTemplateOnline(withRegions => 'False', file => $data_path.$name, data=>$data_path.$data);
 	isa_ok($response, 'AsposeWordsCloud::Object::ResponseMessage');
 	is($response->{'Status'}, "OK"); 
};

=pod

subtest 'testPostField' => sub {
	my $name = 'SampleWordDocument.docx';
	my $sectionIndex = 0;
	my $paragraphIndex = 0;
	my $fieldIndex = 0;