easy_exec: override /script exec with a function to export all of the Irssi::

namespace functions for ease of testing.

1 files changed, 25 insertions, 0 deletions

diff --git a/feature-tests/easy_exec.pl b/feature-tests/easy_exec.pl
new file mode 100644
index 0000000..76cd79f
--- /dev/null
+++ b/feature-tests/easy_exec.pl
@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+
+use Irssi (@Irssi::EXPORT_OK);
+use Irssi::Irc;
+use Irssi::TextUI;
+
+use Data::Dumper;
+
+our $VERSION = '0.1';
+our %IRSSI = (
+              authors     => '',
+              contact     => '',
+              name        => '',
+              description => '',
+              license     => 'Public Domain',
+             );
+
+Irssi::signal_add_first 'command script exec', \&better_exec;
+
+sub better_exec {
+    my ($args, $serv, $witem) = @_;
+    eval $args;
+    Irssi::signal_stop();
+}