Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv19694 Modified Files: Tag: rel-1-2 testKoha.pl output.t Log Message: more tests in output.t and a cleanup for testKoha.pl Index: testKoha.pl =================================================================== RCS file: /cvsroot/koha/koha/testKoha.pl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -r1.1.2.2 -r1.1.2.3 *** testKoha.pl 25 Apr 2002 14:49:32 -0000 1.1.2.2 --- testKoha.pl 25 Apr 2002 16:11:50 -0000 1.1.2.3 *************** *** 5,8 **** # please add many tests here ! runtests 'koha.t'; ! runtests 'output.t'; --- 5,8 ---- # please add many tests here ! runtests ('koha.t', 'output.t'); ! Index: output.t =================================================================== RCS file: /cvsroot/koha/koha/Attic/output.t,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -r1.1.2.1 -r1.1.2.2 *** output.t 25 Apr 2002 14:49:32 -0000 1.1.2.1 --- output.t 25 Apr 2002 16:11:50 -0000 1.1.2.2 *************** *** 1,3 **** ! BEGIN { $| = 1; print "1..6\n"; } END {print "not ok 1\n" unless $loaded;} use C4::Output; --- 1,3 ---- ! BEGIN { $| = 1; print "1..17\n"; } END {print "not ok 1\n" unless $loaded;} use C4::Output; *************** *** 45,49 **** # 1 row, no background image if ("<tr valign=top bgcolor=red><td>text</td></tr>\n" eq ! mktablerow(1,'red','text','')) { print "ok 5\n"; } else { --- 45,49 ---- # 1 row, no background image if ("<tr valign=top bgcolor=red><td>text</td></tr>\n" eq ! mktablerow(1,'red','text')) { print "ok 5\n"; } else { *************** *** 57,59 **** --- 57,169 ---- print "not ok 6\n"; } + #2 rows, no background image + if ("<tr valign=top bgcolor=red><td>text</td><td>text</td></tr>\n" eq + mktablerow(2,'red','text','text')) { + print "ok 7\n"; + } else { + print "not ok 7\n"; + } + + # 2 rows, background image + if ("<tr valign=top bgcolor=red><td background=\"foo.jpg\">text</td><td background=\"foo.jpg\">text</td></tr>\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 ("</table>\n" eq mktableft()) { + print "ok 9\n"; + } else { + print "not ok 9\n"; + } + + + # + # skipping mkform for now + # + + # + # skipping mkform3 for now + # + + # + # skipping mkformnotable for now + # + + # + # skipping mkform2 for now + # + # + # ensure endpage returns the proper value + # + + if ("</body></html>\n" eq endpage()) { + print "ok 10\n"; + } else { + print "not ok 10\n"; + } + + + # + # ensure mklink returns the right value + # + + if ("<a href=\"foo.html\">foo</a>" eq mklink('foo.html', 'foo')) { + print "ok 11\n"; + } else { + print "not ok 11\n"; + } + + # + # ensure mkheadr returns the proper value + # + + if ("<FONT SIZE=6><em>foo</em></FONT><br>" eq mkheadr(1,'foo')) { + print "ok 12\n"; + } else { + print "not ok 12\n"; + } + + if ("<FONT SIZE=6><em>foo</em></FONT>" eq mkheadr(2,'foo')) { + print "ok 13\n"; + } else { + print "not ok 13\n"; + } + + if ("<FONT SIZE=6><em>foo</em></FONT><p>" eq mkheadr(3,'foo')) { + print "ok 14\n"; + } else { + print "not ok 14\n"; + } + + # + # test ¢er and &endcenter + # + + if ("<CENTER>\n" eq center()) { + print "ok 15\n"; + } else { + print "not ok15\n"; + } + + if ("</CENTER>\n" eq endcenter()) { + print "ok 16\n"; + } else { + print "not ok 16\n"; + } + + # + # ensure bold returns proper value + # + + if ("<b>foo</b>" eq bold('foo')) { + print "ok 17\n"; + } else { + print "not ok\n"; + }