[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/lib/Apache TestUtil.pm
From:       stas () apache ! org
Date:       2001-10-20 10:47:29
[Download RAW message or body]

stas        01/10/20 03:47:29

  Modified:    perl-framework/Apache-Test/lib/Apache TestUtil.pm
  Log:
  - document write_shell_script()
  - document which funcs are automatically exported
  
  Revision  Changes    Path
  1.10      +24 -1     httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm
  
  Index: TestUtil.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- TestUtil.pm	2001/10/20 05:02:05	1.9
  +++ TestUtil.pm	2001/10/20 10:47:29	1.10
  @@ -24,7 +24,7 @@
           ' usage: $res = t_cmp($expected, $received, [$comment])'
               if @_ < 2 || @_ > 3;
   
  -    print "testing : ", pop ,"\n" if @_ == 3;
  +    print "testing : ", pop, "\n" if @_ == 3;
       print "expected: ", struct_as_string(0, $_[0]), "\n";
       print "received: ", struct_as_string(0, $_[1]), "\n";
       return t_is_equal(@_);
  @@ -198,6 +198,7 @@
     my $fh = t_open_file($filename);
     t_mkdir("/foo/bar");
     t_rmtree("/foo/bar");
  +  t_is_equal($a, $b);
   
   =head1 DESCRIPTION
   
  @@ -251,6 +252,7 @@
           {1 => [2..3,{5..8}], 4 => [5..6]},
           "hash of array of hashes");
   
  +This function is automatically exported.
   
   =item t_write_file()
   
  @@ -263,6 +265,19 @@
   The generated file will be automatically deleted at the end of the
   program's execution.
   
  +This function is automatically exported.
  +
  +=item write_shell_script()
  +
  +write_shell_script($filename, @lines);
  +
  +Similar to t_write_file() but creates a portable shell/batch
  +script. The created filename is constructed from C<$filename> and an
  +appropriate extension automatically selected according to the platform
  +the code is running under.
  +
  +It returns the extension of the created file.
  +
   =item t_open_file()
   
     my $fh = t_open_file($filename);
  @@ -273,6 +288,8 @@
   The generated file will be automatically deleted at the end of the
   program's execution.
   
  +This function is automatically exported.
  +
   =item t_mkdir()
   
     t_mkdir($dirname);
  @@ -286,12 +303,16 @@
   The generated directory will be automatically deleted at the end of
   the program's execution.
   
  +This function is automatically exported.
  +
   =item t_rmtree()
   
     t_rmtree(@dirs);
   
   t_rmtree() deletes the whole directories trees passed in I<@dirs>.
   
  +This function is automatically exported.
  +
   =item t_is_equal()
   
     t_is_equal($a, $b);
  @@ -303,6 +324,8 @@
   
   If comparing non-scalars make sure to pass the references to the
   datastructures.
  +
  +This function is automatically exported.
   
   =back
   
  
  
  

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