1N/A# test glob() in File::DosGlob 1N/A chdir 't' if -d 't'; 1N/A# override it in main:: 1N/A# test if $_ takes as the default 1N/Aprint "# |@r|\nnot " if @r <
9;
1N/A# check if <*/*> works 1N/A# atleast {argv,abbrev,anydbm,autoloader,append,arith,array,assignwarn,auto}.t 1N/Aprint "# |@r|\nnot " if @r <
9;
1N/A# check if scalar context works 1N/Awhile (defined($_ = ($^O eq 'MacOS') ? <:*:a*.t> : <*/a*.t>)) { 1N/Aprint "not " if @r != $r;
1N/A# check if list context works 1N/Aprint "not " if @r != $r;
1N/A# test if implicit assign to $_ in while() works 1N/Aprint "not " if @r != $r;
1N/A# test if explicit glob() gets assign magic too 1N/Amy $pat =
($^O eq 'MacOS') ?
':*:a*.t':
'*/a*.t';
1N/Aprint "not " if "@r" ne "@s";
1N/A# how about in a different package, like? 1N/Aprint "not " if "@r" ne "@s";
1N/A# test if different glob ops maintain independent contexts 1N/Aprint "not " if "@r" ne "@s";
1N/A# how about a global override, hm? 1N/A while (glob ':*:b*.t') { 1N/A while (glob '*/b*.t') { 1N/Aprint "not " if "@r" ne "@s";