Slash Boxes
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

use Perl Log In

Log In

[ Create a new account ]

TeeJay (2309)

  (email not shown publicly)

Working in Truro
Graduate with BSc (Hons) in Computer Systems and Networks
pm :,,
lug : Devon & Cornwall LUG
irc : TeeJay
skype : hashbangperl
livejournal : hashbangperl []
flickr :hashbangperl []

Journal of TeeJay (2309)

Tuesday February 03, 2009
02:46 PM

New testing module : Test::HTML::Form

[ #38404 ]

I've released, with the kind permission of Slando, Test::HTML::Form which makes testing HTML and HTML::Forms considerably easier.

The API is loosely based on Test::HTML::Content, but it use HTML::Treebuilder and re-uses parse trees and objects where possible, making it much quicker - it also uses filenames instead of passing strings around, and has additional methods for extracting strings and testing form elements easily

So far it's already made a lot of testing easier, but I already have a wishlist of extra features - like being able to extract HTML::Elements easily, provide urls instead of filenames, and allow extra tests on more form elements.

Anyway.. its in SVN at and on CPAN

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.
  • Can/should I look at integration with WWW::Mechanize?


    • That would be great.

      I'd like to be able to use it to test web pages over the web or locally.

      Not sure what changes would be needed to make it work nicely - currently you would fetch a page using anything and then test the saved file.

      Really I'd like it to make that a lot easier.


      @JAPH = qw(Hacker Perl Another Just);
      print reverse @JAPH;
      • actually, we'd want to work with Test::WWW::Mechanize. I can't look at it now, but I welcome your ideas.


        • Yes, I had a look at that - significant overlap, but didn't do what I needed at the time.

          I'll probably go a different route and maybe allow you to pass a LWP or perhaps Mech object instead of a filename.


          @JAPH = qw(Hacker Perl Another Just);
          print reverse @JAPH;