Filter tokens example

4 files changed, 20 insertions, 0 deletions

diff --git a/examples/qtest/filter-tokens.test b/examples/qtest/filter-tokens.test
new file mode 100644
index 00000000..6b93eb8f
--- /dev/null
+++ b/examples/qtest/filter-tokens.test
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+require 5.008;
+BEGIN { $^W = 1; }
+use strict;
+
+chdir("filter-tokens");
+
+require TestDriver;
+
+my $td = new TestDriver('pdf-filter-tokens');
+
+$td->runtest("filter tokens",
+	     {$td->COMMAND => "pdf-filter-tokens in.pdf a.pdf"},
+	     {$td->STRING => "", $td->EXIT_STATUS => 0});
+
+$td->runtest("check output",
+	     {$td->FILE => "a.pdf"},
+	     {$td->FILE => "out.pdf"});
+
+$td->report(2);
diff --git a/examples/qtest/filter-tokens/a.pdf b/examples/qtest/filter-tokens/a.pdf
new file mode 100644
index 00000000..ef7cdbce
--- /dev/null
+++ b/examples/qtest/filter-tokens/a.pdf
diff --git a/examples/qtest/filter-tokens/in.pdf b/examples/qtest/filter-tokens/in.pdf
new file mode 100644
index 00000000..f60a30d6
--- /dev/null
+++ b/examples/qtest/filter-tokens/in.pdf
diff --git a/examples/qtest/filter-tokens/out.pdf b/examples/qtest/filter-tokens/out.pdf
new file mode 100644
index 00000000..ef7cdbce
--- /dev/null
+++ b/examples/qtest/filter-tokens/out.pdf