From 8df11ec91a8a01627021f3413af4c83fcdbae4ad Mon Sep 17 00:00:00 2001 From: flywire Date: Tue, 7 Feb 2023 07:40:49 +1100 Subject: [PATCH] Remove sample-report crash option and test-stress-options exception --- gnucash/report/reports/example/sample-report.scm | 14 -------------- .../reports/standard/test/test-stress-options.scm | 3 --- 2 files changed, 17 deletions(-) diff --git a/gnucash/report/reports/example/sample-report.scm b/gnucash/report/reports/example/sample-report.scm index 4d7a9c48b3..3850846aff 100644 --- a/gnucash/report/reports/example/sample-report.scm +++ b/gnucash/report/reports/example/sample-report.scm @@ -162,16 +162,6 @@ (vector 'bad (N_ "The Bad")) (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 ;; beginning of the file. (gnc-register-string-option optiondb @@ -216,15 +206,11 @@ option like this.") (accounts (op-value "Tab A" "An account list option")) (list-val (op-value "Tab A" "A list 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)) ;; document will be the HTML document that we return. (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 ;; date with day, month, and year but no time you should use ;; qof-print-date diff --git a/gnucash/report/reports/standard/test/test-stress-options.scm b/gnucash/report/reports/standard/test/test-stress-options.scm index ddd6561f7f..78c1af7571 100644 --- a/gnucash/report/reports/standard/test/test-stress-options.scm +++ b/gnucash/report/reports/standard/test/test-stress-options.scm @@ -248,9 +248,6 @@ "Receipt" "Australian Tax Invoice" "Balance Sheet (eguile)" - - ;; skip Sample Report which is designed to crash... - "Sample Report" )) (format #t "\nSkipping ~a ~a...\n" report-name prefix) (begin