#unshift token back on @tokens
sub unshift_token{
my $self = shift;
unshift @tokens, shift;
}
);
my $testtoken = 0;
C4::TTParser::unshift_token($testtoken);
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");
-