dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Augment -Wformat' analysis with support for ~:h'.

Browse source 
* module/language/tree-il/analyze.scm (format-string-argument-count):
  Add support for ~h.

* test-suite/tests/tree-il.test ("warnings")["format"]("~h", "~:h with
  locale object", "~:h without locale object"): New tests.
This commit is contained in:
Ludovic Courtès 2012-02-03 16:52:15 +01:00
commit b4af80a423
2 changed files with 33 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

26
test-suite/tests/tree-il.test
View file

@ -2243,6 +2243,32 @@
(number? (string-contains (car w)
"expected 1, got 2")))))
(pass-if "~h"
(null? (call-with-warnings
(lambda ()
(compile '((@ (ice-9 format) format) #t
"foo ~h ~a~%" 123.4 'bar)
#:opts %opts-w-format
#:to 'assembly)))))
(pass-if "~:h with locale object"
(null? (call-with-warnings
(lambda ()
(compile '((@ (ice-9 format) format) #t
"foo ~:h~%" 123.4 %global-locale)
#:opts %opts-w-format
#:to 'assembly)))))
(pass-if "~:h without locale object"
(let ((w (call-with-warnings
(lambda ()
(compile '((@ (ice-9 format) format) #t "foo ~,2:h" 123.4)
#:opts %opts-w-format
#:to 'assembly)))))
(and (= (length w) 1)
(number? (string-contains (car w)
"expected 2, got 1")))))
(with-test-prefix "conditionals"
(pass-if "literals"
(null? (call-with-warnings