use Test::More tests => 4;
use_ok "Text::Context::Porter";

# Unit tests for the Ruby port
my $s = Text::Context::Porter->new("This is a test\n\nAnd   so is this.\n\nbut this has testing more words than the others", "word", "tested");

isa_ok($s, "Text::Context::Porter");
is($s->as_text, "but this has testing more words than the others", 
"Simple test passed");
is($s->as_html, 'but this has <span class="quoted">testing</span> more <span class="quoted">words</span> than the others',
"HTML test passed");