aboutsummaryrefslogtreecommitdiffstats
path: root/t/lib/RTest/UI/Window.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/RTest/UI/Window.pm')
-rw-r--r--t/lib/RTest/UI/Window.pm35
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';