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/

Edit File: 22_yahoo.t

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

my $pf_img = $html->getElementById('pf_img');
    like( $pf_img->getAttribute('alt'), qr/\)$/, 'pf_img' );

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

my @script = $html->getElementsByAttribute('language','javascript');
    is( scalar @script, 3, 'script language javascript' );

my $body = $html->getElementsByTagName('body');
    is( $body->getAttribute('class'), 'bg', 'body class=bg' );

my $sbox = $html->getElementById('fav_list');
    is( $sbox->tagName(), 'table', 'fav_list' );

my $sf1 = $html->getElementsByName('id_profile');
    is( $sf1->tagName(), 'img', 'id_profile' );

my @spacer = $html->getElementsByClassName('small');
    ok( scalar @spacer, 'class small' );

my @small = $html->getElementsByTagName('small');
    my $small = pop( @small );
    like( $small->innerText, qr/Copyright/i, 'small' );
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------