6 use Test::More tests => 49;
15 Class::MOP::Class->initialize();
16 } '... initialize requires a name parameter';
19 Class::MOP::Class->initialize('');
20 } '... initialize requires a name valid parameter';
23 Class::MOP::Class->initialize(bless {} => 'Foo');
24 } '... initialize requires an unblessed parameter'
29 Class::MOP::Class->construct_class_instance();
30 } '... construct_class_instance requires an :package parameter';
33 Class::MOP::Class->construct_class_instance(':package' => undef);
34 } '... construct_class_instance requires a defined :package parameter';
37 Class::MOP::Class->construct_class_instance(':package' => '');
38 } '... construct_class_instance requires a valid :package parameter';
44 Class::MOP::Class->create();
45 } '... create requires an package_name parameter';
48 Class::MOP::Class->create(undef);
49 } '... create requires a defined package_name parameter';
52 Class::MOP::Class->create('');
53 } '... create requires a valid package_name parameter';
56 Class::MOP::Class->create('+++');
57 } qr/^creation of \+\+\+ failed/, '... create requires a valid package_name parameter';
63 Class::MOP::Class->clone_object(1);
64 } '... can only clone instances';
67 Class::MOP::Class->clone_instance(1);
68 } '... can only clone instances';
73 Class::MOP::Class->add_method();
74 } '... add_method dies as expected';
77 Class::MOP::Class->add_method('');
78 } '... add_method dies as expected';
81 Class::MOP::Class->add_method('foo' => 'foo');
82 } '... add_method dies as expected';
85 Class::MOP::Class->add_method('foo' => []);
86 } '... add_method dies as expected';
91 Class::MOP::Class->alias_method();
92 } '... alias_method dies as expected';
95 Class::MOP::Class->alias_method('');
96 } '... alias_method dies as expected';
99 Class::MOP::Class->alias_method('foo' => 'foo');
100 } '... alias_method dies as expected';
103 Class::MOP::Class->alias_method('foo' => []);
104 } '... alias_method dies as expected';
109 Class::MOP::Class->has_method();
110 } '... has_method dies as expected';
113 Class::MOP::Class->has_method('');
114 } '... has_method dies as expected';
119 Class::MOP::Class->get_method();
120 } '... get_method dies as expected';
123 Class::MOP::Class->get_method('');
124 } '... get_method dies as expected';
129 Class::MOP::Class->remove_method();
130 } '... remove_method dies as expected';
133 Class::MOP::Class->remove_method('');
134 } '... remove_method dies as expected';
139 Class::MOP::Class->find_all_methods_by_name();
140 } '... find_all_methods_by_name dies as expected';
143 Class::MOP::Class->find_all_methods_by_name('');
144 } '... find_all_methods_by_name dies as expected';
149 Class::MOP::Class->add_attribute(bless {} => 'Foo');
150 } '... add_attribute dies as expected';
156 Class::MOP::Class->has_attribute();
157 } '... has_attribute dies as expected';
160 Class::MOP::Class->has_attribute('');
161 } '... has_attribute dies as expected';
166 Class::MOP::Class->get_attribute();
167 } '... get_attribute dies as expected';
170 Class::MOP::Class->get_attribute('');
171 } '... get_attribute dies as expected';
176 Class::MOP::Class->remove_attribute();
177 } '... remove_attribute dies as expected';
180 Class::MOP::Class->remove_attribute('');
181 } '... remove_attribute dies as expected';
186 Class::MOP::Class->add_package_symbol();
187 } '... add_package_symbol dies as expected';
190 Class::MOP::Class->add_package_symbol('');
191 } '... add_package_symbol dies as expected';
194 Class::MOP::Class->add_package_symbol('foo');
195 } '... add_package_symbol dies as expected';
198 Class::MOP::Class->add_package_symbol('&foo');
199 } '... add_package_symbol dies as expected';
202 # Class::MOP::Class->meta->add_package_symbol('@-');
203 # } qr/^Could not create package variable \(\@\-\) because/,
204 # '... add_package_symbol dies as expected';
209 Class::MOP::Class->has_package_symbol();
210 } '... has_package_symbol dies as expected';
213 Class::MOP::Class->has_package_symbol('');
214 } '... has_package_symbol dies as expected';
217 Class::MOP::Class->has_package_symbol('foo');
218 } '... has_package_symbol dies as expected';
223 Class::MOP::Class->get_package_symbol();
224 } '... get_package_symbol dies as expected';
227 Class::MOP::Class->get_package_symbol('');
228 } '... get_package_symbol dies as expected';
231 Class::MOP::Class->get_package_symbol('foo');
232 } '... get_package_symbol dies as expected';
237 Class::MOP::Class->remove_package_symbol();
238 } '... remove_package_symbol dies as expected';
241 Class::MOP::Class->remove_package_symbol('');
242 } '... remove_package_symbol dies as expected';
245 Class::MOP::Class->remove_package_symbol('foo');
246 } '... remove_package_symbol dies as expected';