CVS: koha output.t,NONE,1.1.2.1 testKoha.pl,1.1.2.1,1.1.2.2

25 Apr 2002


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

Modified Files:
      Tag: rel-1-2
	testKoha.pl 
Added Files:
      Tag: rel-1-2
	output.t 
Log Message:
started building tests for C4::Output

--- NEW FILE ---
BEGIN { $| = 1; print "1..6\n"; }
END {print "not ok 1\n" unless $loaded;}
use C4::Output;
$loaded = 1;
print "ok 1\n";

#
# ensure &startpage returns correct value
#
if ("<html>\n" eq startpage()) {
    print "ok 2\n";
} else {
    print "not ok 2\n";
}

#
# Check that &gotopage returns proper value
#
if ("<META HTTP-EQUIV=Refresh CONTENT=\"0;URL=http:foo\">" 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 ("<table border=0 cellspacing=0 cellpadding=5>\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 ("<tr valign=top bgcolor=red><td>text</td></tr>\n" eq
    mktablerow(1,'red','text','')) {
    print "ok 5\n";
} else { 
    print "not ok 5\n";
}
# 1 row, background image
if ("<tr valign=top bgcolor=red><td background=\"foo.jpg\">text</td></tr>\n" eq
    mktablerow(1,'red','text','foo.jpg')) {
    print "ok 6\n";
} else {
    print "not ok 6\n";
}


Index: testKoha.pl
===================================================================
RCS file: /cvsroot/koha/koha/testKoha.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** testKoha.pl	24 Apr 2002 22:08:10 -0000	1.1.2.1
--- testKoha.pl	25 Apr 2002 14:49:32 -0000	1.1.2.2
***************
*** 6,7 ****
--- 6,8 ----
  # please add many tests here
  runtests 'koha.t';
+ runtests 'output.t';

Pat Eyler

tags

participants (1)