One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/HTML-TagParser-0.20-0/t/

View File Name : 23_flickr.t

# ----------------------------------------------------------------
    use strict;
    use Test::More tests => 10;
    BEGIN { use_ok('HTML::TagParser') };
# ----------------------------------------------------------------
    my $FILE = "t/sample/flickr.html";
# ----------------------------------------------------------------
    &test_main();
# ----------------------------------------------------------------
sub test_main {
    my $html = HTML::TagParser->new( $FILE );
    ok( ref $html, "open by new()" );

    my $title = $html->getElementsByTagName('title');
    like( $title->innerText(), qr/^Flickr/i, 'title' );

    my $desc = $html->getElementsByName('description');
    like( $desc->getAttribute('content'), qr/^Flickr/i, 'description' );

    my $atom = $html->getElementsByAttribute('type','application/atom+xml');
    like( $atom->getAttribute('href'), qr/format=atom/i, 'application/atom+xml' );

    my $top = $html->getElementsByName('top');
    is( $top->tagName(), 'a', 'a name top' );

    my $input = $html->getElementById('header_search_q');
    is( $input->tagName(), 'input', 'input id header_search_q' );

    my $show = $html->getElementsByAttribute('href','/photos/u-suke/show/');
    like( $show->innerText(), qr/View as slideshow/i, 'a href /View as slideshow/' );

    my $topnavi = $html->getElementsByClassName('About');
    like( $topnavi->innerText(), qr/Copyright/i, 'class About /Copyright/' );

    my @privacy = $html->getElementsByClassName('Privacy');
    ok( scalar @privacy, 'class Privacy' );
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------