|
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 |
- |
|
|