source: FierceParser/trunk/t/Test/SubdomainBruteForce.pm @ 45

#!/usr/bin/perl
# $Id: BruteForce.pm 14 2009-03-02 01:04:45Z jabra $
package t::Test::SubdomainBruteForce;

use base 't::Test';
use Test::More;
use Data::Dumper;
sub fields : Tests {
    my ($self) = @_;
  
    my $session3 = $self->{parser3}->get_session();
    my $domainscandetails = $session3->domainscandetails;
    my @domains = @{ $domainscandetails->domains } ;
    my $domain_obj = $domains[0];

    my $subdomain_bf = $domain_obj->subdomain_bruteforce;

    is ( $subdomain_bf->starttime, '1236035159', 'startscan');
    is ( $subdomain_bf->starttimestr, 'Mon Mar  2 18:05:59 2009', 'startscanstr');
    is ( $subdomain_bf->endtime, '1236035249', 'endscan');
    is ( $subdomain_bf->endtimestr, 'Mon Mar  2 18:07:29 2009', 'endscanstr');
    is ( $subdomain_bf->elasptime, '90', 'elasp');
    my @result = @{$subdomain_bf->nodes};
    my $node1 = $result[0];
    my $node2 = $result[1];
    is ( $node1->hostname, 'imap01.spy.metasploit.com' , 'imap01.spy.metasploit.com');
    is ( $node2->hostname, '95737247883.spy.metasploit.com' , 'imap01.spy.metasploit.com');

}
1;