-
-#
-# ensure bold returns proper value
-#
-
-if ("<b>foo</b>" 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 ="<form action=actionurl method=post>\n";
-$return .= "<input type=hidden name=hiddenname value=\"hiddenvalue\">\n";
-$return .= "</form>";
-
-if ($return eq mkformnotable('actionurl', @inputs)) {
- print "ok 18\n";
-} else {
- print "not ok 18\n";
-}
-
-# 1 input; radio
-@inputs = (\@inputRadio);
-$return ="<form action=actionurl method=post>\n";
-$return .= "<input type=radio name=radioname value=\"radiovalue\">radiovalue\n";
-$return .= "</form>";
-
-if ($return eq mkformnotable('actionurl', @inputs)) {
- print "ok 19\n";
-} else {
- print "not ok 19\n";
-}
-
-# 1 input; text
-@inputs = (\@inputText);
-$return = "<form action=actionurl method=post>\n";
-$return .= "<input type=text name=textname value=\"textvalue\">\n";
-$return .= "</form>";
-
-if ($return eq mkformnotable('actionurl', @inputs)) {
- print "ok 20\n";
-} else {
- print "not ok 20\n";
-}
-
-
-# 1 input; textarea
-@inputs = (\@inputTextarea);
-$return = "<form action=actionurl method=post>\n";
-$return .= "<textarea name=textareaname wrap=physical cols=40 rows=4>textareavalue</textarea>\n";
-$return .= "</form>";
-
-if ($return eq mkformnotable('actionurl', @inputs)) {
- print "ok 21\n";
-} else {
- print "not ok 21\n";
-}
-
-# 1 input; submit
-@inputs = (\@inputSubmit);
-$return = "<form action=actionurl method=post>\n";
-$return .= "<input type=submit name=submitname value=\"submitvalue\">\n";
-$return .= "</form>";
-
-if ($return eq mkformnotable('actionurl', @inputs)) {
- print "ok 22\n";
-} else {
- print "not ok 22\n";
-}
-
-# 1 input; reset
-@inputs = (\@inputReset);
-$return = "<form action=actionurl method=post>\n";
-$return .= "<input type=reset name=resetname value=\"resetvalue\">\n";
-$return .= "</form>";
-
-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 = "<form action=actionurl method=post>\n";
-$return .= "<input type=hidden name=hiddenname value=\"hiddenvalue\">\n";
-$return .= "<input type=submit name=submitname value=\"submitvalue\">\n";
-$return .= "</form>";
-
-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 = "<form action=actionurl method=post>\n";
-$return .= "<input type=text name=textname value=\"textvalue\">\n";
-$return .= "<input type=submit name=submitname value=\"submitvalue\">\n";
-$return .= "<input type=reset name=resetname value=\"resetvalue\">\n";
-$return .= "</form>";
-
-if ($return eq mkformnotable('actionurl', @inputs)) {
- print "ok 25\n";
-} else {
- print "not ok 25\n";
-}
-
-
-
-
-