aboutsummaryrefslogtreecommitdiffstats
path: root/feature-tests/sbar-crash.pl
diff options
context:
space:
mode:
Diffstat (limited to 'feature-tests/sbar-crash.pl')
-rw-r--r--feature-tests/sbar-crash.pl15
1 files changed, 15 insertions, 0 deletions
diff --git a/feature-tests/sbar-crash.pl b/feature-tests/sbar-crash.pl
new file mode 100644
index 0000000..5547bbd
--- /dev/null
+++ b/feature-tests/sbar-crash.pl
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+
+use Irssi;
+use Irssi::TextUI; # for sbar_items_redraw
+
+Irssi::statusbar_item_register('uberprompt', 0, 'uberprompt_draw');
+Irssi::command("STATUSBAR prompt add -alignment left -before input -priority '-1' uberprompt");
+
+sub uberprompt_draw {
+ my ($sb_item, $get_size_only) = @_;
+ print "This is a test";
+ return $sb_item->default_handler($get_size_only, '{uberprompt $winname}', '', 0);
+}
+