[libcgi-test-perl] 03/05: Removed POD sections that mentioned obsolete ok() function

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 1.000
in repository libcgi-test-perl.

commit b8f57bed7fb0f3ea359794c3769eb309b1fe8dc5
Author: Alex Tokarev <nohuhu at nohuhu.org>
Date:   Sun Oct 26 22:01:40 2014 -0700

    Removed POD sections that mentioned obsolete ok() function
---
 lib/CGI/Test.pm | 47 +++++++++++------------------------------------
 1 file changed, 11 insertions(+), 36 deletions(-)

diff --git a/lib/CGI/Test.pm b/lib/CGI/Test.pm
index 8fa828a..29c1b44 100644
--- a/lib/CGI/Test.pm
+++ b/lib/CGI/Test.pm
@@ -731,7 +731,8 @@ CGI::Test - CGI regression test framework
 =head1 SYNOPSIS
 
  # In some t/script.t regression test, for instance
- use CGI::Test;                 # exports ok()
+ use CGI::Test;
+ use Test::More tests => 7;
 
  my $ct = CGI::Test->new(
     -base_url   => "http://some.server:1234/cgi-bin",
@@ -739,18 +740,18 @@ CGI::Test - CGI regression test framework
  );
 
  my $page = $ct->GET("http://some.server:1234/cgi-bin/script?arg=1");
- ok 1, $page->content_type =~ m|text/html\b|;
+ like $page->content_type, qr|text/html\b|, "Content type";
 
  my $form = $page->forms->[0];
- ok 2, $form->action eq "/cgi-bin/some_target";
+ is $form->action, "/cgi-bin/some_target", "Form action URI";
 
  my $menu = $form->menu_by_name("months");
- ok 3, $menu->is_selected("January");
- ok 4, !$menu->is_selected("March");
- ok 5, $menu->multiple;
+ ok $menu->is_selected("January"), "January selected";
+ ok !$menu->is_selected("March"),  "March not selected";
+ ok $menu->multiple,               "Menu is multi-choice";
 
  my $send = $form->submit_by_name("send_form");
- ok 6, defined $send;
+ ok defined $send, "Send form defined";
 
  #
  # Now interact with the CGI
@@ -758,7 +759,9 @@ CGI::Test - CGI regression test framework
 
  $menu->select("March");        # "click" on the March label
  my $answer = $send->press;     # "click" on the send button
- ok 7, $answer->is_ok;          # and make sure we don't get an HTTP error
+ 
+ # and make sure we don't get an HTTP error
+ ok $answer->is_ok, "Answer response";
 
 =head1 DESCRIPTION
 
@@ -809,36 +812,8 @@ contacted at all within the C<CGI::Test> framework, and the CGI script is
 ran through a proper call to one of the GET/POST method on the
 C<CGI::Test> object.
 
-Finally, since C<CGI::Test> is meant to be used from regression test
-scripts, it exports a single ok() routine which merely prints the messages
-expected by C<Test::Harness>.  This is the only functional routine in this
-module, all other accesses being made through a C<CGI::Test> object.
-
 =head1 INTERFACE
 
-=head2 Procedural Interface
-
-There is only one such routine:
-
-=over 4
-
-=item C<ok> I<num>, I<boolean> [, I<comment>]
-
-Prints the I<ok> or I<not ok> message for C<Test::Harness> depending
-on whether I<boolean> is respectively I<true> or I<false>.  An optional
-I<comment> string may be supplied as well and will be printed after a
-'#' sign:
-
-    ok 1, 2+2 == 4, "trivial arithmetic";
-
-will print:
-
-    ok 1 # trivial arithmetic
-
-since the test trivially succeeds.
-
-=back
-
 =head2 Creation Interface
 
 The creation routine C<new()> takes the following mandatory parameters:

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcgi-test-perl.git