[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-test-cvs
Subject:    cvs commit: httpd-test/perl-framework/Apache-Test/t bad_coding.t
From:       stas () apache ! org
Date:       2004-08-07 2:55:03
Message-ID: 20040807025503.63693.qmail () minotaur ! apache ! org
[Download RAW message or body]

stas        2004/08/06 19:55:03

  Added:       perl-framework/Apache-Test/t bad_coding.t
  Log:
  This test tests how good Apache-Test deals with bad coding practices
  of its users
  
  Revision  Changes    Path
  1.1                  httpd-test/perl-framework/Apache-Test/t/bad_coding.t
  
  Index: bad_coding.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestRequest;
  
  # This test tests how good Apache-Test deals with bad coding practices
  # of its users
  
  plan tests => 1;
  
  {
      # passing $_ to a non-core function inside a foreach loop or
      # similar, may affect $_ on return -- badly breaking things and
      # making it hard to figure out where the problem is coming from.
      #
      # have_* macros localize $_ for these bad programming cases
      # let's test that:
      my @list = ('mod_dir');
      my %modules = map { $_, have_module($_) } @list;
      ok 1;
  }
  
  
  
[prev in list] [next in list] [prev in thread] [next in thread]