WWW::Webrobot::Print::MakeTestplan - print a line based testplan

webrobot documentation Contained in the webrobot distribution.

Index

Code Index:

NAME

Top

WWW::Webrobot::Print::MakeTestplan - print a line based testplan

DESCRIPTION

Top

This module prints all urls in a format compatible to webrobot-gen-plan. It is usefull when you use a recursive request such as WWW::Webrobot::Recur::LinkChecker or WWW::Webrobot::Recur::Browser and want to convert it to a nonrecursive test naming all urls explicitly.

This module can be used to convert an (nonrecursive) XML testplan to a line based testplan, though some information will usually be lost.

SYNOPSIS

Top

 # In cfg0.prop set
 #     output=WWW::Webrobot::Print::MakeTestplan
 webrobot cfg=cfg0.prop testplan=testplan0.xml | webrobot-gen-plan

NOTE

Top

METHODS

Top

See WWW::Webrobot::pod::OutputListeners.

WWW::Webrobot::Print::MakeTestplan -> new ();

Constructor

webrobot documentation Contained in the webrobot distribution. 
package WWW::Webrobot::Print::MakeTestplan;
use strict;
use warnings;

# Author: Stefan Trcek
# Copyright(c) 2004 ABAS Software AG


sub new {
    my $class = shift;
    my $self = bless({}, ref($class) || $class);
    return $self;
}

sub global_start {
    #my $self = shift;
}

sub item_pre {
    #my $self = shift;
    #my ($arg) = @_;
}

sub item_post {
    my ($self, $r, $arg) = @_;
    return if $arg->{fail};

    my $first = $r;
    while (my $tmp = $first->previous) {
        $first = $tmp;
    }
    my $parameters = "";
    $parameters = " " . $first->request->content
        if ($arg->{method} eq "POST") &&
        ($first->request->headers->content_type eq 'application/x-www-form-urlencoded');
    print "$arg->{method} $arg->{url}$parameters\n";
}

sub global_end {
    #my $self = shift;
}

1;