testing web foo with Test::More

[Kirrily 'Skud' Robert]

OK, I've been putting off figuring this out for ages, but here it is:

    #!/usr/bin/perl -w
    
    use strict;
    use Inline 'WebChat';
    use Test::More 'no_plan';
    
    ok(google(), "Can get google");
    
    __END__
    
    __WebChat__
    
    sub google {
        GET http://google.com/
        EXPECT OK && /google/i
    }

That's it.  Easy.

I'm updating the Test::FAQ on the Wiki to show this.

K.