diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-02 23:12:01 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-02 23:12:01 +0000 |
| commit | f7bc0cb1fa77b34187f92b486733529a6124e2cf (patch) | |
| tree | b74af39b50fb76ebfbda2ae691fbe98e05fa9633 | |
| parent | f8d445d20cee8eb1ce3968483e902788d6f56a80 (diff) | |
Template test adjustments
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1251 4979c152-3d1c-0410-bac9-87ea11338e46
| -rw-r--r-- | Build.PL | 2 | ||||
| -rw-r--r-- | Makefile.PL | 2 | ||||
| -rw-r--r-- | t/04-template-handling.t | 12 | ||||
| -rw-r--r-- | t/data/04-template.tex | 20 |
4 files changed, 32 insertions, 4 deletions
@@ -8,7 +8,7 @@ my $build = Module::Build->new ( dist_version => '1.2.99', license => 'GPL', requires => { - 'perl' => '>= 5.8.0', + 'perl' => '>= 5.8.1', 'Data::Dumper' => 0, 'Locale::Maketext' => 0, 'Locale::Maketext::Lexicon' => '>= 0.56', diff --git a/Makefile.PL b/Makefile.PL index c3c2c821..e2021c7d 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -8,7 +8,7 @@ name 'LedgerSMB'; version '1.2.3'; license 'GPL'; -perl_version '5.8.0'; +perl_version '5.8.1'; requires 'Data::Dumper'; requires 'Locale::Maketext'; diff --git a/t/04-template-handling.t b/t/04-template-handling.t index 0e2f52bb..1f05a266 100644 --- a/t/04-template-handling.t +++ b/t/04-template-handling.t @@ -3,8 +3,8 @@ use strict; use warnings; -#$ENV{TMPDIR} = 't/var'; -$ENV{TMPDIR} = '/Users/seneca/sourceforge-svn/ledger-smb/trunk/t/var'; +# Absolute directory name required to not trip up Template::Latex +$ENV{TMPDIR} = "$ENV{PWD}/t/var"; use Test::More 'no_plan'; use Test::Trap qw(trap $trap); @@ -226,6 +226,10 @@ is($template->{include_path}, 't/data', is($template->render({'login' => 'foo\&bar'}), 't/var/04-template-output.pdf', 'Template, render: Simple PDF template, default filename'); ok(-e 't/var/04-template-output.pdf', 'Template, render (PDF): File created'); +is(unlink('t/var/04-template-output.pdf'), 1, + 'Template, render (PDF): removing testfile'); +ok(!-e 't/var/04-template-output.pdf', + 'Template, render (PDF): testfile removed'); $template = undef; $template = new LedgerSMB::Template('user' => $myconfig, 'format' => 'PS', @@ -239,6 +243,10 @@ is($template->{include_path}, 't/data', is($template->render({'login' => 'foo\&bar'}), 't/var/04-template-output.ps', 'Template, render: Simple Postscript template, default filename'); ok(-e 't/var/04-template-output.ps', 'Template, render (PS): File created'); +is(unlink('t/var/04-template-output.ps'), 1, + 'Template, render (PS): removing testfile'); +ok(!-e 't/var/04-template-output.ps', + 'Template, render (PS): testfile removed'); ##open($FH, '<', 't/var/04-template-output.html'); ##@r = <$FH>; ##close($FH); diff --git a/t/data/04-template.tex b/t/data/04-template.tex new file mode 100644 index 00000000..27b5cfc0 --- /dev/null +++ b/t/data/04-template.tex @@ -0,0 +1,20 @@ +<?lsmb FILTER latex -?> +\documentclass{scrartcl} +\usepackage[utf8]{inputenc} +\usepackage{tabularx} +\usepackage[letterpaper,top=2cm,bottom=1.5cm,left=1.1cm,right=1.5cm]{geometry} +\usepackage{graphicx} + +\begin{document} + +\pagestyle{myheadings} +\thispagestyle{empty} + +\fontfamily{cmss}\fontsize{10pt}{12pt}\selectfont + +I am a template. + +Look at me <?lsmb login ?>. + +\end{document} +<?lsmb END ?> |