use strict;
use warnings;
use utf8;

use FindBin;
use File::Spec;
use lib (
    File::Spec->catfile( $FindBin::Bin, '..', 't', 'lib'),
);

use MyChaos;
use Chaostr::Service::Test;

plan tests => 3 * blocks;

my $test = Chaostr::Service::Test->new();

run {
    my $block = shift;

    my $token = $test->onetime_save($block->save);
    ok $token, 'onetime save';
    my $content = $test->onetime_load($token);
    is_deeply $content, $block->load;
    ok $test->onetime_remove($token);
    
}

__END__
=== one
--- save eval
{ foo => 'bar' }
--- load eval
{ foo => 'bar' }
--- remove chomp