[Patches] [PATCH] Added coverage to unit test for TTParser
koha-patchbot at kohaaloha.com
koha-patchbot at kohaaloha.com
Tue Dec 13 22:05:27 NZDT 2011
From: Duncan Tyler <duncan at duncan-SoT.wgtn.cat-it.co.nz>
Date: Fri, 9 Dec 2011 11:29:53 +1300
Subject: [PATCH] Added coverage to unit test for TTParser
---
xt/tt_valid.t | 6 +++++-
1 files changed, 5 insertions(+), 1 deletions(-)
diff --git a/xt/tt_valid.t b/xt/tt_valid.t
index ae2e2e5..97725ee 100755
--- a/xt/tt_valid.t
+++ b/xt/tt_valid.t
@@ -19,7 +19,7 @@
use warnings;
use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
use File::Find;
use Cwd;
use C4::TTParser;
@@ -56,6 +56,10 @@ ok( !@files_with_directive_in_tag, "TT syntax: not using TT directive within HTM
} @files_with_directive_in_tag )
);
+my $testtoken = 0;
+C4::TTParser::unshift_token($testtoken);
+my $testtokenagain = C4::TTParser::next_token();
+is( $testtoken, $testtokenagain, "Token received same as original put on stack");
=head1 NAME
--
1.7.5.4
More information about the Patches
mailing list