slurp happy test

t/failure.t

@@ -88,6 +88,7 @@ for my $path_fn_ar (
     [ 'rename2', "$dir/qweqweqew", 0 ],
     [ 'readlink' ],
     [ 'truncate', 0 ],
+    [ 'slurp', 0, 0 ],
 ) {
     my ($fn, @xtra_args) = @$path_fn_ar;
 

t/general.t

@@ -57,6 +57,16 @@ is_deeply( \@success, ['read', length $to_write], 'success on read' );
 
 is($data, $to_write, '… and the buffer is filled');
 
+IO::AIO::Promiser::slurp("$dir/file", 0, 0)->then(
+    sub { @success = ('slurp', shift) },
+);
+
+IO::AIO::flush;
+
+is_deeply( \@success, ['slurp', $to_write], 'success on slurp' );
+
+#----------------------------------------------------------------------
+
 IO::AIO::Promiser::stat($fh)->then(
     sub { @success = ('stat', (stat _)[7]) },
 );

t/import.t

@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::FailWarnings;
+
+use IO::AIO::Promiser ':all';
+
+can_ok( __PACKAGE__, 'aio_open' );
+
+done_testing;

t/nonimport.t

@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::FailWarnings;
+
+use IO::AIO::Promiser;
+
+ok( !__PACKAGE__->can('aio_open'), 'default does NOT export' );
+
+done_testing;