add non-hack MX::Runnable

[gitmo/MooseX-Runnable.git] / t / basic.t

diff --git a/t/basic.t b/t/basic.t
new file mode 100644 (file)
index 0000000..cafd6d7
--- /dev/null
+++ b/t/basic.t
@@ -0,0 +1,56 @@
+use strict;
+use warnings;
+use Test::Exception;
+use Test::More tests => 8;
+
+use ok 'MooseX::Runnable';
+use ok 'MooseX::Runnable::Invocation';
+
+{ package Class;
+  use Moose;
+  with 'MooseX::Runnable';
+
+  sub run {
+      my ($self, @args) = @_;
+      my $result;
+      $result += $_ for @args;
+      return $result;
+  }
+}
+
+my $invocation = MooseX::Runnable::Invocation->new(
+    class => 'Class',
+);
+
+ok $invocation;
+
+my $code;
+lives_ok {
+    $code = $invocation->run(1,2,3);
+} 'run lived';
+
+is $code, 6, 'run worked';
+
+{ package MooseX::Runnable::Invocation::Plugin::ExitFixer;
+  use Moose::Role;
+
+  around run => sub {
+      my ($next, $self, @args) = @_;
+      my $code = $self->$next(@args);
+      if($code){ return 0 }
+      else { confess "Exited with error." }
+  };
+}
+
+$invocation = MooseX::Runnable::Invocation->new(
+    class   => 'Class',
+    plugins => ['+MooseX::Runnable::Invocation::Plugin::ExitFixer'],
+);
+
+ok $invocation;
+
+lives_ok {
+    $code = $invocation->run(1,2,3);
+} 'run lived';
+
+is $code, 0, 'run worked, and plugin changed the return code';