Lines Matching refs:guile
17 # It tests basic Guile features.
19 load_lib gdb-guile.exp
26 # We want to do some tests when Guile is not present.
27 gdb_test_multiple "guile (display 23) (newline)" "verify guile support" {
29 unsupported "guile not supported."
33 unsupported "guile support is disabled"
35 # If Guile is not supported, verify that sourcing a guile script
39 "source source2.scm when guile disabled"
41 # Verify multi-line guile commands cause an error.
42 gdb_test_multiline "multi-line guile command" \
43 "guile" "" \
55 gdb_test_multiline "multi-line guile command" \
56 "guile" "" \
60 gdb_test_multiline "show guile command" \
62 "guile" "" \
66 "show user zzq" "User command \"zzq\":.* guile.*\\(print 23\\).* end\r\n"
72 gdb_test "guile (print (current-objfile))" "= #f"
73 gdb_test "guile (print (objfiles))" "= \\(\\)"
76 {guile (define x (execute "printf \"%d\", 23" #:to-string #t))}
77 gdb_test "guile (print x)" "= 23"
79 gdb_test_no_output "guile (define a (execute \"help\" #:to-string #t))" \
82 gdb_test "guile (print a)" "= .*aliases -- User-defined aliases of other commands.*" \
85 # Verify that we can source a guile script using ~ for the HOME directory.
Indexes created Sat Apr 25 00:22:52 UTC 2026