[Koha-devel] CVS: koha testKoha.pl,1.1.2.2,1.1.2.3 output.t,1.1.2.1,1.1.2.2

[Pat Eyler]

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 &center 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";
+ }