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 Test::More tests => 19;
   9
  10 BEGIN {
  11         use_ok('C4::TmplToken');
  12 }
  13
  14 ok (my $token = C4::TmplToken->new('test',C4::TmplTokenType::TEXT,10,'/tmp/translate.txt'), "Create new");
  15 ok ($token->string eq 'test', "String works");
  16 ok ($token->type == C4::TmplTokenType::TEXT, "Token works");
  17 ok ($token->line_number == 10, "Line number works");
  18 ok ($token->pathname eq '/tmp/translate.txt', "Path works");
  19
  20
  21 ok ($token->text_p, "text_p works");
  22
  23 is($token-> children(), undef, "testing children returns undef when given argument");
  24
  25 ok($token-> set_children(), "testing set_children with no arguments");
  26
  27 is($token-> parameters_and_fields(), "0", "testing Parameters and fields returns 0 when given argument");
  28
  29 is($token-> anchors(), "0", "testing anchors returns 0 when given argument");
  30
  31 is($token-> form(),undef, "testing form returns undef when given argument");
  32
  33 ok($token-> set_form(), "testing set_form with no arguments");
  34
  35 is($token-> js_data(),undef, "testing form returns undef when given argument");
  36
  37 ok($token-> set_js_data(), "testing set_js_data with no arguments");
  38
  39 is($token-> tag_p(),"", "testing tag_p returns '' when given argument");
  40
  41 is($token-> cdata_p(),"", "testing cdata_p returns '' when given argument");
  42
  43 is($token-> text_parametrized_p(),"", "testing text_parametrized returns '' when given argument");
  44
  45 is($token-> directive_p(),"", "testing directive_p returns '' when given argument");