X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2FOutput.t;h=a70e7c8f6f337e88a26fda9a6cbfe599790b69ae;hb=6c10d685a7c464e2e483d9f1818d820abb421d89;hp=059c2c67888e424c9eb1813b02e46c6a5c47395c;hpb=92dbfc6c9f437b1a10cc070cc37d2b44a68a4df6;p=koha_fer diff --git a/t/Output.t b/t/Output.t old mode 100644 new mode 100755 index 059c2c6788..a70e7c8f6f --- 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"; -} - - - - -