distrib/lib/constant.t

166 # Check on declared() and %declared. This sub should be EXACTLY the
168 sub declared ($) {
174     $constant::declared{$full_name};
177 test 49, declared 'PI';
178 test 50, $constant::declared{'main::PI'};
180 test 51, !declared 'PIE';
181 test 52, !$constant::declared{'main::PIE'};
186     ::test 53, ::declared 'IN_OTHER_PACK';
187     ::test 54, $constant::declared{'Other::IN_OTHER_PACK'};
188     ::test 55, ::declared 'main::PI';
189     ::test 56, $constant::declared{'main::PI'};
192 test 57, declared 'Other::IN_OTHER_PACK';
193 test 58, $constant::declared{'Other::IN_OTHER_PACK'};