diff options
Diffstat (limited to 't/lib/RTest/UI/Window.pm')
-rw-r--r-- | t/lib/RTest/UI/Window.pm | 35 |
1 files changed, 20 insertions, 15 deletions
diff --git a/t/lib/RTest/UI/Window.pm b/t/lib/RTest/UI/Window.pm index 0f43ab1..4624863 100644 --- a/t/lib/RTest/UI/Window.pm +++ b/t/lib/RTest/UI/Window.pm @@ -5,31 +5,36 @@ use aliased 'Reaction::UI::ViewPort'; use base qw/Reaction::Test/; use Reaction::Class; -BEGIN { - - package RTest::UI::Window::_::view; +use Test::More (); - use base qw/Reaction::UI::Renderer::XHTML/; +BEGIN { + eval q{ + package RTest::UI::Window::_::view; - sub render { - return $_[0]->{render}->(@_); - } + use base qw/Reaction::UI::Renderer::XHTML/; - package RTest::UI::Window::_::TestViewPort; + sub render { + return $_[0]->{render}->(@_); + } - use Reaction::Class; + package RTest::UI::Window::_::TestViewPort; - extends 'Reaction::UI::ViewPort'; + use Reaction::Class; - register_inc_entry; + extends 'Reaction::UI::ViewPort'; - sub handle_events { - $_[0]->{handle_events}->(@_); - } + register_inc_entry; + sub handle_events { + $_[0]->{handle_events}->(@_); + } + }; + if ($@) { + Test::More::plan skip_all => "Caught exception generating basic classes to test: $@"; + exit; + } }; -use Test::More (); use Reaction::UI::Window; use aliased 'RTest::UI::Window::_::TestViewPort'; |