NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Testing whole scripts (Score:1)
Re:Testing whole scripts (Score:1)
I'm about to roll out some HTML testing stuff today or tomorrow that might be useful, too, along those lines. It'll be wrappers around HTML::Lint.
Maybe we should put up sample code that shows how people use the testing stuff in the real world.
--
xoa
Re:Testing whole scripts (Score:1)
# corresponds to a Session.pm file I have.
# It could certainly be more robust, and test
# more options than just some simple scalars.
#!/usr/bin/perl -w
use strict;
use constant SAVEPATH=>'/tmp';
use Test::More tests=>7;
BEGIN {
use_ok( 'TW::Session' );
}
my $saved_session_id;
CREATE: {
my $session = new TW::Session( SavePath=>SAVEPATH );
isa_ok( $session, 'TW::Session', 'Created first session' );
$session-
--
xoa