t for your embedded tests.
The new versions are:
Test::Simple0.07
Test::More 0.05
Pod::Tests 0.03
and are all on the way up to CPAN as I type. If they haven't made it
to your mirror yet, they can always be gotten from
http://www.pobox.com/~schwern/src/
Revision history for Perl ext
ord. And it looks better
withou the qw() *shrug*
--
Michael G Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
On Thu, Jun 14, 2001 at 10:51:10AM +0100, Graham Barr wrote:
> Then try this
>
> use strict;
> use Test::More no_plan;
D'OH!
--
Michael G Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
and using no_plan requires you to upgrade
Test::Harness.
--
Michael G Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
= split /-/, $l[0];
> my $delta = (hex($end)-hex($start));
> $mem += $delta;
> if (!defined $l[5] || $l[5] eq '') {
> $realmem += $delta;
> }
> }
> close MAP;
> ($mem, $realmem);
>
port back to the parent process'
> Test::Builder object?
forking and IPC are not my bag, so I don't know what's possible and
what's not. If you can do something to coordinate the parent and
child objects which works everywhere, send a patch. But I don't know
if IPC is portable.
--
Michael G Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
On Mon, Feb 10, 2003 at 07:21:39PM +0400, Vlad Harchev wrote:
> But anyway, they more big packages will be recommended, the better, so keep
> suggesting them :)
Off the top of my head, some well tested modules:
Math::BigInt
Test::More
some of the recent stuff by Abigail
Test::Harness
On Tue, Feb 11, 2003 at 10:46:58AM -0800, Randal L. Schwartz wrote:
> > "Vlad" == Vlad Harchev <[EMAIL PROTECTED]> writes:
>
> Vlad> I'm testing some perl source code transformation tool (kinda
> Vlad> perl source code prettifier).
>
> If you'll allow me access to your source, I can guarantee
On Mon, Feb 24, 2003 at 03:52:29PM +, Mark Fowler wrote:
> For a module I'm doing at work, I want to check that the correct files
> have been written (and no extra files have been written) in a directory.
>
> Other than writing lots of is(-e based code, is there a simple way to do
> this? I h
As comes up pretty often, people want to trap stuff on STDERR. I've got
adhoc stuff to do that in TieOut.pm, but I've never really found a good
place to put it in a module.
Test::Warn seems like its a good spot. Warnings and stuff going directly
to STDERR are related beasts. So if Janek wants
On Thu, Feb 27, 2003 at 05:32:42PM +, Fergal Daly wrote:
> I think that although a test that ignores blessed classes could be handy in
> some circumstances (ie programming in general), I reckon in the context of
> test suites it's a bug.
I am already not yet convinced. In particular, it mak
On Thu, Feb 27, 2003 at 09:21:09PM +, Fergal Daly wrote:
> > I am already not yet convinced. In particular, it makes this sort of test
> > more difficult than it needs be:
> >
> > is_deeply($obj, { foo => 42, bar => 23 });
>
> Absolutely, but there is currently no way to do this
>
> is_d
On Thu, Feb 27, 2003 at 10:03:50PM +, Fergal Daly wrote:
> > > - let _deep_check take it's cue from the second argument. If the second
> > > argument is blessed then be strict about the classes, if it's unblessed
> > > then ignore the classes. This should happen at all levels in the
> > > stru
On Mon, Mar 03, 2003 at 02:33:32PM -0600, Andy Lester wrote:
> There's a new Test::Pod in town, and it uses Sean's Pod::Simple instead
> of Pod::Checker.
>
> Details at http://use.perl.org/~petdance/journal/10867
>
> Comments welcome, of course.
The old pod_ok() will still work, but the hooha
On Fri, Feb 28, 2003 at 11:51:07AM +, Adrian Howard wrote:
> Option three.
>
>isa_ok($obj, 'MyClass');
>is_deeply($obj, { foo => 42, bar => 23 });
This is, unfortunately, shallow. It won't compare objects inside $obj.
On Tue, Mar 04, 2003 at 09:19:57AM -0600, Andy Lester wrote:
> > Not sure how I feel about this. If you were still using Pod::Checker,
> > I'd
> > definately say it won't fly since it throws so many silly warnings.
> > You
> > mentioned a few, the "Empty Paragraph" and that you can't use "=item
On Fri, Feb 28, 2003 at 11:40:52AM +, Adrian Howard wrote:
> I always meant to revisit the idea for Test::Output which was intended
> to be a generic FILEHANDLE output testing module. Allows you to do
> things like:
>
> output_is { hello() } "hello world\n", STDOUT, "hello world";
> outp
I'm writing a test which does basic checks on all the code in a repository.
It checks that all scripts and modules compile without warnings. I also
want to check that all the POD has no errors or warnings. However, a
lot of the code has no POD. I don't want to write all the POD right now,
but I
ttle environmental
differences, it still adds confidence to have ten pass reports from
ten different testers than only one. The cpan-tester's database
should be able to sift and collate this data and present it in a
non-redundant manner.
PS Is the CC too wide?
--
Michael G. Schwern &l
New version of Test::More en route to CPAN. As always, it can be
gotten from http://www.pobox.com/~schwern/src/Test-More-0.04.tar.gz
0.04 Thu Jun 7 11:26:18 BST 2001
- minor bug in eq_set() with complex data structures
Thanks to Tatsuhiko Miyagawa for finding this.
0.03 Tue Jun 5
On Mon, Jun 18, 2001 at 04:54:05PM -0400, Kirrily Robert wrote:
> The above is generated using Pod::Tests and pod2test (yay schwern!).
> When I run these tests, I never see the descriptions of the tests (eg
> "Strings aren't blank").
>
> I thought those strings w
f the ad hoc systems or Test.pm mostly in use.
lib/Carp.t was just rewritten to use Test::More, I'd like to see
others follow.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]>
Pod::Tests 0.05 is winging its way to CPAN. This version gives us
pretty much the complete interface.
http://www.pobox.com/~schwern/src/Pod-Tests-0.05.tar.gz if its not
already on CPAN.
0.05 Fri Jun 29 22:01:33 EDT 2001
* Greatly extended the abilities of testing example code.
0.04 Fri
$tick = 0;
ualarm(10_000, 10_000);
sleep until $tick >= 3;
pass;
ualarm(0);
} 2, "Don't have ualarm", !$have_ualarm;
I dunno, is it worth the effort?
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance
On Fri, Jul 20, 2001 at 01:30:39AM -0400, Michael G Schwern wrote:
> test_block {
> skip "Pigs can't fly" unless $pig->can('fly');
>
> $pig->takeoff;
> ok( $pig->altitude > 0 );
> ok(
atch STDERR and it will be seen by CPAN testers
who are, in general, a paranoid bunch.
warn "# $foo should be $bar! Please report this to the author."
unless $foo eq $bar;
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality A
t the
$Todo flag was set and act accordingly. Problem is, I need to unset
that $Todo flag at the end of the block. Can't think of a way to do
that.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]>
flag at the
end of the block.
I think this will work. I just need a better name than test_block().
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
There is nothing here
But a lip of hardened paste
>From our night of joy.
-- ignatz
9pm
Perl Refactoring BOF
Further discussion of the above talk.
Thursday, 8pm - 9pm
Embedded Testing BOF
Discussion about the talk to come (its the last talk of the conference)
Friday, 4:30pm - 5:15pm
"Embedded Testing with Pod::Tests"
Same as the talk at YAPC.
If there's more, post
down to "works on
FreeBSD" until we see a FreeBSD config that doesn't work, then it gets
more specific.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
If you got the
On Mon, Aug 13, 2001 at 06:13:24AM +0100, Piers Cawley wrote:
> Hey, I was in that talk and I definitely wasn't yelling 'Sir, yes, sir!'
You'll be the first against the wall when the revolution comes.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobo
n.
- Documented that "=also for example" will never work
- fixed bug with tests at the very end of the file
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Pan
e.pm line 32.
> Warning: prerequisite Test::More 0.08 not found at (eval 1) line 219.
Gotcha, patched. 0.13 en route.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Hey Schwern!
oc typo in the example
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
The key, my friend, is hash browns.
http://www.goats.com/archive/980402.html
On Tue, Aug 14, 2001 at 06:35:17PM +0900, Tatsuhiko Miyagawa wrote:
> It doesn't pass make tests here, with 5.005_03. Patch follows.
Got it, thanks. I also busted a few things in 5.004.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Qua
Minor doc typo in the example
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
navy ritual:
first caulk the boards of the deck,
then plug up my ass.
-- japhy
tUtils-TBone
Yes, I saw that last night. I'm tempted to steal the feature for
Test::More with a bit of invisible magic (ie. tie STDOUT and STDERR so
they both capture and print).
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance
:Unit (unfortunately,
not ready for prime-time).
How do I test my module is backwards/forwards compatible?
I outline that Makefile.PL/test_via_harness() override trick.
More questions, preferably with answers, wanted (doesn't have to be
perfect, I can flesh it out.)
--
Michael G
I've got 5.004_04, 5.004_05, 5.005_03, 5.6.1 and bleadperl installed
to test against. Should I bother with 5.004? Is anyone *seriously*
using it still?
PS When I say 5.004, I mean the original 5.004 release.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.c
On Fri, Aug 24, 2001 at 01:24:47AM -0700, Ask Bjoern Hansen wrote:
>
> Getting the word out about the various projects is something we
> need, so I made
>
> http://qa.perl.org/
>
> Schwern, I need some comments from you. :-)
Ummm, perl-qa-metrics is a mailing list
gt; output.
>
> I can't see how to do this with Test::Simple.
This should work.
ok( seek(TEST, $sub_start, SEEK_SET) ) ||
print "# seek failed with $!\n";
I plan to add a print_comment() function to Test::More eventually, so
everything is nice and escaped.
eta (it's still in alpha, now). And
> perhaps even then, as MacPerl 5.6.1 might not work on older Macs.
I thought MacPerl was using 5.004_04.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
I'm spanking my yacht.
est::Tutorial.
http://www.pobox.com/~schwern/src/Test-Simple-0.14.tar.gz
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
I'm spanking my yacht.
guide to where
> it would be acceptable to use Test::More in the code?
With anything outside the lib/ tests it's pretty much case-by-case.
I can tell you which ones are right out:
t/base, t/cmd, t/comp
You can probably safely get away with using Test::More in:
t/io, t/pod
ff moved around and it's a pain in the
ass.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
make a channel called #Perl, and infest it with joking and
fun it doesnt make alot of sense.
an ok() function, it's much easier to
switch selected tests over to Test::Simple/More.
PS See the perlhack man page about getting a copy of bleadperl
(perl-current).
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Carpe canem! Seize the dog! This cannot be right.
-- The Critic
E file.
Text::Metaphone's INSTALL and README docs are generated using it.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
HA HA HA You're all so ridiculous! But thanks for th
On Thu, Aug 23, 2001 at 06:45:26AM +0900, Tatsuhiko Miyagawa wrote:
> Title says it all :-)
It's in. New version will work back to 5.004 now. Thanks!
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED
printf "# Failed test at line %d\n", (caller)[2];
> ! ok(!%$avhv,"single scalar context");
Use a bit more whitespace between the test and the name. Easier on
the eyes.
ok( !%$avhv,'single scalar context' );
Other than that, looks good. Just put in th
On Wed, Aug 29, 2001 at 07:51:18AM -0400, Barrie Slaymaker wrote:
> On Wed, Aug 29, 2001 at 01:51:48AM -0400, Michael G Schwern wrote:
> >
> > First, the syntax for the code examples has changed. Instead of
> > "=also begin/end example" it's "=for ex
with it.
http://www.pobox.com/~schwern/src/Test-SDK-0.02.tar.gz
This is by no means a complete SDK, I'm sure there's plenty more that
can go into it. I'll take suggestions.
Just wanted to actually get something done.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.c
No
t/op/universal.tYes
t/op/unshift.t Yes
t/op/utf8decode.t Yes
t/op/vec.t Yes
t/op/ver.t Yes
t/op/wantarray.tYes
t/op/write.tYes
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
dules.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
I know you get this a lot, but what's an unholy fairy like you doing in a
mosque like this?
ected\n";
+print STDERR "# GOT:\n$results\n";
+}
+printf "%sok %d%s\n", ($ok ? '' : "not "), $test,
+ length $name ? " - $name" : $name;
+$test++;
}
__END__
-()=()
$a = ":="; split /($a)/o, "a:=b:=c"; print "@_"
EXPECT
@@ -739,3 +783,9 @@
# keep this last - doesn't seem to work otherwise?
eval "a.b.c.d.e.f;sub"
EXPECT
+
+ perlbug ID 20010831.001
+($a, b) = (1, 2);
+EXPECT
+Can't modify constant item in list assignment at - line 1, near ");"
+Execution of - aborted due to compilation errors.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Follow me to certain death!
http://www.unamerican.com/
}; }
-print "ok\n";
-EXPECT
-ok
-####
-# moved to op/lc.t
-EXPECT
-
-sub f { my $a = 1; my $b = 2; my $c = 3; my $d = 4; next }
-my $x = "foo";
-{ f } continue { print $x, "\n" }
-EXPECT
-foo
-
-sub C () { 1 }
-sub M { $_[0] = 2; }
-eval "C";
-M(C);
-EXPECT
-Modification of a read-only value attempted at - line 2.
-
-print qw(ab a\b a\\b);
-EXPECT
-aba\ba\b
-
-# lexicals declared after the myeval() definition should not be visible
-# within it
-sub myeval { eval $_[0] }
-my $foo = "ok 2\n";
-myeval('sub foo { local $foo = "ok 1\n"; print $foo; }');
-die $@ if $@;
-foo();
-print $foo;
-EXPECT
-ok 1
-ok 2
-
-# lexicals outside an eval"" should be visible inside subroutine definitions
-# within it
-eval <<'EOT'; die $@ if $@;
-{
-my $X = "ok\n";
-eval 'sub Y { print $X }'; die $@ if $@;
-Y();
-}
-EOT
-EXPECT
-ok
-
-# test that closures generated by eval"" hold on to the CV of the eval""
-# for their entire lifetime
-$code = eval q[
- sub { eval '$x = "ok 1\n"'; }
-];
-&{$code}();
-print $x;
-EXPECT
-ok 1
-
-# This test is here instead of pragma/locale.t because
-# the bug depends on in the internal state of the locale
-# settings and pragma/locale messes up that state pretty badly.
-# We need a "fresh run".
-BEGIN {
-eval { require POSIX };
-if ($@) {
- exit(0); # running minitest?
-}
-}
-use Config;
-my $have_setlocale = $Config{d_setlocale} eq 'define';
-$have_setlocale = 0 if $@;
-# Visual C's CRT goes silly on strings of the form "en_US.ISO8859-1"
-# and mingw32 uses said silly CRT
-$have_setlocale = 0 if (($^O eq 'MSWin32' || $^O eq 'NetWare') && $Config{cc} =~
/^(cl|gcc)/i);
-exit(0) unless $have_setlocale;
-my @locales;
-if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) {
-while() {
-chomp;
-push(@locales, $_);
-}
-close(LOCALES);
-}
-exit(0) unless @locales;
-for (@locales) {
-use POSIX qw(locale_h);
-use locale;
-setlocale(LC_NUMERIC, $_) or next;
-my $s = sprintf "%g %g", 3.1, 3.1;
-next if $s eq '3.1 3.1' || $s =~ /^(3.+1) \1$/;
-print "$_ $s\n";
-}
-EXPECT
-
-die qr(x)
-EXPECT
-(?-xism:x) at - line 1.
-
-# 20001210.003 [EMAIL PROTECTED]
-format REMITOUT_TOP =
-FOO
-.
-
-format REMITOUT =
-BAR
-.
-
-# This loop causes a segv in 5.6.0
-for $lineno (1..61) {
- write REMITOUT;
-}
-
-print "It's OK!";
-EXPECT
-It's OK!
-
-# Inaba Hiroto
-reset;
-if (0) {
- if ("" =~ //) {
- }
-}
-
-# Nicholas Clark
-$ENV{TERM} = 0;
-reset;
-// if 0;
-
-# Vadim Konovalov
-use strict;
-sub new_pmop($) {
-my $pm = shift;
-return eval "sub {shift=~/$pm/}";
-}
-new_pmop "abcdef"; reset;
-new_pmop "abcdef"; reset;
-new_pmop "abcdef"; reset;
-new_pmop "abcdef"; reset;
-
-# David Dyck
-# coredump in 5.7.1
-close STDERR; die;
-EXPECT
-
--w
-"x" =~ /(\G?x)?/; # core dump in 2716.007
-EXPECT
-Quantifier unexpected on zero-length expression in regex; marked by <-- HERE in
m/(\G?x)? <-- HERE / at - line 2.
-
-# Bug 20010515.004
-my @h = 1 .. 10;
-bad(@h);
-sub bad {
- undef @h;
- print "O";
- print for @_;
- print "K";
-}
-EXPECT
-OK
-
-# Bug 20010506.041
-"abcd\x{1234}" =~ /(a)(b[c])(d+)?/i and print "ok\n";
-EXPECT
-ok
-
-# Bug 20010422.005
-{s//${}/; //}
-EXPECT
-syntax error at - line 2, near "${}"
-Execution of - aborted due to compilation errors.
-
-# Bug 20010528.007
-"\x{"
-EXPECT
-Missing right brace on \x{} at - line 2, within string
-Execution of - aborted due to compilation errors.
-
-my $foo = Bar->new();
-my @dst;
-END {
-($_ = "@dst") =~ s/\(0x.+?\)/(0x...)/;
-print $_, "\n";
-}
-package Bar;
-sub new {
-my Bar $self = bless [], Bar;
-eval '$self';
-return $self;
-}
-sub DESTROY {
-push @dst, "$_[0]";
-}
-EXPECT
-Bar=ARRAY(0x...)
-
-# 20010407.008 sprintf removes utf8-ness
-$a = sprintf "\x{1234}";
-printf "%x %d\n", unpack("U*", $a), length($a);
-$a = sprintf "%s", "\x{5678}";
-printf "%x %d\n", unpack("U*", $a), length($a);
-$a = sprintf "\x{1234}%s", "\x{5678}";
-printf "%x %x %d\n", unpack("U*", $a), length($a);
-EXPECT
-1234 1
-5678 1
-1234 5678 2
-
-# keep this last - doesn't seem to work otherwise?
-eval "a.b.c.d.e.f;sub"
-EXPECT
-
- perlbug ID 20010831.001
-($a, b) = (1, 2);
-EXPECT
-Can't modify constant item in list assignment at - line 1, near ");"
-Execution of - aborted due to compilation errors.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Death follows me like a wee followey thing.
-- Quakeman
On Sun, Sep 02, 2001 at 03:15:29AM +0300, Jarkko Hietaniemi wrote:
> > @@ -739,3 +783,9 @@
> > # keep this last - doesn't seem to work otherwise?
>
> This requirement magically went away while I was away?
Oh, I fixed that but forgot to remove the comment.
--
Micha
::Html
Pod::InputObjects
Pod::LaTeX
Pod::Man
Pod::ParseUtils
Pod::Parser
Pod::Select
Pod::Text::Color
Pod::Text::Overstrike
Pod::Text::Termcap
Shell
Term::Cap
Term::Complete
Term::ReadLine
blib
filetest
less
open
sigtrap
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwer
f thing:
my $obj = Some::Module->new;
isa_ok( $obj, 'Some::Module' );
where you'd otherwise have to write
my $obj = Some::Module->new;
ok( defined $obj && $obj->isa('Some::Module') );
> ! ok($a->{'abc'} eq 'ABC',"Tie::StdArray");
If you're going to use Test::More, use is() for tests like this.
is( $a->{'abc'}, 'ABC', "Tie::StdArray" );
You've already done *plenty* of work. I'll do the
t;
> occurs a lot and make VMS all urpy.
Yeah, go for it.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Maybe they hooked you up with one of those ass-making magazines.
-- brian d. foy as misheard by Michael G Schwern
ot; unless $ok;
$out .= "ok $test\n";
print $out;
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
$test++;
return $ok;
}
For t/pod and lib/ you can use Test::Simple or Test::More.
--
Michael G. Schwern <[EMAIL PRO
- %s\n", $ok ? "" : "not ", $test, $name;
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
$test++;
return $ok;
}
etc... use your head and it should be ok.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
slick and shiny crust
over my hairy anus
constipation sucks
-- Ken Flagg
Ooops, just realized I released that one without a date in the Changes
file. Oh well.
Just a couple of minor things. The most important one being that
pod2test will no longer produce any output if there's no embedded
tests.
http://www.pobox.com/~schwern/src/Test-Inline-0.11.tar.gz
0.11
to do about it.
I've checked, they work back to 5.004. So it's safe to apply them to
the CPAN version of CGI.pm. They use Test::More, so you'll want to
put the Test::More distribution into t/lib/ in your CPAN dist and slap
a "use lib qw(t/lib)" in. I also fixed a warn
u're messing with STDOUT. Dunno, let's see what happens.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
That which stirs me, stirs everything.
-- Squonk Opera, "Spoon"
;, "Foo", 42;
>
> is(ref tied($v), 'local::Config::Var', "TIESCALAR works");
>
> $v = 43;
> is ((tied $v)->value, 43, "STORE works");
>
> $x = $v;
> ok(($x == (tied $v)->value), "FETCH works with
d at ..." message, so I added
> a couple of eval{} blocks and tested $@ in those cases.
Good good.
> I think that covers the bases for concat.t now. Full patch attached.
Ok. I'll repatch with the sensible ok() and send this one onto p5p.
--
Michael G. Schwern <[EMA
not be tested with Test::More
since it relies on that functionality.
> Still working my way through t/op; hope to have more later today.
Ok. Let me run through t/op and give you a list of what's safe to use
Test::More on and what's not. Let you know in a bit.
--
Michael G. Schwern
On Thu, Aug 30, 2001 at 04:37:04PM -0400, Joe McMahon wrote:
> --- old_op/concat.t Sun Aug 12 00:34:56 2001
> +++ op/concat.t Thu Aug 30 16:26:00 2001
> @@ -5,49 +5,47 @@
> @INC = '../lib';
> }
>
> -print "1..11\n";
We kinda needed th
Pod::Tests is now Test::Inline and distributed as such. The
Pod::Tests module remains, but it's just the POD parser.
http://www.pobox.com/~schwern/src/Test-Inline-0.10.tar.gz
There are two major API changes.
First, the syntax for the code examples has changed. Instead of
"=also
binaries.
http://www.pobox.com/~schwern/src/CPAN-Smoke-0.10.tar.gz
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
I was *meant* to mount your donuts.
d
private.
Or provide this as a switch.
Pod::Coverage->new(package => "Foo", only_exportable => 1);
private_check would be useful on it's own, though.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <
s::testlib
Net::Ping
Pod::Functions
Pod::Html
Pod::InputObjects
Pod::LaTeX
Pod::Man
Pod::ParseUtils
Pod::Parser
Pod::Select
Pod::Text
Pod::Text::Color
Pod::Text::Overstrike
Pod::Text::Termcap
Term::Cap
Term::Complete
Term::ReadLine
blib
filetest
less
open
sigtrap
--
Michael G. Schwern <
like "pmeth" to tell you what a class implements or plxload to tell
> you what modules a script uses.
Oooohhh! I had no idea these existed!
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]>
out a CPAN index.
> I guess I could build it myself, but perhaps a layer of abstraction
> in CPAN::Smoke would be useful.
CPAN::Smoke is still in the "just get the damned thing working" stage.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwer
On Wed, Sep 19, 2001 at 04:37:41PM +0100, Paul Marquess wrote:
> From: Rafael Garcia-Suarez [mailto:[EMAIL PROTECTED]]
>
> > Michael G Schwern listed:
> > [...]
> > > warnings::register (almost no docs)
>
> Hmm, would a "see L and L." do?
I'v
y of the idealized representation of your test
(ie. what you'd like to write)?
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Maybe they hooked you up with one of those ass-making ma
quot;);
OH! I thought you were literally using fork(), not running another
program. Now that makes a little more sense.
I suppose the idea here is something like:
system("some_test") for 1..3;
so you test that you can run the same code simultaneously and they
won't trip
atch) and
> the analysis in the END{} block should be skipped cause its not really
> done yet. But I _do_ want the Test::More functions. They're quite handy.
Ok, I'll see what I can do.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
y($self, $perl, $script) = @_;
$perl = "PERL_DL_NONLAZY=1 $perl" unless $Is_Win32;
+"\t$self->{NOECHO}echo Running tests for \$(NAME)\n".
qq{\t$perl}.q{ $(TEST_LIBS) }.qq{$script
};
}
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Here's hoping you don't harbor a death wish!
On Tue, Oct 02, 2001 at 04:34:34PM -0400, Michael G Schwern wrote:
> Running tests for ExtUtils::MakeMaker
> t/ExtUtilsok
> All tests successful.
> Files=1, Tests=27, 7 wallclock secs ( 5.93 cusr + 1.15 csys
On Tue, Oct 02, 2001 at 10:49:03PM +0200, Tels wrote:
> On 02-Oct-01 Michael G Schwern tried to scribble about:
> > On Tue, Oct 02, 2001 at 04:34:34PM -0400, Michael G Schwern wrote:
> >> Running tests for ExtUtils::MakeMaker
> &g
On Tue, Oct 02, 2001 at 04:21:17PM -0500, Dave Rolsky wrote:
> On Tue, 2 Oct 2001, Michael G Schwern wrote:
>
> > Any particularly good reason we're showing all that "PERL_DL_NONLAZY"
> > noise as part of "make test"? What about just:
>
> I
order to run a core test by
hand you have to do:
PERL_CORE=1 ./perl -Ilib lib/Some/Module.t
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Here's hoping you don't harbor a death wish!
test from
> scratch is generally harder than adding to an existing test. (It's
> probably the blank page thing that plagues authors.)
Unfortunately, no. Devel::Coverage is fundamentally broken and
Devel::Cover is gagging on the core test suite.
I'll see what I can do about
Test
http://magnonel.guild.net/~schwern/src/CPAN-Test-0.12.tar.gz
The critical modules are all done.
CPAN::Test
CPAN::Test::Author
CPAN::Test::Mistake
CPAN::Test::Module
CPAN::Test::Reporter is a patched up version of Skud's module used to
send reports back to cpan-testers. The format is currentl
ests and decided it would be too much invasive surgery to get it
right. I still have the patch lying around and could put it in if you
need it.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee I
k one, do it, submit the patch. Avoid dumping out a huge
all-in-one patch.
Once you've done that you can add "Refactoring" to the list of
buzzwords on your resume. :)
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <
one can fathom it more easily to do a rewrite.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
They just don't make any good porn music anymore, do they?
- WXDX DJ refering to "More, More, More"
ed.
So we can test libnet. We can do it on all platforms. We don't have
to muck about with any more $^O hackery than usual. Most tests will
involve writing some sort of dummy server. For some, this will be
easy (Net::Ping, Net::Time) for others it might be hard (Net::FTP),
but it's po
mind it if you did? ;)
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Any sufficiently encapsulated hack is no longer a hack.
On Sat, Oct 20, 2001 at 10:37:01PM +0200, Paul Johnson wrote:
> By the way, I got rid of perl-qa-metrics. It's basically dead, right?
Basically.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]>
t one step further. They insert functions that
deliberately fail into working code to see if it gracefully handles
failure of, say, losing a database connection, or the network going
down, or a necessary file disappearing.
> Schwern thinks it's clever, so it can't be all bad.
I still th
27;s worth trying to wedge this into the usual
"perl Makefile.PL; make; make test; make install" sequence or to just
have a simple "installsdk" program that gets run.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Monkey tennis
On Tue, Oct 23, 2001 at 10:37:30AM +0800, Autrijus Tang wrote:
> On Mon, Oct 22, 2001 at 09:48:56PM -0400, Michael G Schwern wrote:
> > It then orders them in terms of which needs to be installed first. In
> > Test::SDK it would be Test::Harness, Test::Simple and finally
&
these new tests going to wind up
> > on old perl and libnet versions?
>
> I understood that as Graham being unsure about using Test::More in the tests.
Oh, we can fix that. Just distribute Test::More with libnet, a la
CGI.pm.
I'll just go summon my Army of Test::More Octo
ends on a module in the core it should check that
> the module is avaliable, so that the test is skipped with older
> perl releases.
But this is a little funny. How are these new tests going to wind up
on old perl and libnet versions?
--
Michael G. Schwern <[EMAIL PROTECTED]>
how each change
committed to perl along with the usual archives at
http://archive.develooper.com/
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Good tidings, my native American I
tp://bugs.perl.org/perlbug.cgi?req=mailhelp
2) Richard (or someone who knows perlbug well), could you show us
sample emails for the aforementioned perlbug commands? Just to make
sure we've got it right.
Once we have that...
3) Someone who knows mutt/elm/etc can code up a little scri
On Thu, Nov 08, 2001 at 05:42:39PM -0600, Craig A. Berry wrote:
> -if ($Is_MSWin32 || $Is_NetWare || $Is_Dos || $Is_MPE || $Is_MacOS) {
> +if ($Is_MSWin32 || $Is_NetWare || $Is_Dos || $Is_MPE || $Is_MacOS | $Is_VMS) {
|| $Is_VMS
--
Michael G. Schwern <[EMAIL PROTECTED]
1 - 100 of 413 matches
Mail list logo
