[Bps-public-commit] r17481 - in Net-Google-Code/trunk: .
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Wed Dec 31 02:29:16 EST 2008
Author: sunnavy
Date: Wed Dec 31 02:29:15 2008
New Revision: 17481
Added:
Net-Google-Code/trunk/t/04.attachment.t
Modified:
Net-Google-Code/trunk/ (props changed)
Log:
r18428 at sunnavys-mb: sunnavy | 2008-12-31 15:11:09 +0800
added 04.attachment.t
Added: Net-Google-Code/trunk/t/04.attachment.t
==============================================================================
--- (empty file)
+++ Net-Google-Code/trunk/t/04.attachment.t Wed Dec 31 02:29:15 2008
@@ -0,0 +1,54 @@
+use strict;
+use warnings;
+
+use Test::More tests => 7;
+
+
+
+use_ok( 'Net::Google::Code::TicketAttachment' );
+use_ok( 'Net::Google::Code::Connection' );
+my $connection = Net::Google::Code::Connection->new( project => 'haha' );
+my $attachment =
+ Net::Google::Code::TicketAttachment->new( connection => $connection );
+
+isa_ok( $attachment, 'Net::Google::Code::TicketAttachment', '$attachment' );
+
+
+my $content;
+{
+ local $/;
+ $content = <DATA>;
+}
+
+use HTML::TreeBuilder;
+my $tree = HTML::TreeBuilder->new;
+$tree->parse_content($content);
+$tree->elementify;
+
+my @tr = $tree->find_by_tag_name('tr');
+is( scalar @tr, 2, '@tr has 2 elements' );
+$attachment->parse( @tr );
+
+my %info = (
+ url =>
+'http://chromium.googlecode.com/issues/attachment?aid=-1323983749556004507&name=proxy_settings.png',
+ filename => 'proxy_settings.png',
+ size => '14.3 KB',
+);
+
+for my $item ( keys %info ) {
+ if ( defined $info{$item} ) {
+ is ( $attachment->$item, $info{$item}, "$item is extracted" );
+ }
+ else {
+ ok( !defined $attachment->$item, "$item is not defined" );
+ }
+}
+
+
+__DATA__
+ <tr><td rowspan="2" width="24"><a href="http://chromium.googlecode.com/issues/attachment?aid=-1323983749556004507&name=proxy_settings.png" target="new"><img width="16" height="16" src="/hosting/images/generic.gif" border="0" ></a></td>
+ <td><b>proxy_settings.png</b></td></tr>
+ <tr><td>14.3 KB
+
+ <a href="http://chromium.googlecode.com/issues/attachment?aid=-1323983749556004507&name=proxy_settings.png">Download</a></td></tr>
More information about the Bps-public-commit
mailing list