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

(-)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 7235