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 : 03_open.t

# ----------------------------------------------------------------
    use strict;
    use Test::More tests => 5;
    BEGIN { use_ok('HTML::TagParser') };
# ----------------------------------------------------------------
    my $FILE = "t/sample/hello.html";
# ----------------------------------------------------------------
    my $html1 = HTML::TagParser->new();
    my $num = $html1->open( $FILE );
    ok( $num, "open by open()" );

    my $elem1 = $html1->getElementsByTagName( "title" );
    my $title = $elem1->innerText() if ref $elem1;
    is( $title, "Hello, World!", "title" );
# ----------------------------------------------------------------
    my $html2 = HTML::TagParser->new( $FILE );
    ok( ref $html2, "open by new()" );

    my $elem2 = $html2->getElementsByTagName( "body" );
    my $body = $elem2->innerText() if ref $elem2;
    is( $body, "World, Hello!", "body" );
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------