1N/A chdir 't' if -d 't'; 1N/Aprint "# Tests with caller(0)\n";
1N/Aok( (!@c), "caller(0) in main program" );
1N/Ais( $c[3], "(eval)", "subroutine name in an eval {}" ); 1N/Aok( !$c[4], "hasargs false in an eval {}" ); 1N/Ais( $c[3], "(eval)", "subroutine name in an eval ''" ); 1N/Aok( !$c[4], "hasargs false in an eval ''" ); 1N/Ais( $c[3], "main::__ANON__", "anonymous subroutine name" ); 1N/Aok( $c[4], "hasargs true with anon sub" ); 1N/A# Bug 20020517.003, used to dump core 1N/Ais( $c[3], "(unknown)", "unknown subroutine name" ); 1N/Aok( $c[4], "hasargs true with unknown sub" ); 1N/Aprint "# Tests with caller(1)\n"; 1N/Ais( $c[3], "main::callf", "subroutine name" ); 1N/Aok( $c[4], "hasargs true with callf()" ); 1N/Aok( !$c[4], "hasargs false with &callf" ); 1N/Ais( $c[3], "(eval)", "subroutine name in an eval {}" ); 1N/Aok( !$c[4], "hasargs false in an eval {}" ); 1N/Ais( $c[3], "(eval)", "subroutine name in an eval ''" ); 1N/Aok( !$c[4], "hasargs false in an eval ''" ); 1N/Ais( $c[3], "main::__ANON__", "anonymous subroutine name" ); 1N/Aok( $c[4], "hasargs true with anon sub" ); 1N/Ais( $c[3], "(unknown)", "unknown subroutine name" ); 1N/Aok( $c[4], "hasargs true with unknown sub" );