Revert "Added coverage to unit test for TTParser"
authorPaul Poulain <paul.poulain@biblibre.com>
Fri, 6 Jul 2012 15:00:48 +0000 (17:00 +0200)
committerPaul Poulain <paul.poulain@biblibre.com>
Fri, 6 Jul 2012 15:00:48 +0000 (17:00 +0200)
This reverts commit 628788ad8a68ea843f37bfa63dd4854b50affd26.

C4/TTParser.pm
xt/tt_valid.t

index 87ad744..5058069 100644 (file)
@@ -40,6 +40,7 @@ sub next_token{
 
 #unshift token back on @tokens
 sub unshift_token{
+    my $self = shift;
     unshift @tokens, shift;
 }
 
index 97725ee..ae2e2e5 100755 (executable)
@@ -19,7 +19,7 @@
 
 use warnings;
 use strict;
-use Test::More tests => 2;
+use Test::More tests => 1;
 use File::Find;
 use Cwd;
 use C4::TTParser;
@@ -56,10 +56,6 @@ ok( !@files_with_directive_in_tag, "TT syntax: not using TT directive within HTM
               } @files_with_directive_in_tag )
        );
 
-my $testtoken = 0;
-C4::TTParser::unshift_token($testtoken);
-my $testtokenagain = C4::TTParser::next_token();
-is( $testtoken, $testtokenagain, "Token received same as original put on stack");
 
 
 =head1 NAME