Re: Test::More and WWW::Chat fighting over fail()

[Richard Clamp]

On Sun, Oct 07, 2001 at 03:57:48PM -0400, Kirrily 'Skud' Robert wrote:
> Also, there's some weirdness with webchatpp's generated code if your
> WWW::Chat script was inside subroutines (or presumably other blocks).
> Here's a real life example:
> [snippage]
> It would be nice if we could get this to work ;)  But as a workaround, I 
> can live with one sub per script for now, I guess :-/

I imagine getting it to work correctly requires the ability to parse
webchat augmented perl.  The thought of that hurts my brain.  

I just ran into this for $dayjob and can offer this as a possible
workaround to get multiple WebChat subs.


#!perl -w
use strict;

use Test::More tests => 2;
use TestConfig;

use Inline 'WebChat' => <<SCRIPT;

sub is_up {
    GET $TestConfig::site
    EXPECT OK
    return 1
}

SCRIPT

is(is_up(), 1, "site is up");

use Inline 'WebChat' => <<SCRIPT;

sub will_404 {
    GET $TestConfig::site/four_oh_four
    EXPECT ERROR
    return 1;
}

SCRIPT

is(will_404, 1, "404s $TestConfig::site/four_oh_four");

__END__

-- 
Richard Clamp <[EMAIL PROTECTED]>