Simplify test code a bit

[gitmo/MooseX-Compiler.git] / t / remove-use-moose.t

diff --git a/t/remove-use-moose.t b/t/remove-use-moose.t
index 044fdf3..f095a97 100644 (file)
--- a/t/remove-use-moose.t
+++ b/t/remove-use-moose.t
@@ -14,22 +14,16 @@ use MooseX::Compiler;
 
 {
     my $code = <<'EOF';
-package Test::Class1;
-
-use strict;
-use warnings;
-
 use Moose;
 
 sub foo { 42 }
-
-1;
 EOF
 
-    save_class( 'Test::Class1', $code );
+    my $class = 'Test::Class1';
+    save_class( $class, $code );
 
     my $compiler = MooseX::Compiler->new(
-        class => 'Test::Class1',
+        class => $class,
     );
 
     my $compiled = $compiler->compile_class();
@@ -49,11 +43,6 @@ EOF
 
 {
     my $code = <<'EOF';
-package Test::Class2;
-
-use strict;
-use warnings;
-
 use Moose 0.1;
 
 sub foo { 42 }
@@ -61,10 +50,11 @@ sub foo { 42 }
 1;
 EOF
 
-    save_class( 'Test::Class1', $code );
+    my $class = 'Test::Class2';
+    save_class( $class, $code );
 
     my $compiler = MooseX::Compiler->new(
-        class => 'Test::Class1',
+        class => $class,
     );
 
     my $compiled = $compiler->compile_class();
@@ -84,23 +74,17 @@ EOF
 
 {
     my $code = <<'EOF';
-package Test::Class3;
-
-use strict;
-use warnings;
-
 use Moose;
 use MooseX::StrictConstructor;
 
 sub foo { 42 }
-
-1;
 EOF
 
-    save_class( 'Test::Class1', $code );
+    my $class = 'Test::Class3';
+    save_class( $class, $code );
 
     my $compiler = MooseX::Compiler->new(
-        class => 'Test::Class1',
+        class => $class,
     );
 
     my $compiled = $compiler->compile_class();
@@ -132,23 +116,17 @@ EOF
 
 {
     my $code = <<'EOF';
-package Test::Class4;
-
-use strict;
-use warnings;
-
 use Moose;
 use MooseX::StrictConstructor 0.01;
 
 sub foo { 42 }
-
-1;
 EOF
 
-    save_class( 'Test::Class1', $code );
+    my $class = 'Test::Class4';
+    save_class( $class, $code );
 
     my $compiler = MooseX::Compiler->new(
-        class => 'Test::Class1',
+        class => $class,
     );
 
     my $compiled = $compiler->compile_class();