Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Merge remote-tracking branch 'origin/new/bug_5327'

Browse source
This commit is contained in:
Paul Poulain 2012-02-15 10:49:53 +01:00
commit 6f6bfb8aff
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
C4/TTParser.pm
View file

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

6
xt/tt_valid.t
View file

@ -19,7 +19,7 @@
use warnings; use warnings;
use strict; use strict;
use Test::More tests => 1; use Test::More tests => 2;
use File::Find; use File::Find;
use Cwd; use Cwd;
use C4::TTParser; 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 ) } @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 =head1 NAME