Initial checkin of Pika from heckimp

plug-ins/script-fu/scripts/test/always-fail/always-fail.scm

@@ -0,0 +1,30 @@
+#!/usr/bin/env pika-script-fu-interpreter-3.0
+
+; A script that always fails
+;
+; Setup: copy this file w/ executable permission, and its parent dir to /plug-ins
+; Example: to ~/.pika-2.99/plug-ins/always-fail/always-fail.scm
+
+; Expect "Test>Always fail" in the menus
+; Expect when chosen, message on PIKA message bar "Failing"
+; Expect a dialog in PIKA app that requires an OK
+
+(define (script-fu-always-fail)
+  (begin
+    (pika-message "Failing")
+    ; since last expression, the result, and should mean error
+    #f
+  )
+)
+
+(script-fu-register "script-fu-always-fail"
+  "Always fail"
+  "Expect error dialog in Gimp, or PDB execution error when called by another"
+  "lkk"
+  "lkk"
+  "2022"
+  ""  ; requires no image
+  ; no arguments or dialog
+)
+
+(script-fu-menu-register "script-fu-always-fail" "<Image>/Test")