Changeset 45 for FierceParser/trunk/t/Test/SubdomainBruteForce.pm

Timestamp:

03/03/09 03:58:29 (4 years ago)

Author:

jabra

Message:

improved tests for subdomain bruteforce

File:

• FierceParser/trunk/t/Test/SubdomainBruteForce.pm (modified) (2 diffs)

FierceParser/trunk/t/Test/SubdomainBruteForce.pm

@@ -5 +5 @@
 use base 't::Test';
 use Test::More;
+use Data::Dumper;
 sub fields : Tests {
     my ($self) = @_;
   
-    my $session1 = $self->{parser3}->get_session();
-
-    my $domainscandetails = $session1->domainscandetails;
+    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');
@@ -22 +21 @@
     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;