06constants.t

Revision 2168, 259 bytes (checked in by karpet, 2 months ago)
get all tests passing

Line
1	use Test::More tests => 3;
2
3	use SWISH::3 qw( :constants );
4
5	is( SWISH_MIME, 'MIME', SWISH_MIME );
6	is( SWISH_PROP, 'PropertyNames', SWISH_PROP );
7	is( scalar(SWISH_TOKEN_FIELDS), 5, 'SWISH_TOKEN_FIELDS' );

Note: See TracBrowser for help on using the browser.