Changeset 221

Show
Ignore:
Timestamp:
03/07/07 17:24:46 (2 years ago)
Author:
kindlund
Message:

Integration testing.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • honeyclient/branches/exp/jpuchalski-active_content/lib/HoneyClient/Agent/Driver/Browser.pm

    r218 r221  
    989989    my $base = $response->base; 
    990990    my $content = $response->content; 
    991  
    992     # TODO: Flash content type testing. 
    993     # XXX: Clean this up. 
    994991    my $type = $response->header('Content-Type'); 
    995 print "Content-Type: " . $type . "\n"; 
    996 print "Base: " . $base . "\n"; 
    997992 
    998993    # Get the current time. 
    …… 
    10071002        if ($type eq "application/x-shockwave-flash") { 
    10081003 
    1009             # TODO: Save content to a temp file on disk. 
     1004            # Save content to a temp file on disk. 
    10101005            my $tempFile = new File::Temp(SUFFIX => '.swf'); 
    10111006            print $tempFile $content; 
    …… 
    10161011                                base_url    => $base, 
    10171012                            ); 
     1013 
     1014            # TODO: Check to make sure that temp files are getting deleted properly 
     1015            # (when normal conditions apply). 
    10181016 
    10191017        # Assume that all other content types are HTML-based.