source: FierceParser/trunk/t/Test/ExtBruteForce.pm @ 96

Revision 96, 2.0 KB checked in by jabra, 4 years ago (diff)

test updates

  • Property svn:executable set to *
  • Property svn:keywords set to Id
Line 
1#!/usr/bin/perl
2# $Id$
3package t::Test::ExtBruteForce;
4
5use base 't::Test';
6use Test::More;
7use Data::Dumper;
8sub fields : Tests {
9    my ($self) = @_;
10 
11    my $session1 = $self->{parser1}->get_session();
12
13    my $domainscandetails = $session1->domainscandetails;
14    my @domains = @{ $domainscandetails->domains } ;
15    my $domain_obj = $domains[0];
16
17    my $extbf = $domain_obj->ext_bruteforce;
18
19    is ( $extbf->starttime, '1220494203', 'startscan');
20    is ( $extbf->starttimestr, 'Wed Sep  3 22:10:03 2008', 'startscanstr');
21    is ( $extbf->endtime, '1220494203', 'endscan');
22    is ( $extbf->endtimestr, 'Wed Sep  3 22:10:03 2008', 'endscanstr');
23    is ( $extbf->elasptime, '0', 'elasp');
24
25    my $session3 = $self->{parser3}->get_session();
26    $domainscandetails = $session3->domainscandetails;
27    @domains = @{ $domainscandetails->domains } ;
28    $domain_obj = $domains[0];
29
30    $extbf = $domain_obj->ext_bruteforce;
31    is ( $extbf->starttime, '1242750552', 'startscan');
32    is ( $extbf->starttimestr, 'Tue May 19 12:29:12 2009', 'startscanstr');
33    is ( $extbf->endtime, '1242750557', 'endscan');
34    is ( $extbf->endtimestr, 'Tue May 19 12:29:17 2009', 'endscanstr');
35    is ( $extbf->elasptime, '5', 'elasp');
36    my @result = @{$extbf->nodes};
37    my $node1 = $result[0];
38    my $node2 = $result[1];
39    my $node3 = $result[2];
40    my $node4 = $result[3];
41    my $node5 = $result[4];
42    is ( $node1->hostname, 'metasploit.com' , 'node1 hostname: metasploit.com');
43    is ( $node2->hostname, 'metasploit.net' , 'node2 hostname: metasploit.net');
44    is ( $node3->hostname, 'metasploit.org' , 'node3 hostname: metasploit.org');
45    is ( $node4->hostname, 'metasploit.de' , 'node4 hostname: metasploit.de');
46
47    is ( $node1->ip, '66.240.213.81' , 'node1 ip: 66.240.213.81');
48    is ( $node2->ip, '66.240.213.84' , 'node2 ip: 66.240.213.84');
49    is ( $node3->ip, '66.240.213.84' , 'node3 ip: 66.240.213.84');
50    is ( $node4->ip, '80.190.185.109' , 'node4 ip: 80.190.185.109');
51
52}
531;
Note: See TracBrowser for help on using the repository browser.