Dateimanagement: Backend "Filesystem"

[kivitendo-erp.git] / t / file / filesystem.t

diff --git a/t/file/filesystem.t b/t/file/filesystem.t
new file mode 100644 (file)
index 0000000..314a2f2
--- /dev/null
+++ b/t/file/filesystem.t
@@ -0,0 +1,89 @@
+use strict;
+use Test::More tests => 11;
+
+use lib 't';
+use Support::TestSetup;
+use Test::Exception;
+use SL::File;
+use SL::Dev::File;
+
+Support::TestSetup::login();
+
+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 = '/var/tmp/kivifs'");
+
+my $scannerfile = '/var/tmp/f2';
+
+clear_up();
+reset_state();
+
+my $file1 = SL::Dev::File::create_uploaded( file_name => 'file1', file_contents => 'inhalt1 uploaded' );
+my $file2 = SL::Dev::File::create_scanned(  file_name => 'file2', file_contents => 'inhalt2 scanned', file_path => $scannerfile );
+my $file3 = SL::Dev::File::create_created(  file_name => 'file3', file_contents => 'inhalt3 created'    );
+my $file4 = SL::Dev::File::create_created(  file_name => 'file3', file_contents => 'inhalt3 new version');
+
+is( SL::Dev::File->get_all_count(),                    3,"total number of files created is 3");
+ok( $file1->file_name                        eq 'file1' ,"file has right name");
+my $content1 = $file1->get_content;
+ok( $$content1 eq 'inhalt1 uploaded'                    ,"file has right content");
+
+is( -f $scannerfile ? 1 : 0,                           0,"scanned document is moved from scanner");
+
+$file2->delete;
+is( -f $scannerfile ? 1 : 0,                           1,"scanned document is moved back to scanner");
+my $content2 = File::Slurp::read_file($scannerfile);
+ok( $content2 eq 'inhalt2 scanned'                      ,"scanned file has right content");
+
+my @file5 = SL::Dev::File->get_all(file_name => 'file3');
+is(   scalar( @file5),                                 1, "one actual file found");
+my $content5 = $file5[0]->get_content();
+ok( $$content5 eq 'inhalt3 new version'                 ,"file has right actual content");
+
+my @file6 = SL::Dev::File->get_all_versions(file_name => 'file3');
+is(   scalar( @file6),                                 2,"two file versions found");
+$content5 = $file6[0]->get_content;
+ok( $$content5 eq 'inhalt3 new version'                 ,"file has right actual content");
+$content5 = $file6[1]->get_content;
+ok( $$content5 eq 'inhalt3 created'                     ,"file has right old content");
+
+print "\n\nController:\n";
+# now test controller
+#$::form->{object_id}  = 1;
+#$::form->{object_type}= 'sales_order';
+#$::form->{file_type}  = 'document';
+$::form->{id}  = $file1->id;
+print "id=".$::form->{id}."\n";
+use SL::Controller::File;
+SL::Controller::File->action_download();
+$::form->{object_id}   = 12345678;
+$::form->{object_type} = undef;
+eval {
+  SL::Controller::File->check_object_params();
+  1;
+} or do {
+    print $@;
+};
+$::form->{object_type} ='xx';
+$::form->{file_type} ='yy';
+eval {
+  SL::Controller::File->check_object_params();
+  1;
+} or do {
+    print $@;
+};
+
+clear_up();
+done_testing;
+
+sub clear_up {
+  SL::Dev::File->delete_all();
+  unlink($scannerfile);
+};
+
+sub reset_state {
+  my %params = @_;
+
+};
+
+1;