[Koha-devel] CVS: koha format.t,NONE,1.1.2.1 testKoha.pl,1.1.2.3,1.1.2.4
Pat Eyler
pate at users.sourceforge.net
Thu Apr 25 14:52:02 CEST 2002
- Previous message: [Koha-devel] CVS: koha/C4 Output.pm,1.6.2.6,1.6.2.7
- Next message: [Koha-devel] CVS: koha/C4 Accounts.pm,1.1.1.1,1.1.1.1.2.1 Accounts2.pm,1.9,1.9.2.1 Acquisitions.pm,1.5,1.5.2.1 Catalogue.pm,1.11,1.11.2.1 Circmain.pm,1.1.1.1,1.1.1.1.2.1 Circulation.pm,1.1.1.1,1.1.1.1.2.1 Database.pm,1.2,1.2.2.1 Format.pm,1.1.1.1,1.1.1.1.2.1 Groups.pm,1.1,1.1.2.1 Input.pm,1.1.1.1,1.1.1.1.2.1 InterfaceCDK.pm,1.1.1.1,1.1.1.1.2.1 Maintainance.pm,1.4,1.4.2.1 Print.pm,1.3,1.3.2.1 Reserves2.pm,1.5,1.5.2.1 Scan.pm,1.1.1.1,1.1.1.1.2.1 Search.pm,1.18,1.18.2.1 Security.pm,1.1.1.1,1.1.1.1.2.1 Stats.pm,1.3,1.3.2.1 Stock.pm,1.1.1.1,1.1.1.1.2.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv31657
Modified Files:
Tag: rel-1-2
testKoha.pl
Added Files:
Tag: rel-1-2
format.t
Log Message:
started adding tests for C4::Format
--- NEW FILE ---
BEGIN { $| = 1; print "1..5\n"; }
END {print "not ok 1\n" unless $loaded;}
use C4::Format;
$loaded = 1;
print "ok 1\n";
#
# ensure &startint returns a reasonable value
#
# try right formatting
if (" foo" eq fmtstr('','foo','R5')) {
print "ok 2\n";
} else {
print "not ok 2\n";
}
# try left formatting
if ("foo " eq fmtstr('','foo','L5')) {
print "ok 3\n";
} else {
print "not ok 3\n";
}
# try centering with even spacing
if (" foo " eq fmtstr('','foo','C5')) {
print "ok 4\n";
} else {
print "not ok 4\n";
}
# try centering with uneven spacing
if ("foo " eq fmtstr('','foo','C4')) {
print "ok 5\n";
} else {
print "not ok 5\n";
}
Index: testKoha.pl
===================================================================
RCS file: /cvsroot/koha/koha/testKoha.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -r1.1.2.3 -r1.1.2.4
*** testKoha.pl 25 Apr 2002 16:11:50 -0000 1.1.2.3
--- testKoha.pl 25 Apr 2002 21:51:09 -0000 1.1.2.4
***************
*** 5,8 ****
# please add many tests here
! runtests ('koha.t', 'output.t');
--- 5,8 ----
# please add many tests here
! runtests ('koha.t', 'output.t', 'format.t');
- Previous message: [Koha-devel] CVS: koha/C4 Output.pm,1.6.2.6,1.6.2.7
- Next message: [Koha-devel] CVS: koha/C4 Accounts.pm,1.1.1.1,1.1.1.1.2.1 Accounts2.pm,1.9,1.9.2.1 Acquisitions.pm,1.5,1.5.2.1 Catalogue.pm,1.11,1.11.2.1 Circmain.pm,1.1.1.1,1.1.1.1.2.1 Circulation.pm,1.1.1.1,1.1.1.1.2.1 Database.pm,1.2,1.2.2.1 Format.pm,1.1.1.1,1.1.1.1.2.1 Groups.pm,1.1,1.1.2.1 Input.pm,1.1.1.1,1.1.1.1.2.1 InterfaceCDK.pm,1.1.1.1,1.1.1.1.2.1 Maintainance.pm,1.4,1.4.2.1 Print.pm,1.3,1.3.2.1 Reserves2.pm,1.5,1.5.2.1 Scan.pm,1.1.1.1,1.1.1.1.2.1 Search.pm,1.18,1.18.2.1 Security.pm,1.1.1.1,1.1.1.1.2.1 Stats.pm,1.3,1.3.2.1 Stock.pm,1.1.1.1,1.1.1.1.2.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Koha-devel
mailing list