BEGIN { $| = 1; print "1..25\n"; } END {print "not ok 1\n" unless $loaded;} use C4::Output; $loaded = 1; print "ok 1\n"; # # ensure &startpage returns correct value # if ("\n" eq startpage()) { print "ok 2\n"; } else { print "not ok 2\n"; } # # Check that &gotopage returns proper value # if ("" eq gotopage('foo')) { print "ok 3\n"; } else { print "not ok 3\n"; } # # skipping &startmenu for now # # # skipping &endmenu for now # # ensure &mktablehdr returns a proper value # if ("\n" eq mktablehdr()) { print "ok 4\n"; } else { print "not ok 4\n"; } # # ensure &mktablerow returns a proper value # # 1 row, no background image if ("\n" eq mktablerow(1,'red','text')) { print "ok 5\n"; } else { print "not ok 5\n"; } # 1 row, background image if ("\n" eq mktablerow(1,'red','text','foo.jpg')) { print "ok 6\n"; } else { print "not ok 6\n"; } #2 rows, no background image if ("\n" eq mktablerow(2,'red','text','text')) { print "ok 7\n"; } else { print "not ok 7\n"; } # 2 rows, background image if ("\n" eq mktablerow(2,'red','text','text', 'foo.jpg')) { print "ok 8\n"; } else { print "not ok 8\n"; } # # ensure mktableft returns the proper value # if ("

text
text
text	text
text	text

\n" eq mktableft()) { print "ok 9\n"; } else { print "not ok 9\n"; } # # skipping mkform for now # # # skipping mkform3 for now # # # skipping mkform2 for now # # # ensure endpage returns the proper value # if ("\n" eq endpage()) { print "ok 10\n"; } else { print "not ok 10\n"; } # # ensure mklink returns the right value # if ("foo" eq mklink('foo.html', 'foo')) { print "ok 11\n"; } else { print "not ok 11\n"; } # # ensure mkheadr returns the proper value # if ("foo
" eq mkheadr(1,'foo')) { print "ok 12\n"; } else { print "not ok 12\n"; } if ("foo" eq mkheadr(2,'foo')) { print "ok 13\n"; } else { print "not ok 13\n"; } if ("foo

" eq mkheadr(3,'foo')) { print "ok 14\n"; } else { print "not ok 14\n"; } # # test ¢er and &endcenter # if ("

\n" eq center()) { print "ok 15\n"; } else { print "not ok15\n"; } if ("\n" eq endcenter()) { print "ok 16\n"; } else { print "not ok 16\n"; } # # ensure bold returns proper value # if ("foo" eq bold('foo')) { print "ok 17\n"; } else { print "not ok\n"; } # # ensure &mkformnotable returns a valid value # @inputHidden = qw(hidden hiddenname hiddenvalue); @inputRadio = qw(radio radioname radiovalue); @inputText = qw(text textname textvalue); @inputTextarea = qw(textarea textareaname textareavalue); @inputSubmit = qw(submit submitname submitvalue); @inputReset = qw(reset resetname resetvalue); # 1 input; hidden @inputs = (\@inputHidden); $return =""; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 18\n"; } else { print "not ok 18\n"; } # 1 input; radio @inputs = (\@inputRadio); $return =""; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 19\n"; } else { print "not ok 19\n"; } # 1 input; text @inputs = (\@inputText); $return = ""; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 20\n"; } else { print "not ok 20\n"; } # 1 input; textarea @inputs = (\@inputTextarea); $return = ""; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 21\n"; } else { print "not ok 21\n"; } # 1 input; submit @inputs = (\@inputSubmit); $return = ""; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 22\n"; } else { print "not ok 22\n"; } # 1 input; reset @inputs = (\@inputReset); $return = ""; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 23\n"; } else { print "not ok 23\n"; } # 2 inputs; hidden and submit @inputs = (\@inputHidden, \@inputSubmit); $return = ""; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 24\n"; } else { print "not ok 24\n"; } # 3 inputs; text, submit, and reset @inputs = (\@inputText, \@inputSubmit, \@inputReset); $return = ""; if ($return eq mkformnotable('actionurl', @inputs)) { print "ok 25\n"; } else { print "not ok 25\n"; }