[catagits/Catalyst-Runtime.git] / t / unit_core_classdata.t

#!/usr/bin/perl

use strict;
use warnings;
use Scalar::Util qw/refaddr blessed/;
use Test::More tests => 32;

{
  package ClassDataTest;
  use Moose;
  with 'Catalyst::ClassData';

  package ClassDataTest2;
  use Moose;
  extends 'ClassDataTest';

}

  my $scalar = '100';
  my $arrayref = [];
  my $hashref = {};
  my $scalarref = \$scalar;
  my $coderef = sub { "beep" };

  my $scalar2 = '200';
  my $arrayref2 = [];
  my $hashref2 = {};
  my $scalarref2 = \$scalar2;
  my $coderef2 = sub { "beep" };


my @accessors = qw/_arrayref _hashref _scalarref _coderef _scalar/;
ClassDataTest->mk_classdata($_) for @accessors;
can_ok('ClassDataTest', @accessors);

ClassDataTest2->mk_classdata("beep", "meep");
is(ClassDataTest2->beep, "meep");

ClassDataTest->_arrayref($arrayref);
ClassDataTest->_hashref($hashref);
ClassDataTest->_scalarref($scalarref);
ClassDataTest->_coderef($coderef);
ClassDataTest->_scalar($scalar);

is(ref(ClassDataTest->_arrayref), 'ARRAY');
is(ref(ClassDataTest->_hashref), 'HASH');
is(ref(ClassDataTest->_scalarref), 'SCALAR');
is(ref(ClassDataTest->_coderef), 'CODE');
ok( !ref(ClassDataTest->_scalar) );
is(refaddr(ClassDataTest->_arrayref), refaddr($arrayref));
is(refaddr(ClassDataTest->_hashref), refaddr($hashref));
is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref));
is(refaddr(ClassDataTest->_coderef), refaddr($coderef));
is(ClassDataTest->_scalar, $scalar);


is(ref(ClassDataTest2->_arrayref), 'ARRAY');
is(ref(ClassDataTest2->_hashref), 'HASH');
is(ref(ClassDataTest2->_scalarref), 'SCALAR');
is(ref(ClassDataTest2->_coderef), 'CODE');
ok( !ref(ClassDataTest2->_scalar) );
is(refaddr(ClassDataTest2->_arrayref), refaddr($arrayref));
is(refaddr(ClassDataTest2->_hashref), refaddr($hashref));
is(refaddr(ClassDataTest2->_scalarref), refaddr($scalarref));
is(refaddr(ClassDataTest2->_coderef), refaddr($coderef));
is(ClassDataTest2->_scalar, $scalar);

ClassDataTest2->_arrayref($arrayref2);
ClassDataTest2->_hashref($hashref2);
ClassDataTest2->_scalarref($scalarref2);
ClassDataTest2->_coderef($coderef2);
ClassDataTest2->_scalar($scalar2);

is(refaddr(ClassDataTest2->_arrayref), refaddr($arrayref2));
is(refaddr(ClassDataTest2->_hashref), refaddr($hashref2));
is(refaddr(ClassDataTest2->_scalarref), refaddr($scalarref2));
is(refaddr(ClassDataTest2->_coderef), refaddr($coderef2));
is(ClassDataTest2->_scalar, $scalar2);

is(refaddr(ClassDataTest->_arrayref), refaddr($arrayref));
is(refaddr(ClassDataTest->_hashref), refaddr($hashref));
is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref));
is(refaddr(ClassDataTest->_coderef), refaddr($coderef));
is(ClassDataTest->_scalar, $scalar);
Commit	Line	Data
76aab993	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5	use Scalar::Util qw/refaddr blessed/;
	6	use Test::More tests => 32;
	7
	8	{
	9	package ClassDataTest;
	10	use Moose;
	11	with 'Catalyst::ClassData';
	12
	13	package ClassDataTest2;
	14	use Moose;
	15	extends 'ClassDataTest';
	16
	17	}
	18
	19	my $scalar = '100';
	20	my $arrayref = [];
	21	my $hashref = {};
	22	my $scalarref = \$scalar;
	23	my $coderef = sub { "beep" };
	24
	25	my $scalar2 = '200';
	26	my $arrayref2 = [];
	27	my $hashref2 = {};
	28	my $scalarref2 = \$scalar2;
	29	my $coderef2 = sub { "beep" };
	30
	31
	32	my @accessors = qw/_arrayref _hashref _scalarref _coderef _scalar/;
	33	ClassDataTest->mk_classdata($_) for @accessors;
	34	can_ok('ClassDataTest', @accessors);
	35
	36	ClassDataTest2->mk_classdata("beep", "meep");
	37	is(ClassDataTest2->beep, "meep");
	38
	39	ClassDataTest->_arrayref($arrayref);
	40	ClassDataTest->_hashref($hashref);
	41	ClassDataTest->_scalarref($scalarref);
	42	ClassDataTest->_coderef($coderef);
	43	ClassDataTest->_scalar($scalar);
	44
	45	is(ref(ClassDataTest->_arrayref), 'ARRAY');
	46	is(ref(ClassDataTest->_hashref), 'HASH');
	47	is(ref(ClassDataTest->_scalarref), 'SCALAR');
	48	is(ref(ClassDataTest->_coderef), 'CODE');
	49	ok( !ref(ClassDataTest->_scalar) );
	50	is(refaddr(ClassDataTest->_arrayref), refaddr($arrayref));
	51	is(refaddr(ClassDataTest->_hashref), refaddr($hashref));
	52	is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref));
	53	is(refaddr(ClassDataTest->_coderef), refaddr($coderef));
	54	is(ClassDataTest->_scalar, $scalar);
	55
	56
	57	is(ref(ClassDataTest2->_arrayref), 'ARRAY');
	58	is(ref(ClassDataTest2->_hashref), 'HASH');
	59	is(ref(ClassDataTest2->_scalarref), 'SCALAR');
	60	is(ref(ClassDataTest2->_coderef), 'CODE');
	61	ok( !ref(ClassDataTest2->_scalar) );
	62	is(refaddr(ClassDataTest2->_arrayref), refaddr($arrayref));
	63	is(refaddr(ClassDataTest2->_hashref), refaddr($hashref));
	64	is(refaddr(ClassDataTest2->_scalarref), refaddr($scalarref));
65	is(refaddr(ClassDataTest2->_coderef), refaddr($coderef));
66	is(ClassDataTest2->_scalar, $scalar);
67
68	ClassDataTest2->_arrayref($arrayref2);
69	ClassDataTest2->_hashref($hashref2);
70	ClassDataTest2->_scalarref($scalarref2);
71	ClassDataTest2->_coderef($coderef2);
72	ClassDataTest2->_scalar($scalar2);
73
74	is(refaddr(ClassDataTest2->_arrayref), refaddr($arrayref2));
75	is(refaddr(ClassDataTest2->_hashref), refaddr($hashref2));
76	is(refaddr(ClassDataTest2->_scalarref), refaddr($scalarref2));
77	is(refaddr(ClassDataTest2->_coderef), refaddr($coderef2));
78	is(ClassDataTest2->_scalar, $scalar2);
79
80	is(refaddr(ClassDataTest->_arrayref), refaddr($arrayref));
81	is(refaddr(ClassDataTest->_hashref), refaddr($hashref));
82	is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref));
83	is(refaddr(ClassDataTest->_coderef), refaddr($coderef));
84	is(ClassDataTest->_scalar, $scalar);