From ffb96ee17e9721bb6cf3982249be537cacc68814 Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Fri, 22 Jun 2012 22:07:58 -0400
Subject: Add pdf-from-scratch example

---
 examples/qtest/create.test | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 examples/qtest/create.test

(limited to 'examples/qtest/create.test')

diff --git a/examples/qtest/create.test b/examples/qtest/create.test
new file mode 100644
index 00000000..bcdac25c
--- /dev/null
+++ b/examples/qtest/create.test
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+require 5.008;
+use warnings;
+use strict;
+
+chdir("create") or die "chdir testdir failed: $!\n";
+
+require TestDriver;
+
+cleanup();
+
+my $td = new TestDriver('create');
+
+$td->runtest("create a simple PDF",
+	     {$td->COMMAND => "pdf-create a.pdf"},
+	     {$td->STRING => "", $td->EXIT_STATUS => 0});
+
+$td->runtest("check",
+	     {$td->FILE => "a.pdf"},
+	     {$td->FILE => "orange-square.pdf"});
+
+cleanup();
+
+$td->report(2);
+
+sub cleanup
+{
+    unlink "a.pdf";
+}
-- 
cgit v1.2.3-54-g00ecf