Tests: ScriptFu: test PDB API for gimp-image-sample-point

No changes except to tests

plug-ins/script-fu/test/meson.build

@@ -20,6 +20,7 @@ test_scripts = [
   'tests' / 'PDB' / 'image' / 'image-set-selected.scm',
   'tests' / 'PDB' / 'image' / 'image-mode.scm',
   'tests' / 'PDB' / 'image' / 'image-color-profile.scm',
+  'tests' / 'PDB' / 'image' / 'image-sample-points.scm',
 
   'tests' / 'PDB' / 'paint' / 'paint.scm',
   'tests' / 'PDB' / 'paint' / 'paint-methods.scm',

plug-ins/script-fu/test/tests/PDB/image/image-sample-points.scm

@@ -0,0 +1,89 @@
+; test Image SamplePoint methods of PDB
+
+; Note similar API for guides and tattoos, not yet tested.
+
+; Using numeric equality operator '=' on numeric ID's
+
+(script-fu-use-v3)
+
+
+; setup
+(define testImage (gimp-image-new 21 22 RGB))
+
+
+(test! "new image has no sample points")
+; Passing 0 means get first.
+; Returns 0 if no sample points are present
+(assert `(= (gimp-image-find-next-sample-point ,testImage 0)
+            0 ))
+
+
+(test! "add sample point")
+(define testSamplePoint
+  (gimp-image-add-sample-point testImage 10 11))
+
+(test! "New sample point is at position given")
+; tests gimp-image-get-sample-point-position
+; Returns a list of two elements, the x and y coordinates of the sample point.
+(assert `(= (car (gimp-image-get-sample-point-position ,testImage ,testSamplePoint))
+            10))
+; cdr is still a list, so we need to use cadr to get the second element.
+(assert `(= (cadr (gimp-image-get-sample-point-position ,testImage ,testSamplePoint))
+            11))
+
+(test! "sample point is added to image")
+(assert `(= (gimp-image-find-next-sample-point ,testImage 0)
+            ,testSamplePoint))
+
+(test! "First sample point is last sample point")
+(assert `(= (gimp-image-find-next-sample-point ,testImage ,testSamplePoint)
+            0))
+
+(test! "add another sample point")
+(define testSamplePoint2
+  (gimp-image-add-sample-point testImage 12 13))
+
+(test! "Next from first sample point is second")
+(assert `(= (gimp-image-find-next-sample-point ,testImage ,testSamplePoint)
+            ,testSamplePoint2))
+
+(test! "Next from second sample point is 0")
+(assert `(= (gimp-image-find-next-sample-point ,testImage ,testSamplePoint2)
+            0))
+
+(test! "delete first sample point")
+(gimp-image-delete-sample-point testImage testSamplePoint)
+
+(test! "First sample point is now the second one we added")
+(assert `(= (gimp-image-find-next-sample-point ,testImage 0)
+            ,testSamplePoint2))
+
+(test! "delete second added sample point using its ID")
+(gimp-image-delete-sample-point testImage testSamplePoint2)
+
+(test! "No sample points left")
+(assert `(= (gimp-image-find-next-sample-point ,testImage 0)
+            0))
+
+(test! "Delete sample point using non-existing ID")
+; testSamplePoint is already deleted.
+; The error is not from Script-Fu pre-flight, but from the PDB i.e. the GIMP core.
+(assert-error `(gimp-image-delete-sample-point ,testImage ,testSamplePoint)
+              "Procedure execution of gimp-image-delete-sample-point failed on invalid input arguments")
+
+(test! "Delete sample point using zero ID")
+; 0 is not a valid sample point ID.
+; The error is not from Script-Fu pre-flight, but from the PDB i.e. the GIMP core.
+(assert-error `(gimp-image-delete-sample-point ,testImage 0)
+              "Procedure execution of gimp-image-delete-sample-point failed on invalid input arguments")
+
+(test! "Delete sample point using negative ID")
+; Negative ID is not a valid sample point ID.
+; The error is not from Script-Fu pre-flight, but from the PDB i.e. the GIMP core.
+; The preflight check in Script-Fu does not catch this,
+; because it is a flawed signed to unsigned comparison,
+; and C coerces the negative value to a large positive value.
+(assert-error `(gimp-image-delete-sample-point ,testImage -1)
+              "Procedure execution of gimp-image-delete-sample-point failed on invalid input arguments")
+
+(script-fu-use-v2)

plug-ins/script-fu/test/tests/PDB/pdb.scm

@@ -17,6 +17,7 @@
 (testing:load-test "image-set-selected.scm")
 (testing:load-test "image-mode.scm")
 (testing:load-test "image-color-profile.scm")
+(testing:load-test "image-sample-points.scm")
 
 (testing:load-test "paint.scm")
 (testing:load-test "paint-methods.scm")