Changeset 16087 for lang/perl/Google-Chart

Timestamp:

07/22/08 18:37:15 (5 years ago)

Author:

daisuke

Message:

Add bar graph

Location:

lang/perl/Google-Chart/branches/moose

Files:

• lib/Google/Chart.pm (modified) (1 diff)
• lib/Google/Chart/Label.pm (modified) (1 diff)
• lib/Google/Chart/Type/Bar.pm (added)
• t/50_line.t (modified) (3 diffs)
• t/51_bar.t (added)

lang/perl/Google-Chart/branches/moose/lib/Google/Chart.pm

@@ -51 +51 @@
 );
 
+__PACKAGE__->meta->make_immutable;
+
 no Moose;
 

lang/perl/Google-Chart/branches/moose/lib/Google/Chart/Label.pm

@@ -5 +5 @@
 
 no Moose;
+
+1;

lang/perl/Google-Chart/branches/moose/t/50_line.t

@@ -1 +1 @@
 use strict;
-use Test::More (tests => 50);
+use Test::More (tests => 10);
 use Test::Exception;
 
@@ -20 +20 @@
     isa_ok( $chart->type, "Google::Chart::Type::Line" );
 
-    is( $chart->size->width, 200 );
+    is( $chart->size->width, 400 );
     is( $chart->size->height, 300 );
 
@@ -27 +27 @@
     my %h = $uri->query_form;
     is( $h{cht}, "lc" );
-    is( $h{chs}, "200x300" );
+    is( $h{chs}, "400x300" );
 
     my $filename = 't/foo.png';