PIKApp/plug-ins/script-fu/scripts/test/register-fail/register-fail.scm

126 lines
3.4 KiB
Scheme
Raw Normal View History

2023-10-30 23:56:43 +01:00
#!/usr/bin/env pika-script-fu-interpreter-3.0
; A script that fails at query/registration time: ill-formed args in registration data
; Tests the fix for #6157
; Incomplete: FUTURE add more test cases.
; One script can't test all cases.
; Several cases are tested here, but you must edit the script,
; putting each case to the top: the failing top case stops interpretation.
; Install this script.
; Start Gimp
; Expect:
; - an error in the stderr console, errors from SF re args
; e.g. "adjustment default must be list"
; - plugin should not install to the menus
; - the interpreter must not crash !!!
; - the procedure is not in ProcedureBrowser
; Note errors come before Pika Error Console is ready
; moot run func
(define (script-fu-test-registration-fail ) ())
; Case SF-ENUM not a list of two strings
(script-fu-register "script-fu-test-registration-fail"
"Moot" "Moot" "lkk" "lkk" "2023" "" ; requires no image
; ill-formed arg spec: 1 is not a string
SF-ENUM "foo" '("InterpolationType" 1)
)
; This should be moot (since it should fail earlier.)
; But leave this here so when it does succeed,
; you know earlier test failed to fail.
(script-fu-menu-register "script-fu-test-registration-fail"
"<Image>/Test")
; More tests below.
; Copy them to above, and retest.
; Can't test them all at once.
; Case SF-ADJUSTMENT default not a list
(script-fu-register "script-fu-test-registration-fail"
"Moot" "Moot" "lkk" "lkk" "2023" "" ; requires no image
; ill-formed : 0 is not a list
SF-ADJUSTMENT "foo" 0
)
; Case: SF-ADJUSTMENT wrong list length
; At query time, SF throws error.
; At query time, a critical from Pika re arg default not in range
(script-fu-register "script-fu-test-registration-fail"
"Moot" "Moot" "lkk" "lkk" "2023" "" ; requires no image
; ill-formed arg spec: a list, but not proper length
; Expect SF error
SF-ADJUSTMENT "foo" '(0 )
)
; Case SF-OPTIONS not a list
(script-fu-register "script-fu-test-registration-fail"
"Moot" "Moot" "lkk" "lkk" "2023" "" ; requires no image
; ill-formed arg spec: a list, but not proper length
SF-OPTION "foo" "bar"
)
; Case SF-OPTIONS default an empty list
(script-fu-register "script-fu-test-registration-fail"
"Moot" "Moot" "lkk" "lkk" "2023" "" ; requires no image
; semantics : empty list makes no sense
SF-OPTION "foo" '()
)
; Case SF-OPTIONS list contains non-string
(script-fu-register "script-fu-test-registration-fail"
"Moot" "Moot" "lkk" "lkk" "2023" "" ; requires no image
; 1 is not a string
SF-OPTION "foo" '("foo" 1)
)
; Case SF-COLOR not a list or a string
(script-fu-register "script-fu-test-registration-fail"
"Moot" "Moot" "lkk" "lkk" "2023" "" ; requires no image
; ill-formed arg spec: 1 is not a list or a string
SF-COLOR "foo" 1 4 5
)
; FUTURE more test cases for SF-COLOR
; Case SF-ENUM not a list
(script-fu-register "script-fu-test-registration-fail"
"Moot" "Moot" "lkk" "lkk" "2023" "" ; requires no image
; ill-formed arg spec: "bar" is not a list
SF-ENUM "foo" "bar"
)
; Case SF-ENUM not a list of two strings
(script-fu-register "script-fu-test-registration-fail"
"Moot" "Moot" "lkk" "lkk" "2023" "" ; requires no image
; ill-formed arg spec: 1 is not a string
SF-ENUM "foo" '("InterpolationType" 1)
)
; FUTURE more test cases for SF-ENUM