Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re^2: How to export subs in a bin/script for testing in t/00.t

by leocharre (Priest)
on Feb 26, 2010 at 19:18 UTC ( #825573=note: print w/replies, xml ) Need Help??


in reply to Re: How to export subs in a bin/script for testing in t/00.t
in thread How to export subs in a bin/script for testing in t/00.t

Oooh! Very cool!..

I wrapped the part of the main body that runs stuff into a sub run() and then I have a line such as (in bin/script).. (pseudocode follows..)

#!/usr/bin/perl caller() or run(); sub run { print do_stuff_1(); print do_stuff_2(); } sub do_stuff_1 { 1 } sub do_stuff_2 { 2 } 1;
Then in t/00.t
use Test::Simple 'no_plan'; require 'bin/script'; ok( do_stuff_1(), 'do_stuff_1()' );
Thank you! This is a wonderful solution. (Maybe someone has another (more elegant, less intrusive?) way to do this?)

Replies are listed 'Best First'.
Re^3: How to export subs in a bin/script for testing in t/00.t
by bduggan (Pilgrim) on Feb 27, 2010 at 13:57 UTC
    Maybe not more elegant but the name "main" instead of "run" would be a more common convention. Actually google found this exact example here, putting a package name at the top, and calling
    __PACKAGE__->main() unless caller();
Re^3: How to export subs in a bin/script for testing in t/00.t
by Anonymous Monk on Feb 26, 2010 at 22:07 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://825573]
help
Chatterbox?
[marto]: well, their mother let them sleep till 15:00 & 12:00 last week, which didn't help them adjust :P
[Corion]: I was "productive" over the weekend in the sense that I revived my old "Perlmonks on SQLite" code, which likely means I can get a test instance back up running on my webhost. Small steps :)
[Corion]: marto: Ow, no, that doesn't help at all :)
[choroba]: Related to the new release, anyone could explain this or this tester report?
[Discipulus]: hello crew! marto thanks for the message: but I how can I help? i'm testing cpan Padre atm problem with Client::Debug
[choroba]: I don't happen to have 5.10.0 nor 5.8.5 handy...
[Corion]: Hmm - I would say the 5.8.5 is a broken installation / corrupt tarball download, and the 5.10.0 is really weird, and maybe a bug in that version of Perl

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (10)
As of 2018-06-25 08:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (126 votes). Check out past polls.

    Notices?