[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha output.t,NONE,1.1.2.1 testKoha.pl,1.1.2.1,1.1.2.2
From: |
Pat Eyler |
Subject: |
[Koha-devel] CVS: koha output.t,NONE,1.1.2.1 testKoha.pl,1.1.2.1,1.1.2.2 |
Date: |
Thu Apr 25 07:50:37 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';
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] CVS: koha output.t,NONE,1.1.2.1 testKoha.pl,1.1.2.1,1.1.2.2,
Pat Eyler <=