Update of /cvsroot/sandweb/sandweb/t
In directory usw-pr-cvs1:/tmp/cvs-serv18103
Modified Files:
file.t repository.t
Log Message:
corrected tests!
Index: file.t
===================================================================
RCS file: /cvsroot/sandweb/sandweb/t/file.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -U2 -r1.2 -r1.3
--- file.t 28 Mar 2002 03:30:05 -0000 1.2
+++ file.t 14 Aug 2002 02:13:56 -0000 1.3
@@ -55,5 +55,8 @@
# test 7
-ok( $file->create_file( contents => 'test' ) );
+$create_test = $file->create_file( contents => 'test');
+unless ($create_test{'error'}) {
+ ok(1);
+}
# test 8
Index: repository.t
===================================================================
RCS file: /cvsroot/sandweb/sandweb/t/repository.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -U2 -r1.7 -r1.8
--- repository.t 8 May 2002 02:39:56 -0000 1.7
+++ repository.t 14 Aug 2002 02:13:56 -0000 1.8
@@ -32,5 +32,7 @@
my %test = $repository->checkout( file => 'sandbox' );
-ok( $test{'errorlevel'} );
+unless ($test{'errorlevel'}) {
+ ok(1);
+}
# test 5
@@ -49,5 +51,7 @@
%test = $repository->add( file => 'sandbox/testfile.c' );
-ok( $test{'errorlevel'} );
+unless ($test{'errorlevel'}) {
+ ok(1);
+}
# test 9
@@ -57,5 +61,7 @@
message => 'test add',
);
-ok( $test{'errorlevel'} );
+unless ($test{'errorlevel'}) {
+ ok(1);
+}
# test 10
@@ -74,5 +80,7 @@
file => 'sandbox/testfile.c',
);
-ok( $test{'errorlevel'} );
+unless ($test{'errorlevel'}) {
+ ok(1);
+}
# test 12
@@ -82,5 +90,7 @@
message => 'test remove',
);
-ok( $test{'errorlevel'} );
+unless ($test{'errorlevel'}) {
+ ok(1);
+}
# cleanup section
|
