11 Class::MOP::Class->initialize();
12 }, undef, '... initialize requires a name parameter' );
15 Class::MOP::Class->initialize('');
16 }, undef, '... initialize requires a name valid parameter' );
19 Class::MOP::Class->initialize(bless {} => 'Foo');
20 }, undef, '... initialize requires an unblessed parameter' );
25 Class::MOP::Class->_construct_class_instance();
26 }, undef, '... _construct_class_instance requires an :package parameter' );
29 Class::MOP::Class->_construct_class_instance(':package' => undef);
30 }, undef, '... _construct_class_instance requires a defined :package parameter' );
33 Class::MOP::Class->_construct_class_instance(':package' => '');
34 }, undef, '... _construct_class_instance requires a valid :package parameter' );
40 Class::MOP::Class->create();
41 }, undef, '... create requires an package_name parameter' );
44 Class::MOP::Class->create(undef);
45 }, undef, '... create requires a defined package_name parameter' );
48 Class::MOP::Class->create('');
49 }, undef, '... create requires a valid package_name parameter' );
52 Class::MOP::Class->create('+++');
53 }, qr/^\+\+\+ is not a module name/, '... create requires a valid package_name parameter' );
58 Class::MOP::Class->clone_object(1);
59 }, undef, '... can only clone instances' );
64 Class::MOP::Class->add_method();
65 }, undef, '... add_method dies as expected' );
68 Class::MOP::Class->add_method('');
69 }, undef, '... add_method dies as expected' );
72 Class::MOP::Class->add_method('foo' => 'foo');
73 }, undef, '... add_method dies as expected' );
76 Class::MOP::Class->add_method('foo' => []);
77 }, undef, '... add_method dies as expected' );
82 Class::MOP::Class->has_method();
83 }, undef, '... has_method dies as expected' );
86 Class::MOP::Class->has_method('');
87 }, undef, '... has_method dies as expected' );
92 Class::MOP::Class->get_method();
93 }, undef, '... get_method dies as expected' );
96 Class::MOP::Class->get_method('');
97 }, undef, '... get_method dies as expected' );
102 Class::MOP::Class->remove_method();
103 }, undef, '... remove_method dies as expected' );
106 Class::MOP::Class->remove_method('');
107 }, undef, '... remove_method dies as expected' );
112 Class::MOP::Class->find_all_methods_by_name();
113 }, undef, '... find_all_methods_by_name dies as expected' );
116 Class::MOP::Class->find_all_methods_by_name('');
117 }, undef, '... find_all_methods_by_name dies as expected' );
122 Class::MOP::Class->add_attribute(bless {} => 'Foo');
123 }, undef, '... add_attribute dies as expected' );
129 Class::MOP::Class->has_attribute();
130 }, undef, '... has_attribute dies as expected' );
133 Class::MOP::Class->has_attribute('');
134 }, undef, '... has_attribute dies as expected' );
139 Class::MOP::Class->get_attribute();
140 }, undef, '... get_attribute dies as expected' );
143 Class::MOP::Class->get_attribute('');
144 }, undef, '... get_attribute dies as expected' );
149 Class::MOP::Class->remove_attribute();
150 }, undef, '... remove_attribute dies as expected' );
153 Class::MOP::Class->remove_attribute('');
154 }, undef, '... remove_attribute dies as expected' );
159 Class::MOP::Class->add_package_symbol();
160 }, undef, '... add_package_symbol dies as expected' );
163 Class::MOP::Class->add_package_symbol('');
164 }, undef, '... add_package_symbol dies as expected' );
167 Class::MOP::Class->add_package_symbol('foo');
168 }, undef, '... add_package_symbol dies as expected' );
171 Class::MOP::Class->add_package_symbol('&foo');
172 }, undef, '... add_package_symbol dies as expected' );
175 # Class::MOP::Class->meta->add_package_symbol('@-');
176 # } qr/^Could not create package variable \(\@\-\) because/,
177 # '... add_package_symbol dies as expected';
182 Class::MOP::Class->has_package_symbol();
183 }, undef, '... has_package_symbol dies as expected' );
186 Class::MOP::Class->has_package_symbol('');
187 }, undef, '... has_package_symbol dies as expected' );
190 Class::MOP::Class->has_package_symbol('foo');
191 }, undef, '... has_package_symbol dies as expected' );
196 Class::MOP::Class->get_package_symbol();
197 }, undef, '... get_package_symbol dies as expected' );
200 Class::MOP::Class->get_package_symbol('');
201 }, undef, '... get_package_symbol dies as expected' );
204 Class::MOP::Class->get_package_symbol('foo');
205 }, undef, '... get_package_symbol dies as expected' );
210 Class::MOP::Class->remove_package_symbol();
211 }, undef, '... remove_package_symbol dies as expected' );
214 Class::MOP::Class->remove_package_symbol('');
215 }, undef, '... remove_package_symbol dies as expected' );
218 Class::MOP::Class->remove_package_symbol('foo');
219 }, undef, '... remove_package_symbol dies as expected' );