X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2FTmplToken.t;h=579ee9d591f122f82e590fb23e4f56c28ec3924a;hb=0f6882896d6a806fb474b1fd172e3e93919d960c;hp=b9f161259479ed466f214e1a4c92f4773853a93f;hpb=d7a51d83c16f5617ee975bfedd055eddde0c8c9f;p=koha.git

diff --git a/t/TmplToken.t b/t/TmplToken.t
index b9f1612594..579ee9d591 100755
--- a/t/TmplToken.t
+++ b/t/TmplToken.t
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 use C4::TmplTokenType;
-use Test::More tests => 7;
+use Test::More tests => 19;
 
 BEGIN {
         use_ok('C4::TmplToken');
@@ -20,3 +20,27 @@ ok ($token->pathname eq '/tmp/translate.txt', "Path works");
 
 
 ok ($token->text_p, "text_p works");
+
+is($token-> children(), undef, "testing children returns undef when given argument");
+
+ok($token-> set_children(), "testing set_children with no arguments");
+
+is($token-> parameters_and_fields(), "0", "testing Parameters and fields returns 0 when given argument");
+
+is($token-> anchors(), "0", "testing anchors returns 0 when given argument");
+
+is($token-> form(),undef, "testing form returns undef when given argument");
+
+ok($token-> set_form(), "testing set_form with no arguments");
+
+is($token-> js_data(),undef, "testing form returns undef when given argument");
+
+ok($token-> set_js_data(), "testing set_js_data with no arguments");
+
+is($token-> tag_p(),"", "testing tag_p returns '' when given argument");
+
+is($token-> cdata_p(),"", "testing cdata_p returns '' when given argument");
+
+is($token-> text_parametrized_p(),"", "testing text_parametrized returns '' when given argument");
+
+is($token-> directive_p(),"", "testing directive_p returns '' when given argument");