X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=xt%2Ftt_valid.t;h=f71085eea13c8476af659c27f559ca9f892bf920;hb=HEAD;hp=ae2e2e558180c0b1bcb43340be4178baa1262194;hpb=4fcaa4d31eb830aa648ffb8e4a67f5715701b21d;p=koha.git

diff --git a/xt/tt_valid.t b/xt/tt_valid.t
index ae2e2e5581..f71085eea1 100755
--- a/xt/tt_valid.t
+++ b/xt/tt_valid.t
@@ -19,7 +19,7 @@
 
 use warnings;
 use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
 use File::Find;
 use Cwd;
 use C4::TTParser;
@@ -56,6 +56,11 @@ ok( !@files_with_directive_in_tag, "TT syntax: not using TT directive within HTM
               } @files_with_directive_in_tag )
        );
 
+my $testtoken = 0;
+my $ttparser = C4::TTParser->new();
+$ttparser->unshift_token($testtoken);
+my $testtokenagain = C4::TTParser::next_token();
+is( $testtoken, $testtokenagain, "Token received same as original put on stack");
 
 
 =head1 NAME