Include method name in immutable methods (fixes #49680)

[gitmo/Class-MOP.git] / t / 013_add_attribute_alternate.t

diff --git a/t/013_add_attribute_alternate.t b/t/013_add_attribute_alternate.t
index 03d6d16..f133d3e 100644 (file)
--- a/t/013_add_attribute_alternate.t
+++ b/t/013_add_attribute_alternate.t
@@ -1,14 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 28;
+use Test::More tests => 27;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Class::MOP');        
-}
+use Class::MOP;
 
 {
     package Point;
@@ -26,7 +22,7 @@ BEGIN {
 
     sub new {
         my $class = shift;
-        bless $class->meta->construct_instance(@_) => $class;
+        bless $class->meta->new_object(@_) => $class;
     }
 
     sub clear {