3 # This script tests debugging information generated by a compiler.
5 # - Input source program. Usually this source file is decorated using
6 # special comments to communicate debugger commands.
7 # - Executable file. This file is generated by the compiler.
9 # This perl script extracts debugger commands from input source program
10 # comments in a script. A debugger is used to load the executable file
11 # and run the script generated from source program comments. Finally,
12 # the debugger output is checked, using FileCheck, to validate
13 # debugging information.
15 # On Darwin the default is to use the llgdb.py wrapper script which
16 # translates gdb commands into their lldb equivalents.
22 my $testcase_file = $ARGV[0];
23 my $executable_file = $ARGV[1];
25 my $input_filename = basename $testcase_file;
26 my $output_dir = dirname $executable_file;
28 my $debugger_script_file = "$output_dir/$input_filename.debugger.script";
29 my $output_file = "$output_dir/$input_filename.gdb.output";
32 # Assume lldb to be the debugger on Darwin.
34 $use_lldb = 1 if ($Config{osname} eq "darwin");
36 # Extract debugger commands from testcase. They are marked with DEBUGGER:
37 # at the beginning of a comment line.
38 open(INPUT, $testcase_file);
39 open(OUTPUT, ">$debugger_script_file");
42 $i = index($line, "DEBUGGER:");
44 $l = length("DEBUGGER:");
45 $s = substr($line, $i + $l);
50 print OUTPUT "quit\n";
54 # setup debugger and debugger options to run a script.
55 my $my_debugger = $ENV{'DEBUGGER'};
58 my $path = dirname(Cwd::abs_path($0));
59 $my_debugger = "/usr/bin/env python $path/../tools/clang/test/debuginfo-tests/llgdb.py";
65 # quiet / exit after cmdline / no init file / execute script
66 my $debugger_options = "-q -batch -n -x";
68 # run debugger and capture output.
69 system("$my_debugger $debugger_options $debugger_script_file $executable_file > $output_file 2>&1");
72 system("FileCheck", "-input-file", "$output_file", "$testcase_file");
74 print "Debugger output was:\n";
75 system("cat", "$output_file");