summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-07 11:16:24 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-07 11:16:24 +0100
commit4b8d21c17c9e72fb6f61747099c0798d5e264496 (patch)
treefb2934bb090a276d3a47da83dcf800d897ec0615
parent31602aa04aefe58fa780eb066caefd20f87b275b (diff)
downloadguile-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.test12
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)))