IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Remove sample-report crash option and test-stress-options exception

Browse Source
This commit is contained in:
flywire 2023-02-07 07:40:49 +11:00
parent 0ece81aa9b
commit 8df11ec91a
2 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnucash/report/reports/example/sample-report.scm
View File

@ -162,16 +162,6 @@
(vector 'bad (N_ "The Bad")) (vector 'bad (N_ "The Bad"))
(vector 'ugly (N_ "The Ugly")))) (vector 'ugly (N_ "The Ugly"))))
;; This option is for testing. When true, the report generates
;; an exception.
(gnc-register-simple-boolean-option optiondb
(N_ "Testing") (N_ "Crash the report")
"a"
(N_ "This is for testing. \
Your reports probably shouldn't have an \
option like this.")
#f)
;; This is a Report Title option using constants defined at the ;; This is a Report Title option using constants defined at the
;; beginning of the file. ;; beginning of the file.
(gnc-register-string-option optiondb (gnc-register-string-option optiondb
@ -216,15 +206,11 @@ option like this.")
(accounts (op-value "Tab A" "An account list option")) (accounts (op-value "Tab A" "An account list option"))
(list-val (op-value "Tab A" "A list option")) (list-val (op-value "Tab A" "A list option"))
(radio-val (op-value "Tab A" "A Radio Button option")) (radio-val (op-value "Tab A" "A Radio Button option"))
(crash-val (op-value "Testing" "Crash the report"))
(report-title (op-value "Testing" optname-report-title)) (report-title (op-value "Testing" optname-report-title))
;; document will be the HTML document that we return. ;; document will be the HTML document that we return.
(document (gnc:make-html-document))) (document (gnc:make-html-document)))
;; Crash if asked to.
(if crash-val (string-length #f)) ;; string-length needs a string
;; these are samples of different date options. for a simple ;; these are samples of different date options. for a simple
;; date with day, month, and year but no time you should use ;; date with day, month, and year but no time you should use
;; qof-print-date ;; qof-print-date

3
gnucash/report/reports/standard/test/test-stress-options.scm
View File

@ -248,9 +248,6 @@
"Receipt" "Receipt"
"Australian Tax Invoice" "Australian Tax Invoice"
"Balance Sheet (eguile)" "Balance Sheet (eguile)"
;; skip Sample Report which is designed to crash...
"Sample Report"
)) ))
(format #t "\nSkipping ~a ~a...\n" report-name prefix) (format #t "\nSkipping ~a ~a...\n" report-name prefix)
(begin (begin