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');