t/ship/ship_order.t: Fake STDOUT muss schreibbar sein.

diff --git a/t/shop/shop_order.t b/t/shop/shop_order.t
index 5504231..762c639 100644 (file)
--- a/t/shop/shop_order.t
+++ b/t/shop/shop_order.t
@@ -38,7 +38,7 @@ sub reset_state {
 sub save_shorcontroller_to_string {
 
   my $output;
-  open(my $outputFH, '<', \$output) or die "OUTPUT";
+  open(my $outputFH, '>', \$output) or die "OUTPUT";
   my $oldFH = select $outputFH;
   my $shor_controller = SL::Controller::ShopOrder->new;
   $shor_controller->action_transfer;