Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 900bb49e

Von Bernd Bleßmann vor mehr als 3 Jahren hinzugefügt

  • ID 900bb49e00edc997dce7cfbeea28212a827104f8
  • Vorgänger b1e8bade
  • Nachfolger fefbf250

Testwarnung: doppelte "my $x" vermeiden

Unterschiede anzeigen:

t/x/exceptions.t
22 22 
  is $x->message, "test message", "$error_class(message): message works";
23 23 
  is "$x",        "test message", "$error_class(message): stringify works";
24 24 

  		




  25
  
  
    
  my $x = $error_class->new(error => "test message");


  		




  
  25
  
    
  $x = $error_class->new(error => "test message");


  		




  26
  26
  
    

  		




  27
  27
  
    
  is $x->error,   "test message", "$error_class(error): error works";


  		




  28
  28
  
    
  is $x->message, "test message", "$error_class(error): message works";


  		




  ......




  39
  39
  
    
is "$x",        "stuff: broke", "template: stringify works";


  		




  40
  40
  
    

  		




  41
  41
  
    

  		




  42
  
  
    
my $x = SL::X::Inventory::Allocation->new(code => "DEADCOFFEE", message => "something went wrong");


  		




  
  42
  
    
$x = SL::X::Inventory::Allocation->new(code => "DEADCOFFEE", message => "something went wrong");


  		




  43
  43
  
    

  		




  44
  44
  
    
is $x->code,   "DEADCOFFEE", "extra fields work";


  		




  45
  45
  
    

  		












Auch abrufbar als:  Unified diff