[Koha-devel] CVS: koha format.t,NONE,1.1.2.1 testKoha.pl,1.1.2.3,1.1.2.4

[Pat Eyler]

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