Add failing test for Class::Accessor::Chained::Fast compatibility.

[gitmo/MooseX-Emulate-Class-Accessor-Fast.git] / t / no_replace_existing_symbols.t

diff --git a/t/no_replace_existing_symbols.t b/t/no_replace_existing_symbols.t
index e59da3a..a5867ec 100644 (file)
--- a/t/no_replace_existing_symbols.t
+++ b/t/no_replace_existing_symbols.t
@@ -1,12 +1,16 @@
+#!/usr/binperl -w
+
+use strict;
+use warnings;
+use Test::More tests => 6;
+
 {
   package SomeClass;
-  #use base qw/Class::Accessor::Fast/;
   use Moose;
   with 'MooseX::Emulate::Class::Accessor::Fast';
-  
+
   sub anaccessor { 'wibble' }
 
-  #sub new { bless {}, 'SomeClass' }
 }
 {
   package SubClass;
@@ -16,19 +20,17 @@
   __PACKAGE__->mk_accessors(qw/ anaccessor anotherone /);
 }
 
-use Test::More tests => 6;
-
 # 1, 2
 my $someclass = SomeClass->new;
-is $someclass->anaccessor, 'wibble';
+is($someclass->anaccessor, 'wibble');
 $someclass->anaccessor('fnord');
-is $someclass->anaccessor, 'wibble';
+is($someclass->anaccessor, 'wibble');
 
 # 3-6
 my $subclass = SubClass->new;
-is $subclass->anaccessor, 'wibble';
+ok( not defined $subclass->anaccessor );
 $subclass->anaccessor('fnord');
-is $subclass->anaccessor, 'wibble';
-is $subclass->anotherone, 'flibble';
+is($subclass->anaccessor, 'fnord');
+is($subclass->anotherone, 'flibble');
 $subclass->anotherone('fnord');
-is $subclass->anotherone, 'flibble';
+is($subclass->anotherone, 'flibble');