diff --git a/lib/Test/Arrow.pm b/lib/Test/Arrow.pm
index 3a7f277..6a95541 100644
--- a/lib/Test/Arrow.pm
+++ b/lib/Test/Arrow.pm
@@ -97,8 +97,6 @@ sub expected {
     $self;
 }
 
-sub expect { shift->expected(@_) }
-
 sub got {
     my ($self, $value) = @_;
 
@@ -462,9 +460,14 @@ sub warnings {
 
 {
     no warnings 'once';
-    *warn_ok = *warnings_ok;
+    *expect = *expected;
+
+    *warn_ok    = *warnings_ok;
     *warning_ok = *warnings_ok;
+
     *warning = *warnings;
+
+    *done = *done_testing;
 }
 
 1;
@@ -744,6 +747,9 @@ Declare of done testing.
 
 B<Note> that you must never put C<done_testing> inside an C<END { ... }> block.
 
+=head3 done
+
+Alias of done_testing
 
 =head2 CONSTANTS
 
diff --git a/t/00_compile.t b/t/00_compile.t
index a75878b..991d7f4 100644
--- a/t/00_compile.t
+++ b/t/00_compile.t
@@ -1,6 +1,9 @@
-use strict;
-use Test::More tests => 1;
+eval {
+    require Test::Arrow;
+    Test::Arrow->import;
+};
 
-BEGIN {
-    use_ok 'Test::Arrow';
-}
+Test::Arrow->new->ok(!$@)
+    or Test::Arrow->diag($@);
+
+Test::Arrow->done;