[Bps-public-commit] r19638 - in Net-Google-Code/branches/write: t

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue May 12 05:12:57 2009
New Revision: 19638

Modified:
   Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Authentication.pm
   Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Fetchable.pm
   Net-Google-Code/branches/write/lib/Net/Google/Code/Role/HTMLTree.pm
   Net-Google-Code/branches/write/t/02.issue.t

Log:
rescue from the merge: make it pass again

Modified: Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Authentication.pm
==============================================================================
--- Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Authentication.pm	(original)
+++ Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Authentication.pm	Tue May 12 05:12:57 2009
@@ -1,7 +1,7 @@
 package Net::Google::Code::Role::Authentication;
 use Moose::Role;
 
-with 'Net::Google::Code::Role::Connectable';
+with 'Net::Google::Code::Role::Fetchable';
 
 has 'email' => (
     isa => 'Str',

Modified: Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Fetchable.pm
==============================================================================
--- Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Fetchable.pm	(original)
+++ Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Fetchable.pm	Tue May 12 05:12:57 2009
@@ -41,7 +41,7 @@
 
 =head1 NAME
 
-Net::Google::Code::Role::Connectable - 
+Net::Google::Code::Role::Fetchable - 
 
 
 =head1 DESCRIPTION

Modified: Net-Google-Code/branches/write/lib/Net/Google/Code/Role/HTMLTree.pm
==============================================================================
--- Net-Google-Code/branches/write/lib/Net/Google/Code/Role/HTMLTree.pm	(original)
+++ Net-Google-Code/branches/write/lib/Net/Google/Code/Role/HTMLTree.pm	Tue May 12 05:12:57 2009
@@ -1,6 +1,6 @@
 package Net::Google::Code::Role::HTMLTree;
 use Moose::Role;
-with 'Net::Google::Code::Role::Connectable';
+with 'Net::Google::Code::Role::Fetchable';
 
 use HTML::TreeBuilder;
 use Params::Validate qw(:all);

Modified: Net-Google-Code/branches/write/t/02.issue.t
==============================================================================
--- Net-Google-Code/branches/write/t/02.issue.t	(original)
+++ Net-Google-Code/branches/write/t/02.issue.t	Tue May 12 05:12:57 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 17;
+use Test::More tests => 15;
 use Test::MockModule;
 
 # $content is a real page: http://code.google.com/p/chromium/issues/detail?id=14
@@ -54,8 +54,6 @@
     'intext',   'Mstone-X', 'Foo-Bar-Baz',
 );
 
-my @labels_array = map { $_ . '-' . ( $labels{$_} || '' ) } sort keys %labels;
-
 for my $item ( qw/id summary description owner cc reporter status closed/ ) {
     if ( defined $info{$item} ) {
         is ( $ticket->$item, $info{$item}, "$item is extracted" );
@@ -66,16 +64,6 @@
 }
 
 is_deeply( $ticket->labels, \@labels, 'labels is extracted' );
-is_deeply(
-    [ $ticket->labels_array ],
-    \@labels_array,
-    'labels_array without labels arg'
-);
-is_deeply(
-    [ $ticket->labels_array( labels => { Type => 'foo', Label => 'bar' } ) ],
-    [ 'Label-bar', 'Type-foo' ],
-    'labels_array with labels arg'
-);
 
 is( scalar @{$ticket->comments}, 50, 'comments are extracted' );
 is( $ticket->comments->[0]->sequence, 1, 'sequence of 1st comments is 1' );