Test::Env Ergebnis eines einzelnen Tests abfragen (Allgemeines zu Perl)

[thread]13788[/thread]

Test::Env Ergebnis eines einzelnen Tests abfragen

Readers: 19

Articles: hide open all | hide show old branches

+12 replies
guest Focus

2009-07-27 09:55

Guten Tag,

ist es möglich in einem Programm abzufragen ob die Funktion "env_ok" mit ok oder not ok durchgelaufen ist? in $? steht bei ok und not ok jedes mal 0.

Focus
- +2 replies
- murphy
  
  2009-07-27 10:08
  
  User since
  2004-07-19
  1776 articles
  HausmeisterIn
  
  Um die Frage beantworten zu können, müsste man erstmal wissen, was Du unter
  Quote
  [...] mit ok oder not ok durchgelaufen [...]
  verstehst.
  
  Die Spezialvariable $? enthält einfach den Status des letzten externen Kommandos, das mittels backticks (``) oder system ausgeführt wurde, zu dem eine Pipe benutzt und jetzt geschlossen wurde, oder das anderweitig als Kindprozess lief und dessen Status jetzt mittels wait oder waitpid abgefragt wurde.
  
  Der Status eines externen Kommandos muss aber ja nicht unbedingt etwas damit zu tun haben, ob eine Perlsubroutine erfolgreich durchgelaufen ist. Üblicherweise werden Subroutinen in Perl so gestaltet, dass sie im Falle eines Fehlers entweder einen speziellen Rückgabewert zurückliefern und im Falle von Fehlern, die auf eine Betriebssystemoperation zurückgehen, die Spezialvariable $! setzen, oder so, dass sie im Falle eines Fehler die ausführen, was ohne weitere Maßnahmen zum Beenden des Programmes mit einer Fehlermeldung führt, mit Hilfe von eval { ... }; aber abgefangen werden kann.
  When C++ is your hammer, every problem looks like your thumb.
  - guest Focus
    
    2009-07-27 10:18
    
    2009-07-27T08:08:12 murphy
    Um die Frage beantworten zu können, müsste man erstmal wissen, was Du unter
    Quote
    [...] mit ok oder not ok durchgelaufen [...]
    verstehst.
    
    Ich verstehe darunter das, was in der Dos-Box als Ergebnis dieses Tests ausgegeben wird während das Programm läuft.
    
    Focus
- +2 replies
- sid burn
  
  2009-07-27 10:27
  User since
  2006-03-29
  1520 articles
  BenutzerIn
  Mir stellt sich die Frage warum du dies überhaupt tun möchtest? Das Test Modul hat ja die aufgabe es für Teste entsprechend auszugeben, soetwas ist nicht gedacht das du selber es nochmal abfragst.
  
  Ansonsten hat $? damit nichts zu tun. In $? steht die Rückgabe des zuletzt ausgeführten externen Kommandos, und mit env_ok() führst du soetwas nicht aus.
  
  Ansonsten wenn du in deinem Programm testen möchtest ob eine Umgebungsvariable gesetzt ist dann solltest du das mit
  
  Code (perl): (dl )
  
  1 2 3
  
  if ( exists $ENV{IRGENDWAS} ) { ... }
  
  oder
  
  Code (perl): (dl )
  
  1 2 3
  
  if ( $ENV{IRGENDWAS} eq 'foo' ) { ... }
  
  machen. Test::Env ist speziell dazu gedacht das als Test auszugeben nicht als Helfer innerhlab des Programmes.
  Last edited: 2009-07-27 10:29:08 +0200 (CEST)
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - guest Focus
    
    2009-07-27 10:41
    
    2009-07-27T08:27:46 sid burn
    Mir stellt sich die Frage warum du dies überhaupt tun möchtest?
    
    Weil ich gerade wenn der Test mit "not ok" endet gerne noch einige Sachen ausgeben würde, die die Fehlersuche erleichtern. Test::Env ist nur ein beispiel, an anderen Stellen würde ich gerne ein Screenshot machen, wenn der dieser Test nicht erfolgreich war.
- +7 replies
- moritz
  
  2009-07-27 12:37
  User since
  2007-05-11
  923 articles
  HausmeisterIn
  Ich weiss nicht wie das mit Test::Env ist, aber die ganzen Test::More-Funktionen geben 0 zurueck wenn der Test fehlschlug, d.h. man kann sowas schreiben
  
  Code (perl): (dl )
  
  1 2 3 4
  
  use Test::More tests => 1; ok($condition, $text) or diag('Meh, something went wrong!');
  
  Perl 6 - Perls Zukunft
  - +6 replies
  - guest Focus
    
    2009-07-27 13:16
    
    Hi Moritz,
    
    auf die Idee mit dem "or" bin ich gar nicht gekommen. Das ist die Lösung!!!
    
    Vielen Dank
    
    Focus
    
    P.S. Welche "internen Variable" wertet or denn aus, $? ist's ja nicht, das ist ja nur für "externe Befehle" wie ich jetzt weiß.
    - +4 replies
    - renee
      
      2009-07-27 13:31
      
      User since
      2003-08-04
      14371 articles
      ModeratorIn
      
      Guest Focus
      P.S. Welche "internen Variable" wertet or denn aus, $? ist's ja nicht, das ist ja nur für "externe Befehle" wie ich jetzt weiß.
      
      "or" wertet gar keine "internen Variablen" aus. Da schaut sich das Ergebnis auf der linken Seite an und wenn das "unwahr" ist, wird die rechte Seite ausgeführt.
      
      Code: (dl )
      
      0 or print "fehler";
      
      "or" ist das gleiche wie "||", nur mit einer niedrigeren Priorität.
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      print "test" || die; # ist print ("test" || die); print "test" or die; # ist (print "test") || die
      
      siehe auch perldoc perlop (http://p3rl.org/perlop)
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +3 replies
      - guest Focus
        
        2009-07-27 19:28
        
        2009-07-27T11:31:37 renee
        "or" wertet gar keine "internen Variablen" aus. Da schaut sich das Ergebnis auf der linken Seite an und wenn das "unwahr" ist, wird die rechte Seite ausgeführt.
        
        Aber ist das Ergebnis der "linken Seite" denn nirgends abgelegt? Ich bin ansonsten halt Shell-Scripter, von daher dachte ich an $?, was es aber nicht ist.
        
        Focus
        
        pq
        
        2009-07-27 20:18
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        vielleicht solltest du perlsub nochmal durchlesen. funktionen haben rückgabewerte, und im einfachsten fall steckst du die in die variablen, in denen du sie haben willst:
        
        Code (perl): (dl )
        
        my $sum = summe(4, 5, 6);
        
        wozu sollte perl da noch spezielle variablen bereithalten?
        indem du es aber nicht in eine variable steckst, sondern gleich mit or verknüpfst, spartst du dir halt die zuweisung.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        moritz
        
        2009-07-28 10:16
        
        User since
        2007-05-11
        923 articles
        HausmeisterIn
        
        Guest Focus
        2009-07-27T11:31:37 renee
        "or" wertet gar keine "internen Variablen" aus. Da schaut sich das Ergebnis auf der linken Seite an und wenn das "unwahr" ist, wird die rechte Seite ausgeführt.
        
        Aber ist das Ergebnis der "linken Seite" denn nirgends abgelegt?
        
        Nein, kann gar nicht sein. Denn wenn auf der linken Seite nichts steht, wird die Funktion in einem anderen Kontext aufgerufen (im void kontext, statt skalar or Listenkontext).
        Das Ergebnis zu speichern wuerde diese Unterscheidung sinnlos machen.
        (Das Konzept der Kontexte gibt es in anderen Programmiersprachen eher nicht)
        Perl 6 - Perls Zukunft
    - murphy
      
      2009-07-27 13:32
      
      User since
      2004-07-19
      1776 articles
      HausmeisterIn
      
      or ist ein binärer Operator und wertet überhaupt keine Variablen aus, sondern die Ausdrücke zu seiner linken und rechten Seite. In diesem speziellen Fall wird or also als Kurzschreibweise für ein if- oder unless-Konstrukt verwendet.
      When C++ is your hammer, every problem looks like your thumb.

View all threads created 2009-07-27 09:55.