view release on metacpan or  search on metacpan

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

 	$response = $pdfApi->GetPage(name=>$name, pageNumber=>$pageNumber);
 	is($response->{'Status'}, "OK");
};


subtest 'testDeletePage' => sub {
	my $name =  'Sample-Annotation.pdf';
	my $pageNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->DeletePage(name=>$name, pageNumber=>$pageNumber);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetPageWithFormat' => sub {
	my $name =  'Sample-Annotation.pdf';
	my $pageNumber =  1;
	my $format = 'png';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetPageWithFormat(name=>$name, pageNumber=>$pageNumber , format=>$format);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetPageAnnotations' => sub {
	my $name =  'Sample-Annotation.pdf';
	my $pageNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetPageAnnotations(name=>$name, pageNumber=>$pageNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::AnnotationsResponse');
};


subtest 'testGetPageAnnotation' => sub {
	my $name =  'Sample-Annotation.pdf';
	my $pageNumber =  1;
	my $annotationNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetPageAnnotation(name=>$name, pageNumber=>$pageNumber, annotationNumber=>$annotationNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::AnnotationResponse');
};


subtest 'testGetFragments' => sub {
	my $name =  'sample-input.pdf';
	my $pageNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetFragments(name=>$name, pageNumber=>$pageNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextItemsResponse');
};

subtest 'testGetFragment' => sub {
	my $name =  'sample-input.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetFragment(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextItemsResponse');
};


subtest 'testGetSegments' => sub {
	my $name =  'Sample-Annotation.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetSegments(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextItemsResponse');
};


subtest 'testGetSegment' => sub {
	my $name = 'sample-input.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $segmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetSegment(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber, segmentNumber=>$segmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextItemResponse');
};


subtest 'testGetSegmentTextFormat' => sub {
	my $name =  'sample-input.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $segmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetSegmentTextFormat(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber, segmentNumber=>$segmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextFormatResponse');
};

subtest 'testGetFragmentTextFormat' => sub {
	my $name =  'sample-input.pdf';
	my $pageNumber =  1;
	my $fragmentNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetFragmentTextFormat(name=>$name, pageNumber=>$pageNumber, fragmentNumber=>$fragmentNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::TextFormatResponse');
};

subtest 'testGetImages' => sub {
	my $name =  'SampleImage.pdf';
	my $pageNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetImages(name=>$name, pageNumber=>$pageNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::ImagesResponse');
};


subtest 'testPostReplaceImage' => sub {
	my $name =  'SampleImage.pdf';
	my $pageNumber =  1;
	my $imageNumber =  1;
	my $imageFile =  'aspose-cloud.png';
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->PostReplaceImage(name=>$name, pageNumber=>$pageNumber, imageNumber=>$imageNumber, file => $data_path.$imageFile);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::ImageResponse');
};

subtest 'testGetImage' => sub {
	my $name =  'SampleImage.pdf';
	my $pageNumber =  1;
	my $imageNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetImage(name=>$name, pageNumber=>$pageNumber, imageNumber=>$imageNumber);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetImageWithFormat' => sub {
	my $name =  'SampleImage.pdf';
	my $pageNumber =  1;
	my $imageNumber =  1;
	my $format ='jpeg';	
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetImageWithFormat(name=>$name, pageNumber=>$pageNumber, imageNumber=>$imageNumber, format=>$format);
 	is($response->{'Status'}, "OK");
};

subtest 'testGetExtractBarcodes' => sub {
	my $name =  'SampleBarCodeImage.pdf';
	my $pageNumber =  1;
	my $imageNumber =  1;
	my $response = $storageApi->PutCreate(Path => $name, file => $data_path.$name);
 	is($response->{'Status'}, "OK");
 	$response = $pdfApi->GetExtractBarcodes(name=>$name, pageNumber=>$pageNumber, imageNumber=>$imageNumber);
 	is($response->{'Status'}, "OK");
 	isa_ok($response, 'AsposePdfCloud::Object::BarcodeResponseList');
 	
};