5 our @EXPORT_OK = qw(create_scanned create_uploaded create_created);
6 our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
12 object_type => 'sales_order',
17 $params{source} = 'scanner1';
18 $params{file_type} = 'document';
19 $params{file_path} = '/var/tmp/'.$params{file_name} if !$params{file_path};
20 open(OUT,"> ".$params{file_path});
21 print OUT $params{file_contents};
23 delete $params{file_contents};
24 my $file = _create_file(%params);
25 unlink($params{file_path});
31 $params{source} = 'uploaded';
32 $params{file_type} = 'attachment';
33 return _create_file(%params);
38 $params{source} = 'created';
39 $params{file_type} = 'document';
40 return _create_file(%params);
46 my $fileobj = SL::File->save(
48 mime_type => 'text/plain',
49 description => 'Test File',
50 file_type => $params{file_type},
51 source => $params{source},
52 file_name => $params{file_name},
53 file_contents => $params{file_contents},
54 file_path => $params{file_path}
59 sub get_all { SL::File->get_all (%common_params, @_) }
60 sub get_all_count { SL::File->get_all_count (%common_params, @_) }
61 sub get_all_versions { SL::File->get_all_versions(%common_params, @_) }
62 sub delete_all { SL::File->delete_all (%common_params, @_) }
70 SL::Dev::File - create file objects for testing, with minimal defaults
74 =head2 C<create_scanned %PARAMS>
76 =head2 C<create_uploaded %PARAMS>
78 =head2 C<create_created %PARAMS>
82 Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>