t/file/filesystem.t

   1 use strict;
   2 use Test::More tests => 14;
   3
   4 use lib 't';
   5
   6 use File::Temp;
   7 use Support::TestSetup;
   8 use Test::Exception;
   9 use SL::File;
  10 use SL::Dev::File;
  11
  12 Support::TestSetup::login();
  13
  14 my $temp_dir    = File::Temp::tempdir("kivi-t-file-filesystem.XXXXXX", TMPDIR => 1, CLEANUP => 1);
  15 my $storage_dir = "$temp_dir/storage";
  16
  17 mkdir($storage_dir) || die $!;
  18
  19 my $db = SL::DB::Object->new->db;
  20 $db->dbh->do("UPDATE defaults SET doc_files = 't'");
  21 $db->dbh->do("UPDATE defaults SET doc_files_rootpath = ?", undef, $storage_dir);
  22
  23 my $scannerfile = "${temp_dir}/f2";
  24
  25 clear_up();
  26 reset_state();
  27
  28 my $file1 = SL::Dev::File::create_uploaded( file_name => 'file1', file_contents => 'inhalt1 uploaded' );
  29 my $file2 = SL::Dev::File::create_scanned(  file_name => 'file2', file_contents => 'inhalt2 scanned', file_path => $scannerfile );
  30 my $file3 = SL::Dev::File::create_created(  file_name => 'file3', file_contents => 'inhalt3 created'    );
  31 my $file4 = SL::Dev::File::create_created(  file_name => 'file3', file_contents => 'inhalt3 new version');
  32
  33 is( SL::Dev::File->get_all_count(),                    3,"total number of files created is 3");
  34 ok( $file1->file_name                        eq 'file1' ,"file has right name");
  35 my $content1 = $file1->get_content;
  36 ok( $$content1 eq 'inhalt1 uploaded'                    ,"file has right content");
  37
  38 is( -f $scannerfile ? 1 : 0,                           0,"scanned document is moved from scanner");
  39
  40 $file2->delete;
  41 is( -f $scannerfile ? 1 : 0,                           1,"scanned document is moved back to scanner");
  42 my $content2 = File::Slurp::read_file($scannerfile);
  43 ok( $content2 eq 'inhalt2 scanned'                      ,"scanned file has right content");
  44
  45 my @file5 = SL::Dev::File->get_all(file_name => 'file3');
  46 is(   scalar( @file5),                                 1, "one actual file found");
  47 my $content5 = $file5[0]->get_content();
  48 ok( $$content5 eq 'inhalt3 new version'                 ,"file has right actual content");
  49
  50 my @file6 = SL::Dev::File->get_all_versions(file_name => 'file3');
  51 is(   scalar( @file6),                                 2,"two file versions found");
  52 $content5 = $file6[0]->get_content;
  53 ok( $$content5 eq 'inhalt3 new version'                 ,"file has right actual content");
  54 $content5 = $file6[1]->get_content;
  55 ok( $$content5 eq 'inhalt3 created'                     ,"file has right old content");
  56
  57 #print "\n\nController Test:\n";
  58 # now test controller
  59 #$::form->{object_id}  = 1;
  60 #$::form->{object_type}= 'sales_order';
  61 #$::form->{file_type}  = 'document';
  62
  63 my $output;
  64 open(my $outputFH, '>', \$output) or die; # This shouldn't fail
  65 my $oldFH = select $outputFH;
  66
  67 $::form->{id}  = $file1->id;
  68 use SL::Controller::File;
  69 SL::Controller::File->action_download();
  70
  71 select $oldFH;
  72 close $outputFH;
  73 my @lines = split "\n" , $output;
  74 ok($lines[4] eq 'inhalt1 uploaded'                 ,"controller download has correct content");
  75
  76 #some controller checks
  77 $::form->{object_id}   = 12345678;
  78 $::form->{object_type} = undef;
  79 my $result='xx1';
  80 eval {
  81   SL::Controller::File->check_object_params();
  82   $result='yy1';
  83   1;
  84 } or do {
  85   $result=$@;
  86 };
  87 $result = substr($result,0,14);
  88 #print $result."\n";
  89 ok($result eq "No object type","correct error 'No object type'");
  90
  91 $::form->{object_type} ='sales_order';
  92 $::form->{file_type} ='';
  93 $result='xx2';
  94 eval {
  95   SL::Controller::File->check_object_params();
  96   $result='yy2';
  97   1;
  98 } or do {
  99   $result=$@;
 100 };
 101 $result = substr($result,0,12);
 102 #print $result."\n";
 103 ok($result eq "No file type","correct error 'No file type'");
 104
 105 clear_up();
 106 done_testing;
 107
 108 sub clear_up {
 109   # Cleaning up may fail.
 110   eval {
 111     SL::Dev::File->delete_all();
 112     unlink($scannerfile);
 113   };
 114 }
 115
 116 sub reset_state {
 117   my %params = @_;
 118
 119 };
 120
 121 1;