From 796127e4b9aed7c1d8cad9c2275e5d3f0bbfa39d Mon Sep 17 00:00:00 2001
From: Duncan Tyler <duncan@duncan-SoT.wgtn.cat-it.co.nz>
Date: Fri, 9 Dec 2011 11:29:53 +1300
Subject: [PATCH] Bug 5327 : Added coverage to unit test for TTParser

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Test passes.

Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 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 5058069e85..87ad744a65 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 ae2e2e5581..97725ee370 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
-- 
2.39.5