Path: usenet.cise.ufl.edu!huron.eel.ufl.edu!usenet.eel.ufl.edu!news-dc.gip.net!news-peer.gip.net!news.gsl.net!gip.net!news-peer.sprintlink.net!news.sprintlink.net!Sprint!news.maxwell.syr.edu!nac!nntp.teleport.com!news.teleport.com!not-for-mail
From: Eryq <[email protected]>
Newsgroups: comp.lang.perl.announce,comp.lang.perl.modules
Subject: ExtUtils::TBone 1.106 uploaded to CPAN
Followup-To: comp.lang.perl.modules
Date: 20 Feb 1998 12:59:43 GMT
Organization: Zero G, Inc.
Lines: 58
Sender: [email protected]
Approved: [email protected] (comp.lang.perl.announce)
Message-ID: <[email protected]>
NNTP-Posting-Host: gadget.cscaper.com
X-Disclaimer: The "Approved" header verifies header information for article transmission and does not imply approval of content.
Xref: usenet.cise.ufl.edu comp.lang.perl.announce:79 comp.lang.perl.modules:2078

This is an Alpha release of something I've been tinkering
with for a while.  Comments are most welcome.
Feel free to start including it in your own distributions,
if it'll be useful to you.  Enjoy!
--------------------------

NAME
   ExtUtils::TBone - a "skeleton" for writing "t/*.t" test files.

SYNOPSIS
   Include a copy of this module in your t directory (as
   t/ExtUtils/TBone.pm), and then write your t/*.t files like this:

       use lib "./t";             # to pick up a ExtUtils::TBone
       use ExtUtils::TBone;

       # Make a tester... here are 3 different alternatives:
       my $T = typical ExtUtils::TBone;                 # standard log
       my $T = new ExtUtils::TBone;                     # no log
       my $T = new ExtUtils::TBone "testout/Foo.tlog";  # explicit log

       # Begin testing, and expect 3 tests in all:
       $T->begin(3);                           # expect 3 tests
       $T->msg("Something for the log file");  # message for the log

       # Run some tests:
       $T->ok($this);                  # test 1: no real info logged
       $T->ok($that,                   # test 2: logs a comment
              "Is that ok, or isn't it?");
       $T->ok(($this eq $that),        # test 3: logs comment + vars
              "Do they match?",
              This => $this,
              That => $that);

       # End testing:
       $T->end;

DESCRIPTION
   This module is intended for folks who release CPAN modules
   with "t/*.t" tests. It makes it easy for you to output
   syntactically correct test-output while at the same time
   logging all test activity to a log file.

   Hopefully, bug reports which include the contents of this
   file will be easier for you to investigate.

AUTHOR
   Eryq; President, Zero G Inc.
   [email protected] / http://www.zeegee.com.

--
 ___  _ _ _   _  ___ _   Eryq ([email protected])
/ _ \| '_| | | |/ _ ' /  President, Zero G Inc: http://www.zeegee.com/
|  __/| | | |_| | |_| |
\___||_|  \__, |\__, |___/\  Visit STREETWISE, Chicago's newspaper by/
          |___/    |______/ of the homeless: http://www.streetwise.org