[Koha-cvs] koha/t format.t require.t [rel_3_0]

Antoine Farnault antoine at koha-fr.org
Mon Oct 30 16:27:17 CET 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	06/10/30 15:27:17

Removed files:
	t              : format.t require.t 

Log message:
	these test files are deprecated.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/t/format.t?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/t/require.t?cvsroot=koha&only_with_tag=rel_3_0&r1=1.3&r2=0

Patches:
Index: format.t
===================================================================
RCS file: format.t
diff -N format.t
--- format.t	20 Jun 2002 18:18:12 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,37 +0,0 @@
-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: require.t
===================================================================
RCS file: require.t
diff -N require.t
--- require.t	12 Oct 2002 06:09:10 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,6 +0,0 @@
-BEGIN { $| = 1; print "1..4\n"; }
-
-my $i = 1;
-eval { require Date::Manip; } || print "not "; print "ok ",$i++,"\n";
-eval { require DBI; }         || print "not "; print "ok ",$i++,"\n";
-eval { require DBD::mysql; }  || print "not "; print "ok ",$i++,"\n";





More information about the Koha-cvs mailing list