"Fossies" - the Fresh Open Source Software Archive

Member "HTML-Stream-1.60/t/03-Functional_Tests.t" (5 Aug 2008, 429 Bytes) of package /linux/www/old/HTML-Stream-1.60.tar.gz:

As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. 
    1 use Test::More tests => 4;
    2 use HTML::Stream qw(:funcs);
    3 
    4 
    5 
    6 # Test the 'un' methods.
    7 my $text = "This <i>isn't</i> &quot;fun&quot;...";    
    8 is(html_unmarkup($text), "This isn't &quot;fun&quot;...", "HTML Unmarkup");
    9 is(html_unescape($text), 'This isn\'t "fun"...', "HTML Unescape");
   10 
   11 # Test escaping.
   12 is(html_escape("<>&"), "&lt;&gt;&amp;", "Escaping text");
   13 
   14 # Test HTML.
   15 is(html_tag(TR, NOWRAP=>undef), "<TR NOWRAP>", "HTML 1");