I have a small package that's just a command- it just contains a bin/script- a makefile, a readme, etc. The bin/script defines subroutines. I want to test these subroutines.

The usual kill here, is to move the subs into lib/Module.pm.

And t/00.t will use lib './lib' and test out subs in Module.pm. great.

What if I don't want to move subs from bin/script into lib/Module.pm for testing?

How can I use bin/script's subroutine definitions to use inside t/00.t, without running bin/script entirely??? I thought of maybe declaring a package inside bin/script, aside of main. But then, main will still run. Makes sense.

( Pseudo code follows.. This is an example bin/script ) 

#!/usr/bin/perl
use strict;

@ARGV or die("missing args");

map{ printf "%s\n", make_fun_of($_) } @ARGV;

exit;

sub make_fun_of { "I think @_ is funny." }

[download]
Great. I need to test make_fun_of() in my t/00.t .. 
use Test::Simple 'no_plan';
require './bin/script'; # ?????

for (qw/james cindy susan rob/){
   ok( make_fun_of($_) );
}

[download]

Obviously, this is not going to work. So, how can I code bin/script in a way that allows it to.. I suppose optionally act a perl lib. Ideally, this would be done by declaring a separate package inside bin/script, one that's not in main. And t/00.t would somehow call that, and ignore main inside bin/script.. ??? (Sorry about the verbosity- I'm having difficulty asking the question.)

My main interest is that I want to keep the code in this one file, but I also want to test parts of it. Is this too greedy on my part and should I just forget it ( as in this is a waste of time ) ?

In reply to How to export subs in a bin/script for testing in t/00.t by leocharre

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.