#!/usr/bin/perl -w
use strict;
use Test::More tests => 5;
BEGIN
{
use_ok('Rose::HTML::Link');
}
my $l = Rose::HTML::Link->new(rel => 'stylesheet', href => '/style/main.css');
is($l->rel, 'stylesheet', 'rel');
is($l->href, '/style/main.css', 'href');
is($l->html,'<link href="/style/main.css" rel="stylesheet">', 'html');
is($l->xhtml, '<link href="/style/main.css" rel="stylesheet" />', 'xhtml');