diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-07 11:16:24 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-07 11:16:24 +0100 |
commit | 4b8d21c17c9e72fb6f61747099c0798d5e264496 (patch) | |
tree | fb2934bb090a276d3a47da83dcf800d897ec0615 | |
parent | 31602aa04aefe58fa780eb066caefd20f87b275b (diff) | |
download | guile-4b8d21c17c9e72fb6f61747099c0798d5e264496.tar.gz |
Fix DWARF source test now that we have more precise source info.
* test-suite/tests/dwarf.test: Fix test after the $continue/$cont source
change, which reifies proper source info for the +.
-rw-r--r-- | test-suite/tests/dwarf.test | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/test-suite/tests/dwarf.test b/test-suite/tests/dwarf.test index b999ab13e..2d2a45e8e 100644 --- a/test-suite/tests/dwarf.test +++ b/test-suite/tests/dwarf.test @@ -62,19 +62,21 @@ (pass-if-equal 2 (source-column source))) (match (find-program-sources (rtl-program-code qux)) - ((s1 s2) + ((s1 s2 s3) (pass-if-equal "foo.scm" (source-file s1)) (pass-if-equal 0 (source-line s1)) (pass-if-equal 1 (source-line-for-user s1)) (pass-if-equal 0 (source-column s1)) - ;; FIXME: For some reason the source location for the + isn't - ;; getting propagated. - (pass-if-equal "foo.scm" (source-file s2)) (pass-if-equal 1 (source-line s2)) (pass-if-equal 2 (source-line-for-user s2)) - (pass-if-equal 8 (source-column s2))) + (pass-if-equal 8 (source-column s2)) + + (pass-if-equal "foo.scm" (source-file s3)) + (pass-if-equal 1 (source-line s3)) + (pass-if-equal 2 (source-line-for-user s3)) + (pass-if-equal 2 (source-column s3))) (sources (error "unexpected sources" sources))) |