Please excuse the roughness of this module, but get feedback early is what they say. For now, I've thrown it up at
http://2shortplanks.com/temp/tbt And I'll let the start of the pod speak for itself: NAME Test::Builder::Tester - test testsuites that have been built with Test::Builder SYNOPSIS use Test::Builder::Tester tests => 1; use Test::More; test_out("not ok 1 - foo"); test_err("# Failed test ($0 at line 5)"); fail("foo"); test_test("fail works"); Useful things that I could do with feedback on: 1. Is this crack fuelled, or is this actually useful? (or has this been done elsewhere - e.g. is Test::Catch good enough) 2. Is Test::Builder::Tester the most sensible name for it? 3. Um, licencing of borrowed code (see AUTHOR) 4. Does this work on older perls...I don't see any reason why not, but I've only tested it on 5.6.1 Right, it's now 1.38am, so I'm going to get some sleep. Night. Mark. (Thanks to Richard Clamp for some help with getting it this far) -- s'' Mark Fowler London.pm Bath.pm http://www.twoshortplanks.com/ [EMAIL PROTECTED] ';use Term'Cap;$t=Tgetent Term'Cap{};print$t->Tputs(cl);for$w(split/ +/ ){for(0..30){$|=print$t->Tgoto(cm,$_,$y)." $w";select$k,$k,$k,.03}$y+=2}
