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
19:59:59 BST 2001
- Fixed export problem in 5.004.
- prototyped the functions properly
* fixed bug with like() involving qr//
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is
all the test output. For failed tests
it will just report their numbers.
Currently, Test::Harness is not aware of test names at all. It just
ignores the extra info. I'm not sure what I'm going to do about that.
As sort of a simple, half-ass solution I'm going to have Test::Har
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]>
=for example_testing
ok( $_STDOUT_ eq "Hello, world!\n" );
ok( $_STDERR_ eq "Beware the Ides of March!\n" );
Remember, this is all EXPERIMENTAL and SUBJECT TO CHANGE!
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
I'm exploring my nipples.
$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]>
a flag, ok() notes that flag and acts normally but puts in
the extra # TODO and reason.
not ok 1 # TODO Give pigs wings
not ok 2 # TODO Give pigs wings
Its not necessary to tell the test_block() how many tests there are
since it always runs them. test_block() resets the todo
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
about developing code metric
tools for perl. Coverage analysis, profilers, etc... It's dead, we
just talk metrics on perl-qa. You can delete it.
I could probably dump a big pile of QA-related modules on you to put
up on the page if that'll help.
--
Michael G. Schwern <[EMAIL P
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
So if one of the
modules in the bundle gets upgraded and breaks things, the bundle
breaks.
The idea behind an SDK is to be as idiot proof as possible. It's a
single download, it requires no complicated configuration or utilities
(beyond make) and it's a known good combination of the mo
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
Tests is now officially named Test::Inline
* Pod::Tests::Tutorial renamed Test::Inline::Tutorial
* Tests are now lexically isolated
* Works back to 5.004 now (Thanks to Tatsuhiko Miyagawa)
* "=also begin example" is now "=for example begin"
--
Michael G. Sc
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
obals instead.
0.10 Wed Aug 29 01:13:41 EDT 2001
* Pod::Tests is now officially named Test::Inline
* Pod::Tests::Tutorial renamed Test::Inline::Tutorial
* Tests are now lexically isolated
* Works back to 5.004 now (Thanks to Tatsuhiko Miyagawa)
* "=also begin example" is
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
may have volunteered to finish it. Or at least kick me to
finish it.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
viscosity dawns
creamy, juicy, filling paste
open wide fucker
-- imploded
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]>
/lib';
> +}
> +
> +use strict;
> +use Cwd;
> +use Test::More tests => 19;
> +
> +# for testing _readrc
> +$ENV{HOME} = Cwd::cwd();
VMS alert! In VMS-land, a process can modify it's parent's
environment. localizing that change should do it.
--
Michael
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]
t/IO/lib/IO/t/io_xs.t
ext/NDBM_File/ndbm.t
ext/ODBM_File/odbm.t
ext/POSIX/t/posix.t
lib/IPC/Open2.t
lib/IPC/Open3.t
lib/ph.t
lib/File/Temp/t/posix.t (I think this skip is a mistake)
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <
lib" "t/op/my_stash.t"
>
> or, from within Perl
I keep getting:
$ MCR SYS$DISK:[]perl. -"Ilib" op/my_stash.t
%DCL-W-ACTIMAGE, error activating image PERLSHR
-CLI-E-IMGNAME, image file $1$DKB300:[SCHWERN.][BIN.AXP]PERLSHR.EXE;5
-SYSTEM-F-SHRIDMISMAT, ident mismatch
$PATH.*
-RMS-F-SYN, file specification syntax error
$ mcr masksigs.obj
%DCL-W-ACTIMAGE, error activating image MASKSIGS.OBJ
-CLI-E-IMAGEFNF, image file not found $2$DKA0:[SYS0.SYSCOMMON.][SYSEXE]MASKSIGS.OBJ;
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Per
rom Perl
Thread-Index: AcFuArrjNhvXoloyTFS3v9fC4uWzEgAAZd7A
From: "Regan, Tim" <[EMAIL PROTECTED]>
To: "Michael G Schwern" <[EMAIL PROTECTED]>
X-OriginalArrivalTime: 15 Nov 2001 18:35:07.0032 (UTC) FILETIME=[3FAD2180:01C16E04]
Thank-you for the note. Positive notes l
On Mon, Nov 19, 2001 at 09:05:35AM -0500, Ryan King wrote:
> On 2001.11.19, Michael G Schwern <[EMAIL PROTECTED]> wrote:
> > On Mon, Nov 19, 2001 at 12:22:09AM -0800, Russ Allbery wrote:
> > > > http://www.pobox.com/~schwern/cgi-bin/perl-qa-wiki.cgi?UntestedModules
(Note to self: Check this tomorrow)
The core contains the only official version of MakeMaker. I tried to
move it to CPAN a few months ago, but got scared because of the lack
of tests. There's an alpha still sitting in my CPAN author directory.
Kurt was supposed to give this another whack.
Just f
interesting if you need to link in other modules.
I have enough interesting to last me to the end of the month, thanks. :)
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
GOD made us funky!
tests. Second, Test::Harness allows you to
use unnumbered tests, however, there's currently no support for
this in Test::Simple/More.
It's on the TODORSN list.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance &l
ng the whole thing at the moment to provide easier access to
the behind the scenes stuff. Lots of people have been asking for the
ability to tweak little things like this.
If Enterprise turns out to suck, maybe I'll get something out tonite.
--
Michael G. Schwern <[EMAIL PROTECTED]>
On Fri, Sep 28, 2001 at 05:22:16PM +0100, Andrew Wilson wrote:
> I've just written a small logging module and I want ot do this
>
> isa_ok($lj, "BlackStar::LumberJack", "I'm a LumberJack and I'm ok");
>
> This feature is essential ;-)
Re
mming. This is the list of stuff
that Must Work and when the time comes for 5.8 release candidates we
can check them all out. (Or you can start early).
Add your modules to the Wiki
http://www.pobox.com/~schwern/cgi-bin/perl-qa-wiki.cgi?EssentialModules
--
Michael G. Schwern <[EMAIL PROTECTED]&
. If anyone is seriously interested in
helping out the authors, please contact them. Or better yet, surprise
them with a patch!
Archive::TarStephen Zander <[EMAIL PROTECTED]>
Archive::ZipNed Konz<[EMAIL PROTECTED]>
--
Michael G. Schwern <[EMAIL PROT
u're actively maintaining it and it seems to be humming along ok.
Unless you *do* need the help, in which case just yell right along
side the rest of us.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]>
load policy. Of course, if someone else
wants to maintain this thing, let me know--they're very troublesome.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
That which stirs m
#x27;t have to maintain it. :)
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
I have studied Japanese for ten years. I have to admit Japanese people are
very nice and thoughtful.
ormal test
ok - forked test 1 (PID 3245)
ok - forked test 2 (PID 3245)
ok - forked test 1 (PID 3246)
ok - forked test 2 (PID 3246)
ok - forked test 1 (PID 3247)
ok - forked test 2 (PID 3247)
ok 9 - last two
ok 10 - normal tests
--
Michael G. Schwern <[EMAIL PROT
ber, the sooner I have to cough up the money, the sooner I'll
have to get a job. And then I won't have as much time to screw around
on p5p which will be a relief for everyone.
--
Michael G. Schwern <[EMAIL PROTECTED]>http://www.pobox.com/~schwern/
Perl Quality Assurance
putObjects is used by Pod::Parser so it's *partly*
> tested, although not directly tested.
That don't fly.
> I'm currently working on Pod::Man, Pod::Text*, and Pod::ParseLink.
Excellante. Register that you're doing so on the Wiki so we don't
trip over each oth
1 - 100 of 395 matches
Mail list logo
