26 lines
704 B
Scheme
26 lines
704 B
Scheme
|
#!/usr/bin/env pika-script-fu-interpreter-3.0
|
||
|
|
|
||
|
|
; Test a .scm file that does not call script-fu-menu-register
|
||
|
|
; The menu will NOT default.
|
||
|
|
; Expect "Test SF interpreter 4" to NOT EXIST in any menu
|
||
|
|
; Expect the PDB proc "script-fu-test4" does appear in the PDB Brower
|
||
|
|
|
||
|
|
; Two test cases:
|
||
|
|
; Alongside an executable script: plug-ins/test4/test4.scm NOT executable
|
||
|
|
; Executable, in its own directory: plug-ins/test1/test4.scm is executable
|
||
|
|
|
||
|
|
(define (script-fu-test4)
|
||
|
|
(pika-message "Hello script-fu-test4")
|
||
|
|
)
|
||
|
|
|
||
|
|
(script-fu-register "script-fu-test4"
|
||
|
|
"Test SF interpreter 4"
|
||
|
|
"Just gives a message from Pika"
|
||
|
|
"lkk"
|
||
|
|
"lkk"
|
||
|
|
"2022"
|
||
|
|
"" ; all image types
|
||
|
|
)
|
||
|
|
|
||
|
|
; !!! No call to script-fu-menu-register
|
