Update Time-HiRes Changes for 1.9760
[perl.git] / t / op / defined.t
1 #!perl
2 BEGIN {
3     chdir 't' if -d 't';
4     require './test.pl';
5 }
6
7 plan 5;
8
9 sub notdef { undef }
10
11 # [perl #97466]
12 # These should actually call the sub, instead of testing the sub itself
13 ok !defined do { &notdef }, 'defined do { &sub }';
14 ok !defined(scalar(42,&notdef)), 'defined(scalar(42,&sub))';
15 ok !defined do{();&notdef}, '!defined do{();&sub}';
16
17 # Likewise, these should evaluate @array in scalar context
18 no warnings "deprecated";
19 ok defined($false ? $scalar : @array), 'defined( ... ? ... : @array)';
20 ok defined(scalar @array), 'defined(scalar @array)';