HomeSort by: relevance | last modified time | path
    Searched refs:guile (Results 1 - 25 of 158) sorted by relevancy

1 2 3 4 5 6 7

  /src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.guile/
scm-arch.exp 16 load_lib gdb-guile.exp
30 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" "get frame"
31 gdb_scm_test_silent_cmd "guile (define arch (frame-arch frame))" "get arch"
32 gdb_scm_test_silent_cmd "guile (define pc (frame-pc frame))" "get pc"
scm-frame-inline.exp 16 load_lib gdb-guile.exp
40 gdb_test "guile (print (frame-read-var (selected-frame) \"l\"))" \
scm-equal.exp 19 load_lib gdb-guile.exp
33 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" "get frame"
34 gdb_scm_test_silent_cmd "guile (define arch (frame-arch frame))" "get arch"
36 gdb_test "guile (print (equal? (selected-frame) (newest-frame)))" \
38 gdb_test "guile (print (equal? (selected-frame) (frame-older (newest-frame))))" \
41 gdb_test "guile (print (equal? (make-value 1) (make-value 1)))" \
43 gdb_test "guile (print (equal? (make-value 1) (make-value 2)))" \
46 gdb_test "guile (print (equal? (value-type (make-value 1)) (value-type (make-value 2))))" \
48 gdb_test "guile (print (equal? (value-type (make-value 1)) (value-type (make-value 2.5))))" \
51 gdb_test "guile (print (equal? (lookup-global-symbol \"main\") (lookup-global-symbol \"main\")))"
    [all...]
scm-iterator.exp 19 load_lib gdb-guile.exp
36 gdb_scm_test_silent_cmd "guile (use-modules (gdb iterator))" \
39 gdb_scm_test_silent_cmd "guile (define this-sal (find-pc-line (frame-pc (selected-frame))))" \
42 gdb_scm_test_silent_cmd "guile (define this-symtab (sal-symtab this-sal))" \
45 gdb_scm_test_silent_cmd "guile (define this-global-block (symtab-global-block this-symtab))" \
48 gdb_scm_test_silent_cmd "guile (define syms-iter (make-block-symbols-iterator this-global-block))" \
51 gdb_scm_test_silent_cmd "guile (define functions (iterator-filter symbol-function? syms-iter))" \
54 gdb_test "guile (print (sort (map symbol-name functions) string<?))" \
57 gdb_scm_test_silent_cmd "guile (define syms-iter (make-block-symbols-iterator this-global-block))" \
60 gdb_test "guile (print (sort (map symbol-name (iterator->list syms-iter)) string<?))"
    [all...]
scm-objfile.exp 17 # It tests the objfile support in Guile.
19 load_lib gdb-guile.exp
52 gdb_test "guile (set-objfile-pretty-printers! objfile 0)" \
scm-value-cc.exp 17 # It tests the mechanism exposing c++ values to Guile.
19 load_lib gdb-guile.exp
types-module.exp 19 load_lib gdb-guile.exp
33 gdb_scm_test_silent_cmd "guile (use-modules (gdb types))" \
36 gdb_scm_test_silent_cmd "guile (define d (lookup-type \"derived\"))" \
39 gdb_test "guile (print (type-has-field? d \"base_member\"))" \
42 gdb_test "guile (print (type-has-field-deep? d \"base_member\"))" \
45 gdb_test "guile (print (type-has-field-deep? (lookup-type \"int\") \"base_member\"))" \
49 gdb_scm_test_silent_cmd "guile (define enum-htab (make-enum-hashtable (lookup-type \"enum_type\")))" \
52 gdb_test "guile (print (hash-ref enum-htab \"B\"))" \
55 gdb_test "guile (define bad-enum-htab (make-enum-hashtable #f))" \
59 gdb_test "guile (define bad-enum-htab (make-enum-hashtable (lookup-type \"int\")))"
    [all...]
guile.exp 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
    [all...]
scm-frame-args.exp 16 load_lib gdb-guile.exp
scm-objfile-script.exp 19 load_lib gdb-guile.exp
42 gdb_test "info auto-load guile-scripts" "Yes.*/${testfile}-gdb.scm.*"
scm-block.exp 17 # It tests the mechanism exposing blocks to Guile.
19 load_lib gdb-guile.exp
37 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" \
39 gdb_scm_test_silent_cmd "guile (define block (frame-block frame))" \
41 gdb_test "guile (print block)" "#<gdb:block $hex-$hex>" \
43 gdb_test "guile (print (block-function block))" \
45 gdb_test "guile (print (block-start block))" \
47 gdb_test "guile (print (block-end block))" \
51 gdb_test "guile (print (eq? (frame-block frame) (frame-block frame)))" \
53 gdb_test "guile (print (eq? block (block-global-block block)))"
    [all...]
scm-cmd.exp 19 load_lib gdb-guile.exp
36 "guile" "" \
45 gdb_test "guile (print (command? test-cmd))" "= #t"
46 gdb_test "guile (print (command? 42))" "= #f"
53 "guile" "" \
65 "guile" "" \
77 "guile" "" \
89 "guile" "" \
100 gdb_test "guile (raw-print (string->argv \"1 2 3\"))" \
104 gdb_test "guile (raw-print (string->argv \"'1 2' 3\"))"
    [all...]
scm-disasm.exp 16 load_lib gdb-guile.exp
34 gdb_scm_test_silent_cmd "guile (define insn-list (arch-disassemble arch $address $extra_args #:size 1 #:count 1))" \
37 gdb_test "guile (print (length insn-list))" \
39 gdb_scm_test_silent_cmd "guile (define insn (car insn-list))" \
43 gdb_test "guile (print (->bool (assq-ref insn 'address)))" \
45 gdb_test "guile (print (->bool (assq-ref insn 'asm)))" \
47 gdb_test "guile (print (->bool (assq-ref insn 'length)))" \
51 gdb_test "guile (print (= $address (assq-ref insn 'address)))" \
56 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" "get frame"
57 gdb_scm_test_silent_cmd "guile (define arch (frame-arch frame))" "get arch
    [all...]
scm-lazy-string.exp 17 # It tests the mechanism exposing lazy strings to Guile.
19 load_lib gdb-guile.exp
  /src/external/gpl3/gdb/dist/gdb/testsuite/gdb.guile/
scm-arch.exp 16 load_lib gdb-guile.exp
30 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" "get frame"
31 gdb_scm_test_silent_cmd "guile (define arch (frame-arch frame))" "get arch"
32 gdb_scm_test_silent_cmd "guile (define pc (frame-pc frame))" "get pc"
scm-frame-inline.exp 16 load_lib gdb-guile.exp
40 gdb_test "guile (print (frame-read-var (selected-frame) \"l\"))" \
scm-equal.exp 19 load_lib gdb-guile.exp
33 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" "get frame"
34 gdb_scm_test_silent_cmd "guile (define arch (frame-arch frame))" "get arch"
36 gdb_test "guile (print (equal? (selected-frame) (newest-frame)))" \
38 gdb_test "guile (print (equal? (selected-frame) (frame-older (newest-frame))))" \
41 gdb_test "guile (print (equal? (make-value 1) (make-value 1)))" \
43 gdb_test "guile (print (equal? (make-value 1) (make-value 2)))" \
46 gdb_test "guile (print (equal? (value-type (make-value 1)) (value-type (make-value 2))))" \
48 gdb_test "guile (print (equal? (value-type (make-value 1)) (value-type (make-value 2.5))))" \
51 gdb_test "guile (print (equal? (lookup-global-symbol \"main\") (lookup-global-symbol \"main\")))"
    [all...]
scm-iterator.exp 19 load_lib gdb-guile.exp
36 gdb_scm_test_silent_cmd "guile (use-modules (gdb iterator))" \
39 gdb_scm_test_silent_cmd "guile (define this-sal (find-pc-line (frame-pc (selected-frame))))" \
42 gdb_scm_test_silent_cmd "guile (define this-symtab (sal-symtab this-sal))" \
45 gdb_scm_test_silent_cmd "guile (define this-global-block (symtab-global-block this-symtab))" \
48 gdb_scm_test_silent_cmd "guile (define syms-iter (make-block-symbols-iterator this-global-block))" \
51 gdb_scm_test_silent_cmd "guile (define functions (iterator-filter symbol-function? syms-iter))" \
54 gdb_test "guile (print (sort (map symbol-name functions) string<?))" \
57 gdb_scm_test_silent_cmd "guile (define syms-iter (make-block-symbols-iterator this-global-block))" \
60 gdb_test "guile (print (sort (map symbol-name (iterator->list syms-iter)) string<?))"
    [all...]
scm-objfile.exp 17 # It tests the objfile support in Guile.
19 load_lib gdb-guile.exp
52 gdb_test "guile (set-objfile-pretty-printers! objfile 0)" \
scm-value-cc.exp 17 # It tests the mechanism exposing c++ values to Guile.
19 load_lib gdb-guile.exp
guile.exp 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
    [all...]
scm-frame-args.exp 16 load_lib gdb-guile.exp
scm-objfile-script.exp 19 load_lib gdb-guile.exp
42 gdb_test "info auto-load guile-scripts" "Yes.*/${testfile}-gdb.scm.*"
types-module.exp 19 load_lib gdb-guile.exp
37 gdb_scm_test_silent_cmd "guile (use-modules (gdb types))" \
40 gdb_scm_test_silent_cmd "guile (define d (lookup-type \"derived\"))" \
43 gdb_test "guile (print (type-has-field? d \"base_member\"))" \
46 gdb_test "guile (print (type-has-field-deep? d \"base_member\"))" \
49 gdb_test "guile (print (type-has-field-deep? (lookup-type \"int\") \"base_member\"))" \
53 gdb_scm_test_silent_cmd "guile (define enum-htab (make-enum-hashtable (lookup-type \"enum_type\")))" \
56 gdb_test "guile (print (hash-ref enum-htab \"B\"))" \
59 gdb_test "guile (define bad-enum-htab (make-enum-hashtable #f))" \
63 gdb_test "guile (define bad-enum-htab (make-enum-hashtable (lookup-type \"int\")))"
    [all...]
  /src/external/gpl2/gettext/dist/gettext-tools/tests/
lang-guile 3 # Test of gettext facilities in the guile implementation of Scheme.
5 # Assumes the following packages are installed: guile.
87 # Test for presence of guile version 1.7 or newer.
88 (guile --version) >/dev/null 2>/dev/null \
89 || { echo "Skipping test: guile not found"; rm -fr $tmpfiles; exit 77; }
90 case `guile --version | sed -e 1q | sed -e 's/^[^0-9]*//'` in
92 echo "Skipping test: guile version too old"; rm -fr $tmpfiles; exit 77;;
139 LANGUAGE= LC_ALL=$LOCALE_FR guile -s prog.scm 2 > prog.out || exit 1
143 LANGUAGE= LC_ALL=$LOCALE_FR_UTF8 guile -s prog.scm 2 > prog.out || exit 1

Completed in 58 milliseconds

1 2 3 4 5 6 7