Index: lang/perl/Google-Chart/branches/moose/t/50_line.t
===================================================================
--- lang/perl/Google-Chart/branches/moose/t/50_line.t (revision 16085)
+++ lang/perl/Google-Chart/branches/moose/t/50_line.t (revision 16085)
@@ -0,0 +1,39 @@
+use strict;
+use Test::More (tests => 50);
+use Test::Exception;
+
+BEGIN
+{
+    use_ok("Google::Chart");
+}
+
+{ # Line
+    my $chart = Google::Chart->new(
+        type => "Line",
+        size => "400x300",
+        data => [ 1, 2, 3, 4, 5 ],
+    );
+
+    ok( $chart );
+    isa_ok( $chart, "Google::Chart" );
+
+    isa_ok( $chart->type, "Google::Chart::Type::Line" );
+
+    is( $chart->size->width, 200 );
+    is( $chart->size->height, 300 );
+
+    my $uri = $chart->as_uri;
+    diag $uri;
+    my %h = $uri->query_form;
+    is( $h{cht}, "lc" );
+    is( $h{chs}, "200x300" );
+
+    my $filename = 't/foo.png';
+
+    unlink $filename;
+
+    lives_ok { $chart->render_to_file( $filename ) } "render_to_file($filename) should work";
+
+    ok(-f $filename );
+}
+
Index: lang/perl/Google-Chart/branches/moose/t/50_main.t
===================================================================
--- lang/perl/Google-Chart/branches/moose/t/50_main.t (revision 16084)
+++  (revision )
@@ -1,39 +1,0 @@
-use strict;
-use Test::More (tests => 50);
-use Test::Exception;
-
-BEGIN
-{
-    use_ok("Google::Chart");
-}
-
-{ # Line
-    my $chart = Google::Chart->new(
-        type => "Line",
-        size => "400x300",
-        data => [ 1, 2, 3, 4, 5 ],
-    );
-
-    ok( $chart );
-    isa_ok( $chart, "Google::Chart" );
-
-    isa_ok( $chart->type, "Google::Chart::Type::Line" );
-
-    is( $chart->size->width, 200 );
-    is( $chart->size->height, 300 );
-
-    my $uri = $chart->as_uri;
-    diag $uri;
-    my %h = $uri->query_form;
-    is( $h{cht}, "lc" );
-    is( $h{chs}, "200x300" );
-
-    my $filename = 't/foo.png';
-
-    unlink $filename;
-
-    lives_ok { $chart->render_to_file( $filename ) } "render_to_file($filename) should work";
-
-    ok(-f $filename );
-}
-