use Test::More tests => 5;
use strict;

use SWISH::3 qw(:constants);

my $header = SWISH_HEADER_FILE();
unlink("t/$header");

ok( my $s3    = SWISH::3->new,          "new s3" );
ok( my $index = $s3->config->get_index, "get_index" );
ok( $index->set( 'Format', 'Test' ), "set Format" );
ok( $s3->config->write("t/$header"), 'write header' );
cmp_ok( -s "t/$header", '>', 792, "size of header file" );