Test::More - kann ich irgendwie an die Testergebnis rankommen um sie weiter zu nutzen (Fragen zu Perl-Modulen)

[thread]17966[/thread]

Test::More - kann ich irgendwie an die Testergebnis rankommen um sie weiter zu nutzen

Tags: perl5 test Similar Threads

Readers: 18

Articles: hide open all | hide show old branches

+9 replies
roli

2012-12-06 09:22
User since
2004-12-31
424 articles
BenutzerIn
Hallo zusammen,

erstmal mein Beispiel:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl use strict; use warnings; use Test::More tests => 2; is( 1 + 1, 2, "one plus one is two" ); print "\n"; is( 1 + 1, 11, "one plus one is more than two" );
Wenn ich das ausführe kommt erwartungsgemäß folgendes raus:
Quote
>perl return_code.pl
1..2
ok 1 - one plus one is two

not ok 2 - one plus one is more than two
# Failed test 'one plus one is more than two'
# at return_code.pl line 11.
# got: '2'
# expected: '11'
# Looks like you failed 1 test of 2.

>

Ich würde jetzt gerne im Script selber die Ergebnisse zusätzlich zum Output in der Konsole "abfangen", um sie anschließend weiter verarbeiten zu können. Kann ich, und wenn ja wie:
1) Das Ergebnis des einzelnen Tests abfragen, also ok/not ok
2) Das tatsächliche und das erwartete Ergebnis irgendwo abfragen

Das erwartete Ergebnis ist nicht das Problem, das kenne ich ja schon, aber das tatsächliche halt nicht, jedenfalls wenn es sich nicht um ein trivial Beispiel wie hier handelt.
Last edited: 2012-12-06 09:23:28 +0100 (CET)
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- +6 replies
- GwenDragon
  
  2012-12-06 09:33
  
  User since
  2005-01-17
  14785 articles
  Admin1
  
  Ist doch unproblematisch:
  perl test.pl | tee test.log
  
  Oder Test ausführen und Ergebnis greppen/awken oder mit Perl filtern.
  Last edited: 2012-12-06 09:35:34 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - roli
    
    2012-12-06 09:58
    
    User since
    2004-12-31
    424 articles
    BenutzerIn
    
    Hi,
    
    leider hast du die für mich entscheidenden drei Wörter übersehen "im Script selber".
    Das ich den Output mittels tee zusätzlich in eine Datei umleiten und dann mit grep und co durchsuchen kann ist mir bekannt, aber ich würde halt gerne im Script schon an die Sachen ran kommen. Ich hoffe, das es da irgendwelche "Magic Variables" gibt, die die Sachen enthalten, oder halt was ganz anderes an das ich jetzt nicht denke.
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
    - +4 replies
    - pq
      
      2012-12-06 10:01
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      das habe ich auch überlesen, aber das klingt auch irgendwie unsinnig.
      im skript selbst hast du doch die ergebnisse vorliegen, wozu willst du sie da noch abfangen?
      
      statt eine berechnung/methodenaufruf/funktionsaufruf direkt ins is() zu packen, holst du dir das ergebnis vorher, machst damit, was du möchtest, und rufst dann is() auf.
      
      was hast du denn genau vor? eventuell liegt ein XY-problem vor, und du versuchst was zu erreichen, was du gar nicht brauchst.
      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
      - +3 replies
      - roli
        
        2012-12-06 10:24
        
        User since
        2004-12-31
        424 articles
        BenutzerIn
        
        Hi,
        
        zusätzlich zum TAP Output in der Konsole, möchte ich einen von mir selber formatierten "Test Report" erstellen.
        Roland
        --
        "Steh vorn, während du fragst;
        sitzen soll, wer antwortet."
        Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
        
        +2 replies
        
        pq
        
        2012-12-06 10:31
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        dann mach das so, wie ich beschrieben habe.
        oder nimm TAP::Parser und formatier dir den output so wie du willst.
        oder nimm was fertiges wie TAP::Formatter::HTML o.ä.
        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
        
        roli
        
        2012-12-06 10:56
        
        User since
        2004-12-31
        424 articles
        BenutzerIn
        
        Hi pq,
        
        TAP::Parser sieht als solches gut aus, nur hapert's noch mit dem Verständnis. Noch suche ich nach einem möglichst einfachen Beispiel, um damit erstmal etwas experimentieren zu können.
        Roland
        --
        "Steh vorn, während du fragst;
        sitzen soll, wer antwortet."
        Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- pq
  
  2012-12-06 09:54
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  für den output gibt es einen parser: TAP::Parser
  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
- Linuxer
  
  2012-12-06 10:44
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Eine relativ unschöne Lösung könnte sein, alle Werte per Zuweisung separat abzuspeichern:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  
  #! /usr/bin/perl use strict; use warnings; use Test::More tests => 2; my %result; $result{test1}->{rc} = is( $result{test1}->{got} = 1 + 1, $result{test1}->{expected} = 2, "one plus one is two", ); $result{test2}->{rc} = is( $result{test2}->{got} = 1 + 1, $result{test2}->{expected} = 11, "one plus one is two", ); require Data::Dumper; print Data::Dumper->new( [ \%result ], [ '*result' ] )->Dump();
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2012-12-06 09:22.