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 <eryq@zeegee.com>
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: news-merlyn@gadget.cscaper.com
Approved: merlyn@stonehenge.com (comp.lang.perl.announce)
Message-ID: <6cjunv$mim$1@news1.teleport.com>
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. 
    eryq@zeegee.com / http://www.zeegee.com.

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