Wie kann ich einem Modul sagen, dass es von einem Test aufgerufen wurde? (gelöst) (Allgemeines zu Perl)

[thread]19110[/thread]

Wie kann ich einem Modul sagen, dass es von einem Test aufgerufen wurde? [gelöst]

Tags: perl5 test module Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+10 replies
Kuerbis

2014-05-24 11:28
User since
2011-03-20
961 Artikel
BenutzerIn
Hallo!

Ist es für ein Modul möglich zu wissen, ob es während eines Tests aufgerufen wurde?
Code: (dl )

1 2 3 4 5 6 7 8

package my_module if ( Testing ) { print 'A'; } else { print 'B'; }
- +7 replies
- rosti
  
  2014-05-24 11:50
  
  User since
  2011-03-19
  3722 Artikel
  BenutzerIn
  
  Sowas regele ich über ein oder mehrere zusätzliche Attribute, die in den diesbezüglich relevanten Methoden dann eine Rolle spielen.
  http://rolfrost.de/wallpaper.html
  
  WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.
  - GwenDragon
    
    2014-05-24 12:48
    
    User since
    2005-01-17
    14873 Artikel
    Admin1
    
    Und ich erzeuge dafür einen Semaphor, der über SharedMemory und IPC angeprochen wird oder setze dazu unbenutzte CPU-Bits, die dann per XS-Modul ausgelesen werden. Ist doch einfach.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - Gast Erwin
    
    2014-05-24 14:04
    
    Wie mach ich das dann mit Methoden? Kannst du mir ein beispiel geben? In der Uni hatte ich das noch nicht, Perl-Test.
    Last edited: 2014-05-24 14:14:54 +0200 (CEST)
    - +4 replies
    - rosti
      
      2014-05-24 15:38
      
      User since
      2011-03-19
      3722 Artikel
      BenutzerIn
      
      Guest Erwin
      Wie mach ich das dann mit Methoden? Kannst du mir ein beispiel geben? In der Uni hatte ich das noch nicht, Perl-Test.
      
      Es beginnt im Konstruktor, da wird ein zusätzliches Argument übergeben:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      sub sid{ # erstelle ggf. eine minimale Instanz wo nur eine spezielle Aufgabe hat my $self = shift || main->new(cookieabfrage => 1); # wenn $self das Attribut {cookieabfrage} hat # wird nur der Cookie abgefragt und der Wert zurückgegeben # ansonsten macht diese Methode etwas mehr, z.b. eine neue SID # erstellen und den Cookie-Header setzen }
      
      Tests, Debugging auf dieselbe Art und Weise. Hilfreich auch zum Vermeiden von Code-Redundanzen, bereits vorhandene Methoden können um zusätzliche Aufgaben erweitert werden.
      
      --rosti
      http://rolfrost.de/wallpaper.html
      
      WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.
      - +3 replies
      - Gast Erwin
        
        2014-05-24 16:00
        
        Damit hast du nicht erklärt wie das funktioniert, das im Modul erkannt wird ob ein Test läuft.
        Du rufst nur irgendeine Funktion auf, die irgendwie an das Modul main vererbt oder integriert wurde.
        
        Deine Antwort hilft mir leider nicht weiter, das ist schade, so kurz und unverstandlich wie manches auf deiner Homepage.
        Aber als Profi musst du niemannd Tips geben. Muss ich woanders hin gehen.
        Last edited: 2014-05-24 16:45:57 +0200 (CEST)
        
        +2 replies
        
        rosti
        
        2014-05-24 21:28
        
        User since
        2011-03-19
        3722 Artikel
        BenutzerIn
        
        Quote
        Du rufst nur irgendeine Funktion auf, die irgendwie an das Modul main vererbt oder integriert wurde.
        
        Irgendeine Funktion, die irgendwie an das Modul main vererbt... nunja vielleicht gibtst Du das mal in irgendeine Suchmaschine ein, vielleicht kriegst Du dann irgendwelche Ergebnisseiten, wo Dir das irgenwie erklären können ;)
        
        Aber da musst Du Dich schonmal selbst bemühen und nicht darauf warten, dass Andere ihre kostbare Zeit opfern um Dir hier im Forum Deine Fragen zu beantworten und das auch noch mit einem
        
        Quote
        Deine Antwort hilft mir leider nicht weiter...
        
        zu quittieren :)
        http://rolfrost.de/wallpaper.html
        
        WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.
        
        GwenDragon
        
        2014-05-24 21:33
        
        User since
        2005-01-17
        14873 Artikel
        Admin1
        
        2014-05-24T19:28:46 rosti
        vielleicht gibtst Du das mal in irgendeine Suchmaschine ein, vielleicht kriegst Du dann irgendwelche Ergebnisseiten, wo Dir das irgenwie erklären können
        Oh Erleuchteter, gut gekontert! Du bist eine Stufe weiter auf der Leiter des esoterisch-programmierenden Perl-Gurus aufgestiegen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- pq
  
  2014-05-24 12:11
  User since
  2003-08-04
  12209 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3
  
  if ($ENV{HARNESS_ACTIVE}) { # testing }
  
  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
  - Kuerbis
    
    2014-05-24 16:37
    
    User since
    2011-03-20
    961 Artikel
    BenutzerIn
    
    Danke!

View all threads created 2014-05-24 11:28.