View | Details | Raw Unified | Return to bug 5327
Collapse All | Expand All

(-)a/C4/TTParser.pm (+1 lines)
Lines 40-45 sub next_token{ Link Here
40
40
41
#unshift token back on @tokens
41
#unshift token back on @tokens
42
sub unshift_token{
42
sub unshift_token{
43
    my $self = shift;
43
    unshift @tokens, shift;
44
    unshift @tokens, shift;
44
}
45
}
45
46
(-)a/xt/tt_valid.t (-2 / +2 lines)
Lines 57-63 ok( !@files_with_directive_in_tag, "TT syntax: not using TT directive within HTM Link Here
57
       );
57
       );
58
58
59
my $testtoken = 0;
59
my $testtoken = 0;
60
C4::TTParser::unshift_token($testtoken);
60
my $ttparser = C4::TTParser->new();
61
$ttparser->unshift_token($testtoken);
61
my $testtokenagain = C4::TTParser::next_token();
62
my $testtokenagain = C4::TTParser::next_token();
62
is( $testtoken, $testtokenagain, "Token received same as original put on stack");
63
is( $testtoken, $testtokenagain, "Token received same as original put on stack");
63
64
64
- 

Return to bug 5327