From 1943e17d60795521b0cd0f146e78c0564efa9d04 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 8 Jan 2008 12:57:28 -0600 Subject: [PATCH] C4::Output tests -- removed inccorect tests Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- t/Output.t | 284 ++--------------------------------------------------- 1 file changed, 6 insertions(+), 278 deletions(-) diff --git a/t/Output.t b/t/Output.t index 059c2c6788..a70e7c8f6f 100755 --- a/t/Output.t +++ b/t/Output.t @@ -1,282 +1,10 @@ -BEGIN { $| = 1; print "1..25\n"; } -END {print "not ok 1\n" unless $loaded;} -use C4::Output; -$loaded = 1; -print "ok 1\n"; +#!/usr/bin/perl -# -# 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 -# +use strict; +use warnings; -# -# 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"; -} +use Test::More tests => 1; -if ("
\n" eq endcenter()) { - print "ok 16\n"; -} else { - print "not ok 16\n"; +BEGIN { + use_ok('C4::Output'); } - -# -# 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