### ----------------------------------------------------
### -- HandleSupplier
### -- Licenses: Artistic-2.0
### -- Authors: Asato Wakisaka
### -- File: t/01-basic.t
### ----------------------------------------------------
use v6.c;
use Test;
use HandleSupplier;
use IO::Blob;

my $io = IO::Blob.new();

my $supplier = supplier-for-handle($io);
$supplier.emit('ohno');

$io.seek(0);
is $io.slurp-rest, "ohno\n";

done-testing;


