t/008_do_not_serialize.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 6;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     use_ok('MooseX::Storage');
  11 }
  12
  13 {
  14     package Foo;
  15     use Moose;
  16     use MooseX::Storage;
  17
  18     with Storage;
  19
  20     has 'bar' => (
  21         metaclass => 'DoNotSerialize',
  22         is        => 'rw',
  23         default   => sub { 'BAR' }
  24     );
  25
  26     has 'baz' => (
  27         traits  => [ 'DoNotSerialize' ],
  28         is      => 'rw',
  29         default => sub { 'BAZ' }
  30     );
  31
  32     has 'gorch' => (
  33         is      => 'rw',
  34         default => sub { 'GORCH' }
  35     );
  36
  37     1;
  38 }
  39
  40 my $foo = Foo->new;
  41 isa_ok($foo, 'Foo');
  42
  43 is($foo->bar, 'BAR', '... got the value we expected');
  44 is($foo->baz, 'BAZ', '... got the value we expected');
  45 is($foo->gorch, 'GORCH', '... got the value we expected');
  46
  47 is_deeply(
  48     $foo->pack,
  49     {
  50         __CLASS__ => 'Foo',
  51         gorch     => 'GORCH'
  52     },
  53     '... got the right packed class data'
  54 );
  55
  56
  57
  58