From 033783f2f750d4fe4a577fd9fea06b60649b4a4d Mon Sep 17 00:00:00 2001 From: Duncan Tyler Date: Fri, 9 Dec 2011 11:29:53 +1300 Subject: [PATCH] Added coverage to unit test for TTParser Content-Type: text/plain; charset="utf-8" http://koha-community.org http://bugs.koha-community.org/show_bug.cgi?id=5327 Signed-off-by: Katrin Fischer Test passes. Signed-off-by: Jared Camins-Esakov --- C4/TTParser.pm | 1 - xt/tt_valid.t | 6 +++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/C4/TTParser.pm b/C4/TTParser.pm index 5058069..87ad744 100644 --- a/C4/TTParser.pm +++ b/C4/TTParser.pm @@ -40,7 +40,6 @@ sub next_token{ #unshift token back on @tokens sub unshift_token{ - my $self = shift; unshift @tokens, shift; } 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.2.5