t/TmplToken.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8 use C4::TmplTokenType;
   9 use Test::More tests => 7;
  10
  11 BEGIN {
  12         use_ok('C4::TmplToken');
  13 }
  14
  15 ok (my $token = C4::TmplToken->new('test',C4::TmplTokenType::TEXT,10,'/tmp/translate.txt'), "Create new");
  16 ok ($token->string eq 'test', "String works");
  17 ok ($token->type == C4::TmplTokenType::TEXT, "Token works");
  18 ok ($token->line_number == 10, "Line number works");
  19 ok ($token->pathname eq '/tmp/translate.txt', "Path works");
  20
  21
  22 ok ($token->text_p, "text_p works");