[Gtk2-perl-bugs] [Bug 342444] 'make test' for Gnome2-Print-0.951 fails with "Can't locate object method "signal_connect" via package "Gnome2::Print::Dialog" at t/04.GnomePrintDialog.t line 32" message

[gnome-perl (bugzilla.gnome.org) <bug...@bu...>]

Do not reply to this via email (we are currently unable to handle email
responses and they get discarded).  You can add comments to this bug at
http://bugzilla.gnome.org/show_bug.cgi?id=3D342444
 gnome-perl | Gnome2::Print | Ver: unspecified





------- Comment #17 from Sergei Steshenko  2006-05-23 22:11 UTC -------
FWIW, 'make test' for another module, Gnome2-Canvas-1.002, fails
similarly:

"
PERL_DL_NONLAZY=3D1 /usr/bin/perl5.8.7 "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01....................ok
t/GnomeCanvas...........Gtk-WARNING **: Unable to locate theme engine in
module_path: "galaxy", at t/GnomeCanvas.t line 12.

# ignore the warning about w2c_affine here:
Gnome2::Canvas::w2c_affine() was broken before 1.002; the second paramete=
r does
nothing (see the Gnome2::Canvas manpage) at t/GnomeCanvas.t line 41.
ok
t/GnomeCanvasItem.......Gtk-WARNING **: Unable to locate theme engine in
module_path: "galaxy", at t/GnomeCanvasItem.t line 12.
Can't locate object method "set" via package "Gnome2::Canvas::Rect" at
t/GnomeCanvasItem.t line 24.
# Looks like you planned 19 tests but only ran 1.
# Looks like your test died just after 1.
dubious
        Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 2-19
        Failed 18/19 tests, 5.26% okay
t/GnomeCanvasPathDef....ok
Failed Test         Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------=
------
t/GnomeCanvasItem.t  255 65280    19   36 189.47%  2-19
Failed 1/4 test scripts, 75.00% okay. 18/59 subtests failed, 69.49% okay.
make: *** [test_dynamic] Error 255
"

To work around the problem now in all cases Gnome2 or Gtk2 Perl modules
depends on other Perl modules I "hack" in my build script the target
Makefile using this piece of code:

  my $Gtk2_pre_make_sub =3D
  sub
    {
    my %this_sub_args =3D @_;

    my $cmdline_args_hash_ref =3D $this_sub_args{cmdline_args_hash_ref};
    my $recursion_level_scalar_ref =3D
$this_sub_args{recursion_level_scalar_ref};
    my $path_array_ref =3D $this_sub_args{path_array_ref}; # path to curr=
ent node
in dependency tree
    my $tool_name =3D $this_sub_args{tool_name};
    my $info_marker =3D $this_sub_args{info_marker};
    my $warning_marker =3D $this_sub_args{warning_marker};
    my $error_marker =3D $this_sub_args{error_marker};
    my $system_wrapper_sub =3D $this_sub_args{system_wrapper_sub};
    my $backticks_wrapper_sub =3D $this_sub_args{backticks_wrapper_sub};
    my $failed_banner_sub =3D $this_sub_args{failed_banner_sub};
    my $top_level_hash_ref =3D $this_sub_args{top_level_hash_ref};
    my $targets_hash_ref =3D $this_sub_args{targets_hash_ref};

    my $target_build_dir =3D $this_sub_args{target_build_dir};

    my $makefile =3D "$this_sub_args{target_build_dir}/Makefile";
    my $orig_makefile =3D
    "$this_sub_args{target_build_dir}/Makefile.original";

    if(
      &{$system_wrapper_sub}
        (
        $tool_name,
        "\\cp -p $makefile $orig_makefile"
        ) !=3D 0
      )
      {
      warn "$error_marker could not back up original Makefile, see messag=
es
above\n";
      &{$failed_banner_sub}($tool_name);
      die
      }

    open(my $mfrh, '<', $orig_makefile) or
    do{
      warn "$error_marker cannot open '$orig_makefile' file for reading\n=
";
      &{$failed_banner_sub}($tool_name);
      die
      };

    open(my $mfwh, '>', $makefile) or
    do{
      warn "$error_marker could not open '$makefile' file for writing\n";
      &{$failed_banner_sub}($tool_name);
      die
      };

    ##################################
    while(defined(my $line =3D <$mfrh>))
    ##################################
      {
      $line =3D~ s|$^X|$^X $this_sub_args{perl_include_paths}|g;
      print $mfwh $line;
      } # while(defined(my $line =3D <$mfrh>))

    close($mfwh);
    close($mfrh);

    return 0;
    }; # my $Gtk2_pre_make_sub
    #-------------------------

- the essence of the code is this line:

     $line =3D~ s|$^X|$^X $this_sub_args{perl_include_paths}|g;

, i.e. the code adds to Perl full path ($^X) all the necessary to point
to local build results '-I <path>' command line options.

This hack resolves the problem of picking system-wide modules instead of
locally built ones.


--=20
Configure bugmail: http://bugzilla.gnome.org/userprefs.cgi?tab=3Demail
------- You are receiving this mail because: -------
You are the QA contact for the bug.
You are the assignee for the bug.