X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fbcd5580d153156a01e9f8d071df5316b9da7777..2bb452ee62e74c2a42113171eeb53de8d09bbbf5:/SL/Dev/File.pm

diff --git a/SL/Dev/File.pm b/SL/Dev/File.pm
new file mode 100644
index 000000000..ff1ea116d
--- /dev/null
+++ b/SL/Dev/File.pm
@@ -0,0 +1,103 @@
+package SL::Dev::File;
+
+use strict;
+use base qw(Exporter);
+our @EXPORT = qw(create_scanned create_uploaded create_created get_all_count get_all get_all_versions delete_all);
+
+use SL::DB::File;
+
+sub create_scanned {
+  my (%params) = @_;
+  $params{source}    = 'scanner1';
+  $params{file_type} = 'document';
+  $params{file_path} = '/var/tmp/'.$params{file_name} if !$params{file_path};
+  open(OUT,"> ".$params{file_path});
+  print OUT $params{file_contents};
+  close(OUT);
+  delete $params{file_contents};
+  my $file = _create_file(%params);
+  unlink($params{file_path});
+  return $file;
+}
+
+sub create_uploaded {
+  my (%params) = @_;
+  $params{source}    = 'uploaded';
+  $params{file_type} = 'attachment';
+  return _create_file(%params);
+}
+
+sub create_created {
+  my (%params) = @_;
+  $params{source}    = 'created';
+  $params{file_type} = 'document';
+  return _create_file(%params);
+}
+
+sub _create_file {
+  my (%params) = @_;
+
+  my $fileobj = SL::File->save(
+    object_id          => 1,
+    object_type        => 'sales_order',
+    mime_type          => 'text/plain',
+    description        => 'Test File',
+    file_type          => $params{file_type},
+    source             => $params{source},
+    file_name          => $params{file_name},
+    file_contents      => $params{file_contents},
+    file_path          => $params{file_path}
+  );
+  return $fileobj;
+}
+
+sub get_all_count {
+  my ($class,%params) = @_;
+  $params{object_id}   = 1;
+  $params{object_type} = 'sales_order';
+  return SL::File->get_all_count(%params);
+}
+
+sub get_all {
+  my ($class,%params) = @_;
+  $params{object_id}   = 1;
+  $params{object_type} = 'sales_order';
+  SL::File->get_all(%params);
+}
+
+sub get_all_versions {
+  my ($class,%params) = @_;
+  $params{object_id}   = 1;
+  $params{object_type} = 'sales_order';
+  SL::File->get_all_versions(%params);
+}
+
+sub delete_all {
+  my ($class,%params) = @_;
+  $params{object_id}   = 1;
+  $params{object_type} = 'sales_order';
+  SL::File->delete_all(%params);
+}
+1;
+
+__END__
+
+=head1 NAME
+
+SL::Dev::File - create file objects for testing, with minimal defaults
+
+=head1 FUNCTIONS
+
+=head2 C<create_scanned %PARAMS>
+
+=head2 C<create_uploaded %PARAMS>
+
+=head2 C<create_created %PARAMS>
+
+=head2 C<delete_all>
+
+=head1 AUTHOR
+
+Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>
+
+=cut