From b5e00dd5534d7f6ec852b537f551bb872931fa04 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 11 Aug 2008 07:38:09 +0000
Subject: initial import

---
 t/26-pdf-poppler.t | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 t/26-pdf-poppler.t

(limited to 't/26-pdf-poppler.t')

diff --git a/t/26-pdf-poppler.t b/t/26-pdf-poppler.t
new file mode 100644
index 0000000..af3aa8c
--- /dev/null
+++ b/t/26-pdf-poppler.t
@@ -0,0 +1,19 @@
+#!perl
+
+use Test::More tests => 2;
+
+use HTML::AutoConvert;
+
+my $c = new HTML::AutoConvert;
+
+my $force = 'poppler';
+#$c->{'handlers'}{'doc'}{$force}{'weight'} = -1;
+my @del = grep { $_ ne $force } keys %{ $c->{'handlers'}{'pdf'} };
+delete($c->{'handlers'}{'pdf'}{$_}) foreach @del;
+
+my $html = $c->html_convert('t/attitude.pdf');
+
+#match $html against something;
+like( $html, qr/sampling/, 'text has sampling' );
+like( $html, qr/respondents/, 'text has respondents' );
+
-- 
cgit v1.2.1