From 92dbfc6c9f437b1a10cc070cc37d2b44a68a4df6 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Wed, 17 Oct 2007 22:19:08 -0500 Subject: [PATCH] Renamed file to match module. Trivial change. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- t/Output.t | 282 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 282 insertions(+) create mode 100644 t/Output.t diff --git a/t/Output.t b/t/Output.t new file mode 100644 index 0000000000..059c2c6788 --- /dev/null +++ b/t/Output.t @@ -0,0 +1,282 @@ +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
texttext
texttext
\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 ="
\n"; +$return .= "\n"; +$return .= "
"; + +if ($return eq mkformnotable('actionurl', @inputs)) { + print "ok 18\n"; +} else { + print "not ok 18\n"; +} + +# 1 input; radio +@inputs = (\@inputRadio); +$return ="
\n"; +$return .= "radiovalue\n"; +$return .= "
"; + +if ($return eq mkformnotable('actionurl', @inputs)) { + print "ok 19\n"; +} else { + print "not ok 19\n"; +} + +# 1 input; text +@inputs = (\@inputText); +$return = "
\n"; +$return .= "\n"; +$return .= "
"; + +if ($return eq mkformnotable('actionurl', @inputs)) { + print "ok 20\n"; +} else { + print "not ok 20\n"; +} + + +# 1 input; textarea +@inputs = (\@inputTextarea); +$return = "
\n"; +$return .= "\n"; +$return .= "
"; + +if ($return eq mkformnotable('actionurl', @inputs)) { + print "ok 21\n"; +} else { + print "not ok 21\n"; +} + +# 1 input; submit +@inputs = (\@inputSubmit); +$return = "
\n"; +$return .= "\n"; +$return .= "
"; + +if ($return eq mkformnotable('actionurl', @inputs)) { + print "ok 22\n"; +} else { + print "not ok 22\n"; +} + +# 1 input; reset +@inputs = (\@inputReset); +$return = "
\n"; +$return .= "\n"; +$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 = "
\n"; +$return .= "\n"; +$return .= "\n"; +$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 = "
\n"; +$return .= "\n"; +$return .= "\n"; +$return .= "\n"; +$return .= "
"; + +if ($return eq mkformnotable('actionurl', @inputs)) { + print "ok 25\n"; +} else { + print "not ok 25\n"; +} + + + + + -- 2.39.5