test unhandled error events

mojolicious · Jan 1, 2013 · fd5c755 · fd5c755
1 parent 5531616
commit fd5c755
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 4 deletions.
diff --git a/Changes b/Changes
@@ -1,9 +1,11 @@
 
 3.71  2013-01-02
   - Modernized ".travis.yml".
+  - Improved Mojo::EventEmitter to warn about unhandled error events.
   - Improved Mojo::UserAgent to warn more often about failed events.
   - Improved monkey_patch to patch multiple functions at once. (jberger)
   - Improved documentation.
+  - Improved tests.
   - Fixed small memory leak in Mojo::DOM.
 
 3.70  2012-12-23

diff --git a/t/mojo/bytestream.t b/t/mojo/bytestream.t
@@ -132,10 +132,10 @@ is $clone->to_string, 'foo', 'clone did not change';
 my $buffer = '';
 open my $handle, '>', \$buffer;
 b('te', 'st')->say($handle);
-my $stdout = *STDOUT;
-*STDOUT = $handle;
-b(1, 2, 3)->say;
-*STDOUT = $stdout;
+{
+  local *STDOUT = $handle;
+  b(1, 2, 3)->say;
+}
 is $buffer, "test\n123\n", 'right output';
 
 # slurp

diff --git a/t/mojo/eventemitter.t b/t/mojo/eventemitter.t
@@ -15,6 +15,15 @@ $e->on(die => sub { die "works!\n" });
 eval { $e->emit('die') };
 is $@, "works!\n", 'right error';
 
+# Unhandled error event
+my $error;
+{
+  local *STDERR;
+  open STDERR, '>', \$error;
+  $e->emit(error => "just works!\n");
+}
+is $error, "just works!\n", 'right error';
+
 # Error fallback
 my ($echo, $err);
 $e->on(error => sub { $err = pop });