gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 5327 : Follow up for TTParser test 

(cherry picked from commit 0351ea525e)

Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
This commit is contained in:
Chris Cormack 2012-07-07 11:35:47 +12:00 committed by Jared Camins-Esakov
parent 2eb76ec047
commit ebcede353d
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C4/TTParser.pm
View File

@ -40,6 +40,7 @@ sub next_token{
#unshift token back on @tokens
sub unshift_token{
my $self = shift;
unshift @tokens, shift;
}

3
xt/tt_valid.t
View File

@ -57,7 +57,8 @@ ok( !@files_with_directive_in_tag, "TT syntax: not using TT directive within HTM
);
my $testtoken = 0;
C4::TTParser::unshift_token($testtoken);
my $ttparser = C4::TTParser->new();
$ttparser->unshift_token($testtoken);
my $testtokenagain = C4::TTParser::next_token();
is( $testtoken, $testtokenagain, "Token received same as original put on stack");