-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";
+ok( $$content5 eq 'content3 new version' , "file has correct current content");
+
+my @file6 = SL::File->get_all_versions(%common_params, file_name => 'file3');
+is( scalar @file6 , 2, "file3: two file versions found");
+my $content6 = $file6[0]->get_content;
+ok( $$content6 eq 'content3 new version' , "file has correct current content");
+$content6 = $file6[1]->get_content;
+ok( $$content6 eq 'content3 created' , "file has correct old content");
+
+note('testing controller');
+my $output;
+open(my $outputFH, '>', \$output) or die; # This shouldn't fail
+my $oldFH = select $outputFH;
+
+$::form->{id} = $file1->id;