perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/src/devel/writing_tests writing_tests.pod
Date Mon, 12 Nov 2001 04:47:33 GMT
stas        01/11/11 20:47:33

  Modified:    src/devel/writing_tests writing_tests.pod
  Log:
  use # in debug prints
  
  Revision  Changes    Path
  1.18      +11 -11    modperl-docs/src/devel/writing_tests/writing_tests.pod
  
  Index: writing_tests.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/devel/writing_tests/writing_tests.pod,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- writing_tests.pod	2001/11/12 04:39:02	1.17
  +++ writing_tests.pod	2001/11/12 04:47:33	1.18
  @@ -60,17 +60,17 @@
   with the I<-v> option, in which everything printed by the test goes to
   C<STDOUT>. So for example if your test does this:
   
  -  print "testing : feature foo\n";
  -  print "expected: $expected\n";
  -  print "received: $received\n";
  +  print "# testing : feature foo\n";
  +  print "# expected: $expected\n";
  +  print "# received: $received\n";
     ok $expected eq $received;
   
   in the normal mode, you won't see any of these prints. But if you run
   the test with I<t/TEST -v>, you will see something like this:
   
  -  testing : feature foo
  -  expected: 2
  -  received: 2
  +  # testing : feature foo
  +  # expected: 2
  +  # received: 2
     ok 2
   
   When you develop the test you should always put the debug statements
  @@ -639,7 +639,7 @@
   
     my $config   = Apache::Test::config();
     my $hostport = Apache::TestRequest::hostport($config) || '';
  -  print "connecting to $hostport\n";
  +  print "# connecting to $hostport\n";
   
     my $received = $config->http_raw_get("/TestApache::cool", undef);
     my $expected = "COOL";
  @@ -692,10 +692,10 @@
   we are testing, what was expected and what was received:
   
     apache/cool....1..1
  -  connecting to localhost:8529
  -  testing : testing TestApache::cool
  -  expected: COOL
  -  received: COOL
  +  # connecting to localhost:8529
  +  # testing : testing TestApache::cool
  +  # expected: COOL
  +  # received: COOL
     ok 1
     ok
     All tests successful.
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message