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

(-)a/C4/TTParser.pm (-1 lines)
Lines 40-46 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;
44
    unshift @tokens, shift;
43
    unshift @tokens, shift;
45
}
44
}
46
45
(-)a/xt/tt_valid.t (-2 / +5 lines)
Lines 19-25 Link Here
19
19
20
use warnings;
20
use warnings;
21
use strict;
21
use strict;
22
use Test::More tests => 1;
22
use Test::More tests => 2;
23
use File::Find;
23
use File::Find;
24
use Cwd;
24
use Cwd;
25
use C4::TTParser;
25
use C4::TTParser;
Lines 56-61 ok( !@files_with_directive_in_tag, "TT syntax: not using TT directive within HTM Link Here
56
              } @files_with_directive_in_tag )
56
              } @files_with_directive_in_tag )
57
       );
57
       );
58
58
59
my $testtoken = 0;
60
C4::TTParser::unshift_token($testtoken);
61
my $testtokenagain = C4::TTParser::next_token();
62
is( $testtoken, $testtokenagain, "Token received same as original put on stack");
59
63
60
64
61
=head1 NAME
65
=head1 NAME
62
- 

Return to bug 5327