perl/Tk: fix libX11 loading; add test results

Marcel Telka

2024-02-13 6f92b30da5c008612844089ab7351829458f1b1a

perl/Tk: fix libX11 loading; add test results

 components/perl/Tk/Makefile

@@ -20,17 +20,27 @@

COMPONENT_PERL_MODULE =        Tk
HUMAN_VERSION =            804.036
COMPONENT_REVISION =        1
COMPONENT_REVISION =        2
COMPONENT_SUMMARY =        Tk - a Graphical User Interface Toolkit
COMPONENT_CPAN_AUTHOR =        SREZIC
COMPONENT_ARCHIVE_HASH =    \
    sha256:32aa7271a6bdfedc3330119b3825daddd0aa4b5c936f84ad74eabb932a200a5e
COMPONENT_LICENSE =        Artistic-1.0-Perl OR GPL-1.0-or-later

TEST_TARGET = $(NO_TESTS)

include $(WS_MAKE_RULES)/common.mk

# With default "symlink" cloney mode tests fails
CLONEY_ARGS = CLONEY_MODE="hardlink"

# Testing needs an X server
TEST_REQUIRED_PACKAGES += x11/server/xvfb
COMPONENT_PRE_TEST_ACTION += /usr/bin/Xvfb :0 >/dev/null 2>&1 &
COMPONENT_TEST_ENV += DISPLAY=:0
COMPONENT_POST_TEST_ACTION += /usr/bin/pkill -x Xvfb ;

# Contains random address
COMPONENT_TEST_TRANSFORMS += "-e '/^Stack moved/d'"

# Auto-generated dependencies
PERL_REQUIRED_PACKAGES += runtime/perl
REQUIRED_PACKAGES += image/library/libjpeg6

 components/perl/Tk/Tk-PERLVER.p5m

@@ -784,4 +784,3 @@
    pkg.debug.depend.path=usr/perl5/$(PERLVER)/bin

# Automatically generated dependencies based on distribution metadata
#depend type=require fmri=pkg:/runtime/perl-$(PLV)

 components/perl/Tk/manifests/sample-manifest.p5m

@@ -10,7 +10,7 @@
#

#
# Copyright 2023 <contributor>
# Copyright 2024 <contributor>
#

set name=pkg.fmri value=pkg:/$(COMPONENT_FMRI)-$(PLV)@$(IPS_COMPONENT_VERSION),$(BUILD_VERSION)
@@ -782,4 +782,3 @@
    pkg.debug.depend.path=usr/perl5/$(PERLVER)/bin

# Automatically generated dependencies based on distribution metadata
#depend type=require fmri=pkg:/runtime/perl-$(PLV)

 components/perl/Tk/patches/01-load-64-bit-X11.patch

New file
@@ -0,0 +1,16 @@
Since we build 64 bit we need to load 64 bit libX11.
See https://github.com/eserte/perl-tk/issues/99

--- Tk-804.036/Tk.pm.orig
+++ Tk-804.036/Tk.pm
@@ -90,8 +90,8 @@
 my $boot_time = timeofday();
 
 # This is a workround for Solaris X11 locale handling
-Preload(DynaLoader::dl_findfile('-L/usr/openwin/lib','-lX11'))
-  if (NeedPreload() && -d '/usr/openwin/lib');
+Preload(DynaLoader::dl_findfile('-L/usr/openwin/lib/64','-lX11'))
+  if (NeedPreload() && -d '/usr/openwin/lib/64');
 
 use Tk::Submethods ('option'    =>  [qw(add get clear readfile)],
                     'clipboard' =>  [qw(clear append get)]

 components/perl/Tk/perl-integrate-module.conf

@@ -13,11 +13,23 @@
# Copyright 2022 Marcel Telka
#

%patch% 01-load-64-bit-X11.patch

%hook-manifest%
# fix abstract we obtained from META.json
sed -i -e 's/Tk - Tk -/Tk -/g' Makefile
# two more license terms applies for this component
sed -i -e "/^license/a\\license pTk/license.terms license='TCL'\\nlicense pTk/Tix.license license='MIT-Modern-Variant'" "$DISTRIBUTION-PERLVER.p5m"

%include-2%
TEST_TARGET = $(NO_TESTS)
%include-3%
# With default "symlink" cloney mode tests fails
CLONEY_ARGS = CLONEY_MODE="hardlink"

# Testing needs an X server
TEST_REQUIRED_PACKAGES += x11/server/xvfb
COMPONENT_PRE_TEST_ACTION += /usr/bin/Xvfb :0 >/dev/null 2>&1 &
COMPONENT_TEST_ENV += DISPLAY=:0
COMPONENT_POST_TEST_ACTION += /usr/bin/pkill -x Xvfb ;

# Contains random address
COMPONENT_TEST_TRANSFORMS += "-e '/^Stack moved/d'"

 components/perl/Tk/pkg5

@@ -13,10 +13,10 @@
        "x11/library/libxft"
    ],
    "fmris": [
        "library/perl-5/tk",
        "library/perl-5/tk-534",
        "library/perl-5/tk-536",
        "library/perl-5/tk-538",
        "library/perl-5/tk"
        "library/perl-5/tk-538"
    ],
    "name": "Tk"
}
}

 components/perl/Tk/test/results-all.master

New file
@@ -0,0 +1,117 @@
t/basic.t .. ok
t/crash.t .. ok
All tests successful.
Files=2, Tests=6
Result: PASS
"$(PERL)" -MExtUtils::Command::MM -e 'cp_nonempty' -- JPEG.bs ../blib/arch/auto/Tk/JPEG/JPEG.bs 644
"$(PERL)" "-I../t" "-MTkTest" "-e" "checked_test_harness('../xt', 0, '../blib/lib', '../blib/arch')" t/*.t
t/more.t .. ok
t/Read.t .. ok
All tests successful.
Files=2, Tests=46
Result: PASS
"$(PERL)" -MExtUtils::Command::MM -e 'cp_nonempty' -- Event.bs ../blib/arch/auto/Tk/Event/Event.bs 644
"$(PERL)" "-I../t" "-MTkTest" "-e" "checked_test_harness('../xt', 0, '../blib/lib', '../blib/arch')" t/*.t
t/basic.t .. ok
All tests successful.
Files=1, Tests=1
Result: PASS
"$(PERL)" "-It" "-MTkTest" "-e" "checked_test_harness('./xt', 0, 'blib/lib', 'blib/arch')" t/00wmcheck.t t/JP.t t/KR.t t/Require.t t/Tkxs.t t/Trace.t t/X.t t/adjuster.t t/after.t t/async.t t/autoload.t t/balloon.t t/bind.t t/browseentry-grabtest.t t/browseentry-subclassing.t t/browseentry.t t/browseentry2.t t/button-tcl.t t/button.t t/canvas-grid.t t/canvas.t t/canvas2.t t/coloreditor.t t/create.t t/cursor.t t/dash.t t/dialogbox.t t/dirtree.t t/entry.t t/errordialog.t t/eventGenerate.t t/exefiles.t t/fbox.t t/fileevent.t t/fileevent2.t t/fileselect.t t/font.t t/fork.t t/geomgr.t t/iso8859-1.t t/itemstyle.t t/leak.t t/list.t t/listbox.t t/listvar.t t/magic.t t/mega.t t/msgbox.t t/mwm.t t/notebook.t t/objglue.t t/optmenu.t t/photo.t t/pixmap.t t/pod.t t/progbar.t t/property.t t/regexp.t t/rotext.t t/slaves.t t/sv.t t/table.t t/text.t t/text2.t t/textundo.t t/trace1.t t/unicode.t t/widget.t t/wm-tcl.t t/wm-time.t t/wm.t t/zzHList.t t/zzPhoto.t t/zzScrolled.t t/zzText.t t/zzTixGrid.t
t/00wmcheck.t ................ ok
t/adjuster.t ................. ok
t/after.t .................... ok
t/async.t .................... ok
t/autoload.t ................. ok
t/balloon.t .................. ok
t/bind.t ..................... ok
t/browseentry-grabtest.t ..... ok
t/browseentry-subclassing.t .. ok
t/browseentry.t .............. ok
t/browseentry2.t ............. ok
t/button-tcl.t ............... ok
t/button.t ................... ok
t/canvas-grid.t .............. ok
t/canvas.t ................... ok
t/canvas2.t .................. ok
t/coloreditor.t .............. ok
t/create.t ................... ok
t/cursor.t ................... ok
t/dash.t ..................... ok
t/dialogbox.t ................ ok
t/dirtree.t .................. ok
t/entry.t .................... ok
XS_Tk__Callback_Call error:Intentional error.

XS_Tk__Callback_Call error:Intentional error.

t/errordialog.t .............. ok
t/eventGenerate.t ............ ok
t/exefiles.t ................. ok
t/fbox.t ..................... ok
t/fileevent.t ................ ok
t/fileevent2.t ............... ok
t/fileselect.t ............... ok
Font Courier -12 still in cache.
t/font.t ..................... ok
t/fork.t ..................... ok
t/geomgr.t ................... ok
t/iso8859-1.t ................ ok
t/itemstyle.t ................ ok
t/JP.t ....................... ok
t/KR.t ....................... ok
t/leak.t ..................... skipped: need Devel::Leak
t/list.t ..................... ok
t/listbox.t .................. ok
t/listvar.t .................. ok
t/magic.t .................... ok
t/mega.t ..................... ok
t/msgbox.t ................... ok
t/mwm.t ...................... ok
t/notebook.t ................. ok
t/objglue.t .................. ok
t/optmenu.t .................. ok
t/photo.t .................... ok
t/pixmap.t ................... ok
t/pod.t ...................... ok
t/progbar.t .................. ok
t/property.t ................. ok
t/regexp.t ................... ok
t/Require.t .................. ok
t/rotext.t ................... ok
t/slaves.t ................... ok
t/sv.t ....................... ok
t/table.t .................... ok
t/text.t ..................... ok
untie attempted while 3 inner references still exist at t/text2.t line 59.
untie attempted while 10 inner references still exist at t/text2.t line 70.
t/text2.t .................... ok
t/textundo.t ................. ok
t/Tkxs.t ..................... ok
t/Trace.t .................... ok
t/trace1.t ................... ok
t/unicode.t .................. ok
t/widget.t ................... ok
t/wm-tcl.t ................... ok
t/wm-time.t .................. ok
t/wm.t ....................... ok
t/X.t ........................ ok
t/zzHList.t .................. ok
t/zzPhoto.t .................. ok
t/zzScrolled.t ............... ok
t/zzText.t ................... ok
t/zzTixGrid.t ................ ok
All tests successful.

Test Summary Report
-------------------
t/listbox.t                (Wstat: 0 Tests: 537 Failed: 0)
  TODO passed:   320-322, 328, 502
t/text.t                   (Wstat: 0 Tests: 415 Failed: 0)
  TODO passed:   121
t/wm-tcl.t                 (Wstat: 0 Tests: 315 Failed: 0)
  TODO passed:   86-87, 154-157, 164-165, 175-178, 221-224
                237-239, 264-265, 275-276, 280-283
t/zzScrolled.t             (Wstat: 0 Tests: 94 Failed: 0)
  TODO passed:   52, 66, 80, 94
Files=76, Tests=4687
Result: PASS