http://bugs.koha-community.org/show_bug.cgi?id=5327
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>
#unshift token back on @tokens
sub unshift_token{
- my $self = shift;
unshift @tokens, shift;
}
use warnings;
use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
use File::Find;
use Cwd;
use C4::TTParser;
} @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