aboutsummaryrefslogtreecommitdiffstats
path: root/examples/qtest
diff options
context:
space:
mode:
authorJay Berkenbilt <ejb@ql.org>2013-01-20 21:26:45 +0100
committerJay Berkenbilt <ejb@ql.org>2013-01-20 21:35:39 +0100
commitf81152311e5737e5e0de9dd9462311f306c6921b (patch)
treee015c0efd7022cc259e898255db872fa52b73ca1 /examples/qtest
parent1d88955fa68fb7fb0fd2d705bc80655edb7a5972 (diff)
downloadqpdf-f81152311e5737e5e0de9dd9462311f306c6921b.tar.zst
Add QPDFObjectHandle::parseContentStream method
This method allows parsing of the PDF objects in a content stream or array of content streams.
Diffstat (limited to 'examples/qtest')
-rw-r--r--examples/qtest/parse-content.test17
-rw-r--r--examples/qtest/parse-content/content.out11
-rw-r--r--examples/qtest/parse-content/input.pdfbin0 -> 799 bytes
3 files changed, 28 insertions, 0 deletions
diff --git a/examples/qtest/parse-content.test b/examples/qtest/parse-content.test
new file mode 100644
index 00000000..a73566f8
--- /dev/null
+++ b/examples/qtest/parse-content.test
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+require 5.008;
+BEGIN { $^W = 1; }
+use strict;
+
+chdir("parse-content");
+
+require TestDriver;
+
+my $td = new TestDriver('pdf-parse-content');
+
+$td->runtest("parse content",
+ {$td->COMMAND => "pdf-parse-content input.pdf 1"},
+ {$td->FILE => "content.out", $td->EXIT_STATUS => 0},
+ $td->NORMALIZE_NEWLINES);
+
+$td->report(1);
diff --git a/examples/qtest/parse-content/content.out b/examples/qtest/parse-content/content.out
new file mode 100644
index 00000000..9c07edc2
--- /dev/null
+++ b/examples/qtest/parse-content/content.out
@@ -0,0 +1,11 @@
+BT
+/F1
+24
+Tf
+72
+720
+Td
+(Potato)
+Tj
+ET
+-EOF-
diff --git a/examples/qtest/parse-content/input.pdf b/examples/qtest/parse-content/input.pdf
new file mode 100644
index 00000000..cd319591
--- /dev/null
+++ b/examples/qtest/parse-content/input.pdf
Binary files differ