From 900bb49e00edc997dce7cfbeea28212a827104f8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= Date: Mon, 31 May 2021 11:26:55 +0200 Subject: [PATCH] Testwarnung: doppelte "my $x" vermeiden --- t/x/exceptions.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/x/exceptions.t b/t/x/exceptions.t index 18ae115f8..e54327bf8 100644 --- a/t/x/exceptions.t +++ b/t/x/exceptions.t @@ -22,7 +22,7 @@ for my $error_class (@classes) { is $x->message, "test message", "$error_class(message): message works"; is "$x", "test message", "$error_class(message): stringify works"; - my $x = $error_class->new(error => "test message"); + $x = $error_class->new(error => "test message"); is $x->error, "test message", "$error_class(error): error works"; is $x->message, "test message", "$error_class(error): message works"; @@ -39,7 +39,7 @@ is $x->message, "stuff: broke", "tempalte: message works"; is "$x", "stuff: broke", "template: stringify works"; -my $x = SL::X::Inventory::Allocation->new(code => "DEADCOFFEE", message => "something went wrong"); +$x = SL::X::Inventory::Allocation->new(code => "DEADCOFFEE", message => "something went wrong"); is $x->code, "DEADCOFFEE", "extra fields work"; -- 2.20.1