Initial checkin of Pika from heckimp

plug-ins/script-fu/scripts/test/test8/test8.scm

@@ -0,0 +1,39 @@
+#!/usr/bin/env pika-script-fu-interpreter-3.0
+
+; Test mismatch between name of defined run function and name for PDB procedure
+; Not a high priority: a rare syntax error in a plugin text.
+; If authors follow a template, they won't make this mistake.
+
+; The names must match exactly.
+; Here, "mismatch" the name of the defined run function
+; does not match "script-fu-test8" the name of the PDB proc.
+
+; Expect a warning in the text console as the plugin text is queried:
+; script-fu: WARNING: Run function not defined, or does not match PDB procedure name: script-fu-test8.
+; Expect the PDB procedure to not exist
+
+; If we don't detect this syntax error:
+; A PDB procedure is created.
+; When invoked from Test>Test SF interpreter 8"
+; the interpreter enters an infinite loop.
+; There is no harm to the PIKA app, but the interpreter process can only be killed.
+; During the run phase, the "(define foo)"
+; should re-define an existing definition in the interpreter state.
+; Instead, since the name is mismatched,
+; the foo function remains defined to be a call to the PDB procedure named foo.
+; So script-fu-script-proc instead calls the PDB again, an infinite loop.
+
+(define (mismatch)
+  (pika-message "mismatch")
+)
+
+(script-fu-register "script-fu-test8"
+  "Test SF interpreter 8"
+  "Just gives a message from Pika"
+  "lkk"
+  "lkk"
+  "2022"
+  ""  ; all image types
+)
+
+(script-fu-menu-register "script-fu-test8" "<Image>/Test")