###########################################
# Accessor tests for class User
# Mike Schilli, 2013 (m@perlmeister.com)
###########################################
package TestsFor::User;
use Test::Class::Moose;

sub test_accessors {

  my $email1 = 'a@b.com';
  my $email2 = 'c@d.com';

  my $user = User->new( 
    email => $email1,
  );
  is $user->email(), $email1;

    # Setter
  $user->email( $email2 );
  is $user->email(), $email2;
}

1;