X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fremove-use-moose.t;h=f095a97d7cf50ff6ccabc038f5b507b378b8a980;hb=6029ad7beb4b3c7882674a9066ba56b2e2208d75;hp=044fdf318e8a157d4b2526dba6b564a0e3c5a55b;hpb=a44ebace8aab59d8e99f88fee467faba645c07e8;p=gitmo%2FMooseX-Compiler.git diff --git a/t/remove-use-moose.t b/t/remove-use-moose.t index 044fdf3..f095a97 100644 --- 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();