The actual Gtk2 code to load the window and run the main loop is in the body of my foo.pl ie not encapsulated in a function..All the examples I have seen show windows and what not being created in function calls in libraries so you can use the library and call the methode to build the window. Since I can't use a non-library ie my main perl program, and even if I could can't execute the body of said program which draws the interface, I can't figure out how to use any of the Gtk2::Test::Helper stuff to help me..


daN.

You can probably rewrite foo.pl like this:

sub foo {
# original foo.pl code here
return "all right";
}
foo() unless defined caller(); # call foo() unless require'd
[download]

And then in your tests do something like

# Test::More style used....
use Test::More tests => 1;
require "foo.pl";
is(foo(),"all right","Foo() executed normally")
[download]

Update: You'll probably not want everything in the foo() function, just the stuff that's needed to set up the gui.

For instance, the run loop will probably be set up by the test module (but I'm only guessing, I've never used the Gtk test modules).

Update 2:: Actually, most of the above is wrong. It will give you some hints on how to solve your problem, though. I'm going to eat something now.

Joost.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

Look at what Mac::Carbon does for its gui tests. And check if $ENV{DISPLAY} is set and skip the tests if it's not.