The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;

use SWISH::3 qw( :constants );

is( SWISH_MIME,                 'MIME',          SWISH_MIME );
is( SWISH_PROP,                 'PropertyNames', SWISH_PROP );
is( scalar(SWISH_TOKEN_FIELDS), 5,               'SWISH_TOKEN_FIELDS' );