Hello list.
I would like to press a key shortcut in my text editor and have it
run the test I'm currently editing. If there are any failures, I'd
like to be able to click on them and it go to the line that the
failing test was on. Since my current editor is TextMate this
involves
On 16 Mar 2007, at 02:52, Michael G Schwern wrote:
That should be this:
1..5
ok 1
ok 2 #---
-
fnurk: skib
ponk: gleeb
-
bar: krup
foo: plink
...
ok 3
Isn't that putting schematically important info in the comment (the
-- of the #). I know we already do it for TODO, but I thought
On 11 Mar 2007, at 22:01, Michael G Schwern wrote:
Fergal Daly wrote:
You're suggesting that each call to extend the plan verifies that the
previous plan has been executed fully? That does not allow nesting.
Yes, nesting is what this proposal does which cannot be done now.
Unfortuantely
On 24 Feb 2007, at 22:58, Michael G Schwern wrote:
Just make sure whatever you return evaluates according to the test
pass/fail
and not its value and you should be fine. You can return a little
wrapper
object like...
Or you could just return a reference to an array with the value in
I've got the flu. I'm running a fever of 102F. I haven't understandably
been paying close attention to my mail. It seems things have got suddenly
and inexplicably urgent with regard to Test::Builder::Tester.
So, many people have been contacting me suggesting that apparently I need
to do stuff
against
http://unixbeard.net/svn/mark/perlmods/ always welcome.
(oh, and as an aside I released a new Acme::Test::Buffy, with slightly
improved documentation and spelling too - but no one cares about that)
--
#!/usr/bin/perl -T
use strict;
use warnings;
print q{Mark Fowler, [EMAIL PROTECTED], http
,
it's sunny, so whatdaicare...
Mark.
(Off for BBQ)
--
#!/usr/bin/perl -T
use strict;
use warnings;
print q{Mark Fowler, [EMAIL PROTECTED], http://twoshortplanks.com/};
it to CPAN after this alpha ships.
Mark.
[1] http://unixbeard.net/svn/mark/perlmods/Test-Builder-Tester/
--
#!/usr/bin/perl -T
use strict;
use warnings;
print q{Mark Fowler, [EMAIL PROTECTED], http://twoshortplanks.com/};
this
kind of thing involves.
Mark.
--
#!/usr/bin/perl -T
use strict;
use warnings;
print q{Mark Fowler, [EMAIL PROTECTED], http://twoshortplanks.com/};
of thing to use alongside Test::Builder.
Suggestions?
Mark.
--
#!/usr/bin/perl -T
use strict;
use warnings;
print q{Mark Fowler, [EMAIL PROTECTED], http://twoshortplanks.com/};
for these modules via the CPAN RT
system. Chris Nandor already suggested that Test::DatabaseRow should have
a test to check that data *isn't* in the database, which I'll get round to
working on as soon as we have some free time.
Mark.
--
#!/usr/bin/perl -T
use strict;
use warnings;
print q{Mark Fowler
for these modules via the CPAN RT
system. Chris Nandor already suggested that Test::DatabaseRow should have
a test to check that data *isn't* in the database, which I'll get round to
working on as soon as we have some free time.
Mark.
--
#!/usr/bin/perl -T
use strict;
use warnings;
print q{Mark Fowler
mean that test_foo couldn't itself be recursive (though it could
call another function that made it so)
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use Term'Cap;$t=Tgetent Term'Cap{};print$t
mean that test_foo couldn't itself be recursive (though it could
call another function that made it so)
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use Term'Cap;$t=Tgetent Term'Cap{};print$t
different to
using as fast as possible testing routines.
Of course, there is a section in The Guide about this[2].
Mark.
[1] http://www.acme.com/software/http_load/
[2] http://perl.apache.org/docs/1.0/guide/performance.html#Benchmarking_Applications
--
s'' Mark Fowler
bug reports and patches to this...even if they are
just patching a typo in the comments.
Right, better get ready for my talk.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use Term'Cap;$t
bash-2.05b$ HEAD qa.perl.org
500 read timeout
Client-Date: Mon, 19 Aug 2002 16:01:05 GMT
Problems?
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use Term'Cap;$t=Tgetent Term'Cap{};print$t
'' 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}
'' 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}
inline) - possible sans pod
Mark.
--
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
inline) - possible sans pod
Mark.
--
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
.
If not, I'll probably get round to starting coding this in a month or so.
Mark.
--
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
it always work.
Of course, before you can use Test::Exception on perl5.004 I'll have to
get round to fixing the bugs (http://rt.cpan.org/NoAuth/Bug.html?id=456)
in Test::Builder::Tester...
Later.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http
it always work.
Of course, before you can use Test::Exception on perl5.004 I'll have to
get round to fixing the bugs (http://rt.cpan.org/NoAuth/Bug.html?id=456)
in Test::Builder::Tester...
Later.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http
{ $a{$_} }
keys %b and grep { $b{$_} } keys %a.
Later.
Mark.
--
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
does this?
c) Should I (those modules authors willing) attempt to merge it into
other modules?
Later.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use Term'Cap;$t=Tgetent Term'Cap{};print
On Tue, 9 Apr 2002, Michael G Schwern wrote:
On Tue, Apr 09, 2002 at 03:26:21PM +0100, Mark Fowler wrote:
There's a lot of other problems like that. So I was thinking of writing
Test::Sloppy (aka Test::Fuzzy, aka...)
What would it do?
(I can show you lots of sloppy tests if you like
does this?
c) Should I (those modules authors willing) attempt to merge it into
other modules?
Later.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use Term'Cap;$t=Tgetent Term'Cap{};print
([1,1,1],[1]));
fails, where really it should work as sets don't care about reoccurring
elements. Should this be 'eq_bag' instead?
Later.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use
already got two Test::Builder based modules in development
;-)
I'll put it on my ever growing todo[1]
Thanks for the changes to diag.
Later.
Mark.
[1] /msg dipsy Trelane's fun todo.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com
it on perl 5.6.1
on Linux. I'd really like to see that it still works on a system that
doesn't have Term::ANSIColor installed on it (it should turn colouring
into a no-op and skip tests, but I can't test that.)
Later.
Mark.
--
s'' Mark Fowler London.pm
it on perl 5.6.1
on Linux. I'd really like to see that it still works on a system that
doesn't have Term::ANSIColor installed on it (it should turn colouring
into a no-op and skip tests, but I can't test that.)
Later.
Mark.
--
s'' Mark Fowler London.pm
.
Later.
Mark.
--
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}
.
Later.
Mark.
--
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}
.
Mark.
--
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}
.
Mark.
--
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}
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
On Mon, 4 Feb 2002, Michael G Schwern wrote:
Mark Fowler wrote:
3. Um, licencing of borrowed code (see AUTHOR)
Take whatever you like. In fact, if you don't mind, I'd like to
distribute this with Test::Builder/More/Simple so I can use it to test
all that.
Thanks. Yeah, distribute
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
in Test::Builder that would cause the next call to ok() to fail if it
should pass and vice versa (and return true where it would have returned
true and false when it would have returned true.)
Later.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http
in Test::Builder that would cause the next call to ok() to fail if it
should pass and vice versa (and return true where it would have returned
true and false when it would have returned true.)
Later.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http
::Builder
would be, um, nice.
Later.
Mark.
--
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
::Builder
would be, um, nice.
Later.
Mark.
--
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
43 matches
Mail list logo