X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a4684ad190c3a7adfa50ccec2c7c072ec2fe7f4f..d1f44c84d990f57982854c6a4716c0f233f45bca:/t/file/filesystem.t diff --git a/t/file/filesystem.t b/t/file/filesystem.t index cd033a7fc..d35a95faf 100644 --- a/t/file/filesystem.t +++ b/t/file/filesystem.t @@ -15,10 +15,10 @@ my $temp_dir = File::Temp::tempdir("kivi-t-file-filesystem.XXXXXX", TMPDIR => my $storage_dir = "$temp_dir/storage"; mkdir($storage_dir) || die $!; - -my $db = SL::DB::Object->new->db; -$db->dbh->do("UPDATE defaults SET doc_files = 't'"); -$db->dbh->do("UPDATE defaults SET doc_files_rootpath = ?", undef, $storage_dir); +{ +local $::lx_office_conf{paths}->{document_path} = $storage_dir; +$::instance_conf->data; +local $::instance_conf->{data}{doc_files} = 1; my $scannerfile = "${temp_dir}/f2"; @@ -84,7 +84,9 @@ eval { } or do { $result=$@; }; -ok($result eq "No object type at SL/Controller/File.pm line 327.\n","correct error 'No object type'"); +$result = substr($result,0,14); +#print $result."\n"; +ok($result eq "No object type","correct error 'No object type'"); $::form->{object_type} ='sales_order'; $::form->{file_type} =''; @@ -96,7 +98,9 @@ eval { } or do { $result=$@; }; -ok($result eq "No file type at SL/Controller/File.pm line 328.\n","correct error 'No file type'"); +$result = substr($result,0,12); +#print $result."\n"; +ok($result eq "No file type","correct error 'No file type'"); clear_up(); done_testing; @@ -109,6 +113,8 @@ sub clear_up { }; } +} + sub reset_state { my %params = @_;