Updated with upstream update

plug-ins/script-fu/test/tests/PDB/text-layer/text-layer-new.scm

@@ -1,7 +1,7 @@
 ; tests of TextLayer class
 
 ; !!! Some methods tested here are named strangely:
-; text-fontname returns a new TextLayer
+; text-font returns a new TextLayer
 
 
 
@@ -11,23 +11,21 @@
 ; Require image has no layer
 (define testImage (car (pika-image-new 21 22 RGB)))
 
+(define testFont (car (pika-context-get-font)))
+
 ; setup (not an assert )
 (define
     testTextLayer
        (car (pika-text-layer-new
               testImage
               "textOfTestTextLayer" ; text
-              "fontName" ; fontname
+              testFont ; font
               30 ; fontsize
               UNIT-PIXEL)))
 
 
-; !!!! fontName is not valid
-; The text displays anyway, using some font family, without error.
-; The docs don't seem to say which font family is used.
-; TODO better documentation
-; The text layer still says it is using the given font family.
-; TODO yield actual font family used.
+; TOTO test if font is not valid or NULL
+
 
 ; !!! UNIT-PIXEL PikaUnitsType is distinct from PIXELS PikaSizeType
 
@@ -77,9 +75,9 @@
 ; text
 (assert `(string=? (car (pika-text-layer-get-text ,testTextLayer))
                         "textOfTestTextLayer"))
-; font
-(assert `(string=? (car (pika-text-layer-get-font ,testTextLayer))
-                        "fontName"))
+; font, numeric ID's equal
+(assert `(= (car (pika-text-layer-get-font ,testTextLayer))
+            ,testFont))
 ; font-size
 (assert `(= (car (pika-text-layer-get-font-size ,testTextLayer))
             30))
@@ -100,15 +98,14 @@
 
 ;                  misc method
 
-; pika-text-get-extents-fontname
+; pika-text-get-extents-font
 ; Yields extent of rendered text, independent of image or layer.
 ; Extent is (width, height, ascent, descent) in unstated units, pixels?
 ; Does not affect image.
-(assert `(= (car (pika-text-get-extents-fontname
+(assert `(= (car (pika-text-get-extents-font
               "zed" ; text
               32    ; fontsize
-              POINTS  ; size units.  !!! See UNIT-PIXEL
-              "fontName" )) ; fontname
+              ,testFont ))
             57))
 ; usual result is (57 38 30 -8)
 
@@ -117,11 +114,11 @@
 ;           alternate method for creating text layer
 
 
-; pika-text-fontname creates text layer AND inserts it into image
+; pika-text-font creates text layer AND inserts it into image
 ; setup, not assert
 (define
   testTextLayer2
-   (car (pika-text-fontname
+   (car (pika-text-font
               testImage
               -1     ; drawable.  -1 means NULL means create new text layer
               0 0   ; coords
@@ -129,11 +126,10 @@
               1     ; border size
               1     ; antialias true
               31    ; fontsize
-              PIXELS  ; size units.  !!! See UNIT-PIXEL
-              "fontName" )))
+              testFont )))
 
 
-; error to insert layer created by pika-text-fontname
+; error to insert layer created by pika-text-font
 ; TODO make the error message matching by prefix only
 (assert-error `(pika-image-insert-layer
                   ,testImage