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 550423178405e74e58900c03c0ca8625f9c02555..762c6391760e61a3b2d97c1aa83be3047bd8fb0b 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;