[Sandweb-commit] CVS: sandweb/t file.t,1.2,1.3 repository.t,1.7,1.8

[Rob H. <for...@us...>]

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