From pate@users.sourceforge.net Thu Apr 25 09:12:00 2002
From: Pat Eyler <pate@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject:
 [Koha-devel] CVS: koha testKoha.pl,1.1.2.2,1.1.2.3 output.t,1.1.2.1,1.1.2.2
Date: Thu, 25 Apr 2002 09:14:09 +0000
Message-ID: <E170lqb-000583-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============5427790775072133855=="

--===============5427790775072133855==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv19694

Modified Files:
      Tag: rel-1-2
	testKoha.pl output.t=20
Log Message:
more tests in output.t and a cleanup for testKoha.pl

Index: testKoha.pl
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
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 ****
 =20
  # please add many tests here
! runtests 'koha.t';
! runtests 'output.t';
--- 5,8 ----
 =20
  # please add many tests here
! runtests ('koha.t', 'output.t');
!=20

Index: output.t
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
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 { $| =3D 1; print "1..6\n"; }
  END {print "not ok 1\n" unless $loaded;}
  use C4::Output;
--- 1,3 ----
! BEGIN { $| =3D 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=3Dtop bgcolor=3Dred><td>text</td></tr>\n" eq
!     mktablerow(1,'red','text','')) {
      print "ok 5\n";
  } else {=20
--- 45,49 ----
  # 1 row, no background image
  if ("<tr valign=3Dtop bgcolor=3Dred><td>text</td></tr>\n" eq
!     mktablerow(1,'red','text')) {
      print "ok 5\n";
  } else {=20
***************
*** 57,59 ****
--- 57,169 ----
      print "not ok 6\n";
  }
+ #2 rows, no background image
+ if ("<tr valign=3Dtop bgcolor=3Dred><td>text</td><td>text</td></tr>\n" eq
+     mktablerow(2,'red','text','text')) {
+     print "ok 7\n";
+ } else {
+     print "not ok 7\n";
+ }
+=20
+ # 2 rows, background image
+ if ("<tr valign=3Dtop bgcolor=3Dred><td background=3D\"foo.jpg\">text</td><=
td background=3D\"foo.jpg\">text</td></tr>\n" eq=20
+     mktablerow(2,'red','text','text', 'foo.jpg')) {
+     print "ok 8\n";
+ } else {
+     print "not ok 8\n";
+ }
+=20
+ #
+ # ensure mktableft returns the proper value
+ #
+=20
+ if ("</table>\n" eq mktableft()) {
+     print "ok 9\n";
+ } else {
+     print "not ok 9\n";
+ }
+=20
+=20
+ #
+ # skipping mkform for now
+ #
+=20
+ #
+ # skipping mkform3 for now
+ #
+=20
+ #
+ # skipping mkformnotable for now
+ #
+=20
+ #
+ # skipping mkform2 for now
+ #
 =20
+ #
+ # ensure endpage returns the proper value
+ #
+=20
+ if ("</body></html>\n" eq endpage()) {
+     print "ok 10\n";
+ } else {
+     print "not ok 10\n";
+ }
+=20
+=20
+ #
+ # ensure mklink returns the right value
+ #
+=20
+ if ("<a href=3D\"foo.html\">foo</a>" eq mklink('foo.html', 'foo')) {
+     print "ok 11\n";
+ } else {
+     print "not ok 11\n";
+ }
+=20
+ #
+ # ensure mkheadr returns the proper value
+ #
+=20
+ if ("<FONT SIZE=3D6><em>foo</em></FONT><br>" eq mkheadr(1,'foo')) {
+     print "ok 12\n";
+ } else {
+     print "not ok 12\n";
+ }
+=20
+ if ("<FONT SIZE=3D6><em>foo</em></FONT>" eq mkheadr(2,'foo')) {
+     print "ok 13\n";
+ } else {
+     print "not ok 13\n";
+ }
+=20
+ if ("<FONT SIZE=3D6><em>foo</em></FONT><p>" eq mkheadr(3,'foo')) {
+     print "ok 14\n";
+ } else {
+     print "not ok 14\n";
+ }
+=20
+ #
+ # test &center and &endcenter
+ #
+=20
+ if ("<CENTER>\n" eq center()) {
+     print "ok 15\n";
+ } else {=20
+     print "not ok15\n";
+ }
+=20
+ if ("</CENTER>\n" eq endcenter()) {
+     print "ok 16\n";
+ } else {=20
+     print "not ok 16\n";
+ }
+=20
+ #
+ # ensure bold returns proper value
+ #
+=20
+ if ("<b>foo</b>" eq bold('foo')) {
+     print "ok 17\n";
+ } else {
+     print "not ok\n";
+ }



--===============5427790775072133855==--