[Patches] [PATCH] Added coverage to unit test for TTParser

koha-patchbot at kohaaloha.com koha-patchbot at kohaaloha.com
Sat Dec 10 01:05:47 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